diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-11 09:20:26 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-11 09:20:26 +0000 |
| commit | ad16eb2d788f6fe20e098f115ff42e0db8eb8974 (patch) | |
| tree | eca12856bcd33cbb3d3e252c45d4c7762c3fd9d3 /src-3.0/GF/Command/Interpreter.hs | |
| parent | 9628eb6314bfcb827142d1869626696de101e245 (diff) | |
allow spaces between command options; option -treebank in linearize
Diffstat (limited to 'src-3.0/GF/Command/Interpreter.hs')
| -rw-r--r-- | src-3.0/GF/Command/Interpreter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Command/Interpreter.hs b/src-3.0/GF/Command/Interpreter.hs index 6bac6eca0..97ecb89b8 100644 --- a/src-3.0/GF/Command/Interpreter.hs +++ b/src-3.0/GF/Command/Interpreter.hs @@ -61,7 +61,7 @@ interpret env trees0 comm = case lookCommand co comms of comms = commands env checkOpts info = case - [o | OOpt o <- opts, notElem o (options info)] ++ + [o | OOpt o <- opts, notElem o ("tr" : options info)] ++ [o | OFlag o _ <- opts, notElem o (flags info)] of [] -> return () |