From 037e011ce97c8ff2adb794bc99676bd94d00465a Mon Sep 17 00:00:00 2001 From: davve Date: Sun, 20 Aug 2006 21:38:24 +0000 Subject: Small cleanup --- src/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 29e91591..62e9540c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -110,7 +110,7 @@ parseGHCFlags :: DynFlags -> [String] -> IO (DynFlags, [String]) parseGHCFlags dynflags args = case args of [] -> return (dynflags, args) ("-g":rest) -> worker rest - (('-':'-':'g':'h':'c':'-':'f':'l':'a':'g':[]):rest) -> worker rest + ("--ghc-flag":rest) -> worker rest (x:xs) -> do (flags, rest) <- parseGHCFlags dynflags xs return (flags, x:rest) @@ -580,8 +580,8 @@ mkDocMap group = Map.fromList (topDeclDocs ++ classMethDocs ++ recordFieldDocs) constrs = [ con | d <- datadecls, L _ con <- tcdCons d ] fields = concat [ fields | RecCon fields <- map con_details constrs] - topDeclDocs = collectDocs (reverse (hs_docs group)) - classMethDocs = concatMap (collectDocs . tcdDocs) classes + topDeclDocs = collectDocs (reverse (hs_docs group)) + classMethDocs = concatMap (collectDocs . tcdDocs) classes recordFieldDocs = [ (unLoc lname, doc) | HsRecField lname _ (Just (L _ doc)) <- fields ] -- cgit v1.2.3