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 0b22e97524
commit 9557106010
2 changed files with 25 additions and 9 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