Omit the static form error for variables not in scope.
[ghc.git] / compiler / rename / RnHsDoc.hs
1
2 module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
3
4 import TcRnTypes
5 import HsSyn
6 import SrcLoc
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