diff options
| author | David Waern <david.waern@gmail.com> | 2009-04-01 20:48:42 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-04-01 20:48:42 +0000 |
| commit | 488fd5ef7762202b3c050442bc43fc32e02db046 (patch) | |
| tree | 16da12dec857f36735f0e330e8572eb238394812 /src/Haddock/Interface/Rename.hs | |
| parent | 186015255cf4336047d8d32be94146f3fb57f631 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 82b3b618..7a9a3292 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -65,7 +65,7 @@ renameInterface renamingEnv warnings iface = unless (OptHide `elem` ifaceOptions iface || null strings || not warnings) $ tell ["Warning: " ++ moduleString (ifaceMod iface) ++ ": could not find link destinations for:\n"++ - " " ++ concat (map (' ':) strings) ] + unwords (" " : strings) ] return $ iface { ifaceRnDoc = finalModuleDoc, ifaceRnDocMap = rnDocMap, @@ -93,7 +93,7 @@ instance Monad (GenRnM n) where return = returnRn returnRn :: a -> GenRnM n a -returnRn a = RnM (\_ -> (a,[])) +returnRn a = RnM (const (a,[])) thenRn :: GenRnM n a -> (a -> GenRnM n b) -> GenRnM n b m `thenRn` k = RnM (\lkp -> case unRn m lkp of (a,out1) -> case unRn (k a) lkp of @@ -102,7 +102,7 @@ m `thenRn` k = RnM (\lkp -> case unRn m lkp of getLookupRn :: RnM (Name -> (Bool, DocName)) getLookupRn = RnM (\lkp -> (lkp,[])) outRn :: Name -> RnM () -outRn name = RnM (\_ -> ((),[name])) +outRn name = RnM (const ((),[name])) lookupRn :: (DocName -> a) -> Name -> RnM a lookupRn and_then name = do @@ -134,11 +134,11 @@ renameL = mapM rename renameExportItems :: [ExportItem Name] -> RnM [ExportItem DocName] -renameExportItems items = mapM renameExportItem items +renameExportItems = mapM renameExportItem renameMaybeDoc :: Maybe (HsDoc Name) -> RnM (Maybe (HsDoc DocName)) -renameMaybeDoc mbDoc = mapM renameDoc mbDoc +renameMaybeDoc = mapM renameDoc renameLDoc :: LHsDoc Name -> RnM (LHsDoc DocName) |