Improvements to pretty-printing of Core
[ghc-hetmet.git] / compiler / rename / RnHsDoc.hs
1
2 module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
3
4 import TcRnTypes
5 import HsSyn
6 import SrcLoc      ( Located(..) )
7
8
9 rnMbLHsDoc :: Maybe LHsDocString -> RnM (Maybe LHsDocString)
10 rnMbLHsDoc mb_doc = case mb_doc of
11   Just doc -> do
12     doc' <- rnLHsDoc doc
13     return (Just doc')
14   Nothing -> return Nothing
15
16 rnLHsDoc :: LHsDocString -> RnM LHsDocString
17 rnLHsDoc (L pos doc) = do
18   doc' <- rnHsDoc doc
19   return (L pos doc')
20
21 rnHsDoc :: HsDocString -> RnM HsDocString
22 rnHsDoc (HsDocString s) = return (HsDocString s)
23