Refactor SrcLoc and SrcSpan

[ghc-hetmet.git] / compiler / rename / RnHsDoc.hs

diff --git a/compiler/rename/RnHsDoc.hs b/compiler/rename/RnHsDoc.hs
index d90b2fe..9e53f49 100644 (file)
--- a/compiler/rename/RnHsDoc.hs
+++ b/compiler/rename/RnHsDoc.hs
@@ -2,21 +2,9 @@
 module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
 
 import TcRnTypes
-import RnEnv       ( dataTcOccs, lookupGreRn_maybe )
 import HsSyn
+import SrcLoc
 
-import RdrName     ( RdrName, gre_name )
-import Name        ( Name )
-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
@@ -30,10 +18,6 @@ rnLHsDoc (L pos doc) = do
   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)