diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-24 21:52:07 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-24 21:52:07 +0000 |
| commit | 95571060108a6a334f1c87c2fd3add773479b072 (patch) | |
| tree | 369db4bf01d6c75db3989e264e41e9bc1c66ab51 /src-3.0/GF/Command/Abstract.hs | |
| parent | 0b22e975242af27e4276cf3fadbe0fe3c1b1f614 (diff) | |
added default decodings to Make, to enable multilingual utf8 generation
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 - - |