(Fix DadaDecl)

2022-02-12 16:22:37 +03:00 · 2022-02-12 16:22:37 +03:00 · ea58f8d46f
parent 800500f7ce
commit ea58f8d46f
1 changed files with 1 additions and 1 deletions
--- 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