2 module HaddockUtils where
9 -- -----------------------------------------------------------------------------
10 -- Adding documentation to record fields (used in parsing).
12 addFieldDoc :: ConDeclField a -> Maybe LHsDocString -> ConDeclField a
13 addFieldDoc fld doc = fld { cd_fld_doc = cd_fld_doc fld `mplus` doc }
15 addFieldDocs :: [ConDeclField a] -> Maybe LHsDocString -> [ConDeclField a]
16 addFieldDocs [] _ = []
17 addFieldDocs (x:xs) doc = addFieldDoc x doc : xs
19 addConDoc :: LConDecl a -> Maybe LHsDocString -> LConDecl a
20 addConDoc decl Nothing = decl
21 addConDoc (L p c) doc = L p ( c { con_doc = con_doc c `mplus` doc } )
23 addConDocs :: [LConDecl a] -> Maybe LHsDocString -> [LConDecl a]
25 addConDocs [x] doc = [addConDoc x doc]
26 addConDocs (x:xs) doc = x : addConDocs xs doc
28 addConDocFirst :: [LConDecl a] -> Maybe LHsDocString -> [LConDecl a]
29 addConDocFirst [] _ = []
30 addConDocFirst (x:xs) doc = addConDoc x doc : xs