projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make -ddump-to-file truncate existing files.
[ghc-hetmet.git]
/
compiler
/
rename
/
RnHsDoc.hs
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)