1 {-# LANGUAGE DeriveDataTypeable #-}
9 #include "HsVersions.h"
17 newtype HsDocString = HsDocString FastString
18 deriving (Eq, Show, Data, Typeable)
20 type LHsDocString = Located HsDocString
22 instance Outputable HsDocString where
23 ppr _ = text "<document comment>"
25 ppr_mbDoc :: Maybe LHsDocString -> SDoc
26 ppr_mbDoc (Just doc) = ppr doc
27 ppr_mbDoc Nothing = empty