tree visualization command

2008-06-22 13:07:09 +00:00
parent 06f3fa8637
commit 16fd61ce00
3 changed files with 80 additions and 0 deletions
--- a/src-3.0/GF/Command/Abstract.hs
+++ b/src-3.0/GF/Command/Abstract.hs
@@ -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 ----