diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-14 10:02:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-14 10:02:40 +0000 |
| commit | 246f307b22fb02ccc2bdd37520fdc330715d44ee (patch) | |
| tree | 21d545c259a1a864ec042a27cd88a2bd29a5c9e9 /src-3.0/GF/Command/Interpreter.hs | |
| parent | c1c8257e82ace9860fa3880ae820b2b41b6403e0 (diff) | |
added syntax and examples fields to command help
Diffstat (limited to 'src-3.0/GF/Command/Interpreter.hs')
| -rw-r--r-- | src-3.0/GF/Command/Interpreter.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GF/Command/Interpreter.hs b/src-3.0/GF/Command/Interpreter.hs index 97ecb89b8..5663d12b3 100644 --- a/src-3.0/GF/Command/Interpreter.hs +++ b/src-3.0/GF/Command/Interpreter.hs @@ -61,8 +61,8 @@ interpret env trees0 comm = case lookCommand co comms of comms = commands env checkOpts info = case - [o | OOpt o <- opts, notElem o ("tr" : options info)] ++ - [o | OFlag o _ <- opts, notElem o (flags info)] + [o | OOpt o <- opts, notElem o ("tr" : map fst (options info))] ++ + [o | OFlag o _ <- opts, notElem o (map fst (flags info))] of [] -> return () [o] -> putStrLn $ "option not interpreted: " ++ o |