diff options
author | davve <davve@dtek.chalmers.se> | 2006-08-20 21:38:24 +0000 |
---|---|---|
committer | davve <davve@dtek.chalmers.se> | 2006-08-20 21:38:24 +0000 |
commit | 037e011ce97c8ff2adb794bc99676bd94d00465a (patch) | |
tree | 259749ea7971ad68aff1a2df64dffebe3f3e206f | |
parent | 5fc3c0d7a9edee4d55b887bd44a02c266564d691 (diff) |
Small cleanup
-rw-r--r-- | src/Main.hs | 6 |
1 files 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 ] |