- hsmodHaddockModInfo :: HaddockModInfo name,
- -- ^ Haddock module info
- hsmodHaddockModDescr :: Maybe (HsDoc name)
- -- ^ Haddock module description
- }
-
-data HaddockModInfo name = HaddockModInfo {
- hmi_description :: Maybe (HsDoc name),
- hmi_portability :: Maybe String,
- hmi_stability :: Maybe String,
- hmi_maintainer :: Maybe String
-}
-
-emptyHaddockModInfo :: HaddockModInfo a
-emptyHaddockModInfo = HaddockModInfo {
- hmi_description = Nothing,
- hmi_portability = Nothing,
- hmi_stability = Nothing,
- hmi_maintainer = Nothing
-}
+ hsmodHaddockModHeader :: Maybe LHsDocString
+ -- ^ Haddock module info and description, unparsed
+ } deriving (Data, Typeable)