2 module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
5 import RnEnv ( dataTcOccs, lookupGreRn_maybe )
8 import RdrName ( RdrName, gre_name )
10 import SrcLoc ( Located(..) )
11 import Outputable ( ppr, defaultUserStyle )
14 rnMbHsDoc :: Maybe HsDocString -> RnM (Maybe HsDocString)
15 rnMbHsDoc mb_doc = case mb_doc of
19 Nothing -> return Nothing
21 rnMbLHsDoc :: Maybe LHsDocString -> RnM (Maybe LHsDocString)
22 rnMbLHsDoc mb_doc = case mb_doc of
26 Nothing -> return Nothing
28 rnLHsDoc :: LHsDocString -> RnM LHsDocString
29 rnLHsDoc (L pos doc) = do
33 ids2string :: [RdrName] -> String
35 ids2string (x:_) = show $ ppr x defaultUserStyle
37 rnHsDoc :: HsDocString -> RnM HsDocString
38 rnHsDoc (HsDocString s) = return (HsDocString s)