From 0a331d25b66a8b0f72d430df452ec6ae2fe778c7 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 13 Nov 2002 10:35:18 +0000 Subject: [PATCH] [project @ 2002-11-13 10:35:18 by simonmar] Remove superfluous escaping of quotation marks in the example code (Haddock interprets bird-tracked code literally). MERGE --- System/Console/GetOpt.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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..." -} -- 1.7.10.4