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