GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added syntax and examples fields to command help

Browse Source
This commit is contained in:
aarne
2008-06-14 10:02:40 +00:00
parent 93122ed338
commit dbfe4c94e4
3 changed files with 91 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src-3.0/GF/Command/Interpreter.hs
View File

@@ -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