summaryrefslogtreecommitdiff
path: root/src/GF/Command/Commands.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2007-11-08 17:01:09 +0000
committeraarne <aarne@cs.chalmers.se>2007-11-08 17:01:09 +0000
commit14e974af9e168cb768d935cb4fdb621eedab01bd (patch)
tree9270f1754b12d5fcd59cf6958b19810f4007ad75 /src/GF/Command/Commands.hs
parent44df29f52d074f372053e7b622849c65608728c4 (diff)
added linearize -all
Diffstat (limited to 'src/GF/Command/Commands.hs')
-rw-r--r--src/GF/Command/Commands.hs3
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)