moduleHaddockUtilswhereimportGhcPrelude importHsSyn importSrcLoc importControl.Monad-- ------------------------------------------------------------------------------- Adding documentation to record fields (used in parsing).addFieldDoc::LConDeclField a ->MaybeLHsDocString ->LConDeclField a addFieldDoc (L l fld )doc =L l (fld {cd_fld_doc=cd_fld_docfld `mplus`doc })addFieldDocs::[LConDeclField a ]->MaybeLHsDocString ->[LConDeclField a ]addFieldDocs []_=[]addFieldDocs(x :xs )doc =addFieldDoc x doc :xs addConDoc::LConDecl a ->MaybeLHsDocString ->LConDecl a addConDoc decl Nothing=decl addConDoc(L p c )doc =L p (c {con_doc=con_docc `mplus`doc })addConDocs::[LConDecl a ]->MaybeLHsDocString ->[LConDecl a ]addConDocs []_=[]addConDocs[x ]doc =[addConDoc x doc ]addConDocs(x :xs )doc =x :addConDocs xs doc addConDocFirst::[LConDecl a ]->MaybeLHsDocString ->[LConDecl a ]addConDocFirst []_=[]addConDocFirst(x :xs )doc =addConDoc x doc :xs