projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
205b076
)
Make RnHsDoc warning-free
author
Ian Lynagh
<igloo@earth.li>
Sat, 3 May 2008 20:13:43 +0000
(20:13 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 3 May 2008 20:13:43 +0000
(20:13 +0000)
compiler/rename/RnHsDoc.hs
patch
|
blob
|
history
diff --git
a/compiler/rename/RnHsDoc.hs
b/compiler/rename/RnHsDoc.hs
index
a1e05c9
..
c556d2c
100644
(file)
--- a/
compiler/rename/RnHsDoc.hs
+++ b/
compiler/rename/RnHsDoc.hs
@@
-1,9
+1,3
@@
-{-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
--- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
module RnHsDoc ( rnHaddock, rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
module RnHsDoc ( rnHaddock, rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
@@
-37,16
+31,19
@@
rnMbHsDoc mb_doc = case mb_doc of
return (Just doc')
Nothing -> return Nothing
return (Just doc')
Nothing -> return Nothing
+rnMbLHsDoc :: Maybe (LHsDoc RdrName) -> RnM (Maybe (LHsDoc Name))
rnMbLHsDoc mb_doc = case mb_doc of
Just doc -> do
doc' <- rnLHsDoc doc
return (Just doc')
Nothing -> return Nothing
rnMbLHsDoc mb_doc = case mb_doc of
Just doc -> do
doc' <- rnLHsDoc doc
return (Just doc')
Nothing -> return Nothing
+rnLHsDoc :: LHsDoc RdrName -> RnM (LHsDoc Name)
rnLHsDoc (L pos doc) = do
doc' <- rnHsDoc doc
return (L pos doc')
rnLHsDoc (L pos doc) = do
doc' <- rnHsDoc doc
return (L pos doc')
+ids2string :: [RdrName] -> String
ids2string [] = []
ids2string (x:_) = show $ ppr x defaultUserStyle
ids2string [] = []
ids2string (x:_) = show $ ppr x defaultUserStyle