[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

diff --git a/System/Console/GetOpt.hs b/System/Console/GetOpt.hs
index cf1d605..0b564e5 100644 (file)
--- 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..."
 
 -}