2 module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
6 import SrcLoc ( Located(..) )
9 rnMbLHsDoc :: Maybe LHsDocString -> RnM (Maybe LHsDocString)
10 rnMbLHsDoc mb_doc = case mb_doc of
14 Nothing -> return Nothing
16 rnLHsDoc :: LHsDocString -> RnM LHsDocString
17 rnLHsDoc (L pos doc) = do
21 rnHsDoc :: HsDocString -> RnM HsDocString
22 rnHsDoc (HsDocString s) = return (HsDocString s)