diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-08 17:01:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-08 17:01:09 +0000 |
| commit | 14e974af9e168cb768d935cb4fdb621eedab01bd (patch) | |
| tree | 9270f1754b12d5fcd59cf6958b19810f4007ad75 /src/GF/Command/Commands.hs | |
| parent | 44df29f52d074f372053e7b622849c65608728c4 (diff) | |
added linearize -all
Diffstat (limited to 'src/GF/Command/Commands.hs')
| -rw-r--r-- | src/GF/Command/Commands.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs index 8dcefece9..04ba13256 100644 --- a/src/GF/Command/Commands.hs +++ b/src/GF/Command/Commands.hs @@ -103,7 +103,7 @@ allCommands mgr = Map.fromAscList [ }), ("l", emptyCommandInfo { exec = \opts -> return . fromStrings . map (optLin opts), - options = ["record","table","term"], + options = ["all","record","table","term"], flags = ["lang"] }), ("p", emptyCommandInfo { @@ -117,6 +117,7 @@ allCommands mgr = Map.fromAscList [ optLin opts t = unlines [linea lang t | lang <- optLangs opts] where linea lang = case opts of + _ | isOpt "all" opts -> allLinearize gr (cid lang) _ | isOpt "table" opts -> tableLinearize gr (cid lang) _ | isOpt "term" opts -> termLinearize gr (cid lang) _ | isOpt "record" opts -> recordLinearize gr (cid lang) |
