Commit 2c266872 authored by Simon Marlow's avatar Simon Marlow

fix warnings

parent 63489d40
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment