X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FConsole%2FGetOpt.hs;fp=System%2FConsole%2FGetOpt.hs;h=0b564e53b471524e3ce6dab54bba7c3c1140b88e;hb=0a331d25b66a8b0f72d430df452ec6ae2fe778c7;hp=cf1d605af57e80eebd14f27eb3c74468c3aafc60;hpb=281853c0c595211e4a56c547f475f1949da46674;p=haskell-directory.git

diff --git a/System/Console/GetOpt.hs b/System/Console/GetOpt.hs
index cf1d605..0b564e5 100644
--- a/System/Console/GetOpt.hs
+++ b/System/Console/GetOpt.hs
@@ -272,22 +272,22 @@ compiler:
 >    
 >    options :: [OptDescr Flag]
 >    options =
->     [ Option [\'v\']     [\"verbose\"] (NoArg Verbose)       \"chatty output on stderr\"
->     , Option [\'V\',\'?\'] [\"version\"] (NoArg Version)       \"show version number\"
->     , Option [\'o\']     [\"output\"]  (OptArg outp \"FILE\")  \"output FILE\"
->     , Option [\'c\']     []          (OptArg inp  \"FILE\")  \"input FILE\"
->     , Option [\'L\']     [\"libdir\"]  (ReqArg LibDir \"DIR\") \"library directory\"
+>     [ Option ['v']     ["verbose"] (NoArg Verbose)       "chatty output on stderr"
+>     , Option ['V','?'] ["version"] (NoArg Version)       "show version number"
+>     , Option ['o']     ["output"]  (OptArg outp "FILE")  "output FILE"
+>     , Option ['c']     []          (OptArg inp  "FILE")  "input FILE"
+>     , Option ['L']     ["libdir"]  (ReqArg LibDir "DIR") "library directory"
 >     ]
 >    
 >    inp,outp :: Maybe String -> Flag
->    outp = Output . fromMaybe \"stdout\"
->    inp  = Input  . fromMaybe \"stdout\"
+>    outp = Output . fromMaybe "stdout"
+>    inp  = Input  . fromMaybe "stdout"
 >    
 >    compilerOpts :: [String] -> IO ([Flag], [String])
 >    compilerOpts argv = 
 >    	case (getOpt Permute options argv) of
 >    	   (o,n,[]  ) -> return (o,n)
 >    	   (_,_,errs) -> failIO (concat errs ++ usageInfo header options)
->      where header = \"Usage: ic [OPTION...] files...\"
+>      where header = "Usage: ic [OPTION...] files..."
 
 -}