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