diff options
Diffstat (limited to 'src-3.0/GF/Command/Abstract.hs')
| -rw-r--r-- | src-3.0/GF/Command/Abstract.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src-3.0/GF/Command/Abstract.hs b/src-3.0/GF/Command/Abstract.hs index 16905c2f9..29111b432 100644 --- a/src-3.0/GF/Command/Abstract.hs +++ b/src-3.0/GF/Command/Abstract.hs @@ -58,10 +58,10 @@ isFlag :: String -> [Option] -> Bool isFlag o opts = elem o [x | OFlag x _ <- opts] prOpt :: Option -> String -prOpt (OOpt i) = i ---- +prOpt o = case o of + OOpt i -> i + OFlag f x -> f ++ "=" ++ show x mkOpt :: String -> Option mkOpt = OOpt - - |