(Fix DadaDecl)

mxxun/ghc-9.2
mrkun 2022-02-12 16:22:37 +03:00
parent 800500f7ce
commit ea58f8d46f
1 changed files with 1 additions and 1 deletions

View File

@ -428,7 +428,7 @@ createNamesAndTypeDoc
:: Data.Data.Data ast :: Data.Data.Data ast
=> LocatedAn an1 ast => LocatedAn an1 ast
-> [GenLocated t (FieldOcc GhcPs)] -> [GenLocated t (FieldOcc GhcPs)]
-> LocatedAn an2 (HsType GhcPs) -> LocatedAn AnnListItem (HsType GhcPs)
-> (ToBriDocM BriDocNumbered, ToBriDocM BriDocNumbered) -> (ToBriDocM BriDocNumbered, ToBriDocM BriDocNumbered)
createNamesAndTypeDoc lField names t = createNamesAndTypeDoc lField names t =
( docNodeAnnKW lField Nothing $ docWrapNodePrior lField $ docSeq ( docNodeAnnKW lField Nothing $ docWrapNodePrior lField $ docSeq