1
0
forked from GitHub/gf-core

added default decodings to Make, to enable multilingual utf8 generation

This commit is contained in:
aarne
2008-06-24 21:52:07 +00:00
parent 06eb01ac7e
commit ed72a2ef79
3 changed files with 64 additions and 31 deletions

View File

@@ -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