diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-22 13:07:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-22 13:07:09 +0000 |
| commit | 0f0e65f706eb67e8035e9737cc4647fffe15f5f8 (patch) | |
| tree | e4a5dd7d89e3465b4bdd39196722741e532dae3b /src-3.0/GF/Command/Abstract.hs | |
| parent | 25f486858fcd3bad89fda6317abe750be5d29855 (diff) | |
tree visualization command
Diffstat (limited to 'src-3.0/GF/Command/Abstract.hs')
| -rw-r--r-- | src-3.0/GF/Command/Abstract.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src-3.0/GF/Command/Abstract.hs b/src-3.0/GF/Command/Abstract.hs index b26499d54..23f76fa82 100644 --- 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 ---- |