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:
63489d4
)
fix warnings
author
Simon Marlow
<marlowsd@gmail.com>
Tue, 8 Sep 2009 11:42:00 +0000
(11:42 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Tue, 8 Sep 2009 11:42:00 +0000
(11:42 +0000)
compiler/rename/RnHsDoc.hs
patch
|
blob
|
history
diff --git
a/compiler/rename/RnHsDoc.hs
b/compiler/rename/RnHsDoc.hs
index
d90b2fe
..
beb45bb
100644
(file)
--- a/
compiler/rename/RnHsDoc.hs
+++ b/
compiler/rename/RnHsDoc.hs
@@
-2,21
+2,9
@@
module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
import TcRnTypes
module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
import TcRnTypes
-import RnEnv ( dataTcOccs, lookupGreRn_maybe )
import HsSyn
import HsSyn
-
-import RdrName ( RdrName, gre_name )
-import Name ( Name )
import SrcLoc ( Located(..) )
import SrcLoc ( Located(..) )
-import Outputable ( ppr, defaultUserStyle )
-
-rnMbHsDoc :: Maybe HsDocString -> RnM (Maybe HsDocString)
-rnMbHsDoc mb_doc = case mb_doc of
- Just doc -> do
- doc' <- rnHsDoc doc
- return (Just doc')
- Nothing -> return Nothing
rnMbLHsDoc :: Maybe LHsDocString -> RnM (Maybe LHsDocString)
rnMbLHsDoc mb_doc = case mb_doc of
rnMbLHsDoc :: Maybe LHsDocString -> RnM (Maybe LHsDocString)
rnMbLHsDoc mb_doc = case mb_doc of
@@
-30,10
+18,6
@@
rnLHsDoc (L pos doc) = do
doc' <- rnHsDoc doc
return (L pos doc')
doc' <- rnHsDoc doc
return (L pos doc')
-ids2string :: [RdrName] -> String
-ids2string [] = []
-ids2string (x:_) = show $ ppr x defaultUserStyle
-
rnHsDoc :: HsDocString -> RnM HsDocString
rnHsDoc (HsDocString s) = return (HsDocString s)
rnHsDoc :: HsDocString -> RnM HsDocString
rnHsDoc (HsDocString s) = return (HsDocString s)