From 2c2668728f850e5969029f8a269079fa49ce881f Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 8 Sep 2009 11:42:00 +0000 Subject: [PATCH] fix warnings --- compiler/rename/RnHsDoc.hs | 16 ---------------- 1 file changed, 16 deletions(-) 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) -- 1.7.10.4