GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

tree visualization command

Browse Source
This commit is contained in:
aarne
2008-06-22 13:07:09 +00:00
parent 06f3fa8637
commit 16fd61ce00
3 changed files with 80 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src-3.0/GF/Command/Abstract.hs
View File

@@ -54,6 +54,9 @@ valOpts flag def opts = case lookup flag flags of
isOpt :: String -> [Option] -> Bool
isOpt o opts = elem o [x | OOpt x <- opts]
isFlag :: String -> [Option] -> Bool
isFlag o opts = elem o [x | OFlag x _ <- opts]
prOpt :: Option -> String
prOpt (OOpt i) = i ----