compiler/hsSyn/HsDoc.hs

   1 module HsDoc (
   2   HsDocString(..),
   3   LHsDocString,
   4   ppr_mbDoc
   5   ) where
   6
   7 #include "HsVersions.h"
   8
   9 import Outputable
  10 import SrcLoc
  11 import FastString
  12
  13 newtype HsDocString = HsDocString FastString
  14   deriving (Eq, Show)
  15
  16 type LHsDocString = Located HsDocString
  17
  18 instance Outputable HsDocString where
  19   ppr _ = text "<document comment>"
  20
  21 ppr_mbDoc :: Maybe LHsDocString -> SDoc
  22 ppr_mbDoc (Just doc) = ppr doc
  23 ppr_mbDoc Nothing    = empty
  24