X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnHsDoc.hs;h=beb45bbfbcb605580cf3c79807ca4cca5ea06b79;hp=d90b2fe500c2df11c24f0f13fb6029cb6f70132f;hb=2c2668728f850e5969029f8a269079fa49ce881f;hpb=63489d40bdee972656ff115ab2309b809c0e39fc

diff --git a/compiler/rename/RnHsDoc.hs b/compiler/rename/RnHsDoc.hs
index d90b2fe..beb45bb 100644
--- 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 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)