diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-12 14:36:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-12 14:36:03 +0000 |
| commit | 62b04f399cd271f2e1eed783f63e31727f4ddc65 (patch) | |
| tree | ae0e5f6abe1c228082b56141b7698043bc9d2c30 /src-3.0/GF/Command/Abstract.hs | |
| parent | 96230f84f5aa6ee4775bdf469010ace7b8a902d5 (diff) | |
added command ps -stringop, with stringop being (un)lexer defined in Lexing
Diffstat (limited to 'src-3.0/GF/Command/Abstract.hs')
| -rw-r--r-- | src-3.0/GF/Command/Abstract.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src-3.0/GF/Command/Abstract.hs b/src-3.0/GF/Command/Abstract.hs index 1f72688a0..31858a1f9 100644 --- a/src-3.0/GF/Command/Abstract.hs +++ b/src-3.0/GF/Command/Abstract.hs @@ -46,3 +46,8 @@ valOpts flag def opts = case lookup flag flags of isOpt :: String -> [Option] -> Bool isOpt o opts = elem o [x | OOpt x <- opts] + +prOpt :: Option -> String +prOpt (OOpt i) = i ---- + + |