From ea58f8d46fc0a0c0a45f81492cc3a2ea9592c91a Mon Sep 17 00:00:00 2001 From: mrkun Date: Sat, 12 Feb 2022 16:22:37 +0300 Subject: [PATCH] (Fix DadaDecl) --- .../Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs b/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs index d986b07..e946cd1 100644 --- a/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs +++ b/source/library/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs @@ -428,7 +428,7 @@ createNamesAndTypeDoc :: Data.Data.Data ast => LocatedAn an1 ast -> [GenLocated t (FieldOcc GhcPs)] - -> LocatedAn an2 (HsType GhcPs) + -> LocatedAn AnnListItem (HsType GhcPs) -> (ToBriDocM BriDocNumbered, ToBriDocM BriDocNumbered) createNamesAndTypeDoc lField names t = ( docNodeAnnKW lField Nothing $ docWrapNodePrior lField $ docSeq