From 95571060108a6a334f1c87c2fd3add773479b072 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 24 Jun 2008 21:52:07 +0000 Subject: added default decodings to Make, to enable multilingual utf8 generation --- src-3.0/GF/Command/Abstract.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src-3.0/GF/Command/Abstract.hs') 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 - - -- cgit v1.2.3