From 2dced782b1d210156797fdf2b65460acac3bcd09 Mon Sep 17 00:00:00 2001
From: Taylor Fausak <taylor@fausak.me>
Date: Sat, 6 Nov 2021 17:40:55 +0000
Subject: [PATCH] Make sure record updates are complete

---
 brittany.cabal                                           | 1 -
 src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/brittany.cabal b/brittany.cabal
index b257bd3..969b882 100644
--- a/brittany.cabal
+++ b/brittany.cabal
@@ -85,7 +85,6 @@ library {
   }
   ghc-options: {
     -Weverything
-    -Wno-incomplete-record-updates
     -Wno-incomplete-uni-patterns
     -Wno-missing-deriving-strategies
     -Wno-missing-export-lists
diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
index 47a9514..f068b6c 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
@@ -863,7 +863,7 @@ layoutClsInst lcid@(L _ cid) = docLines
       .   removeChildren
       <$> lcid
 
-  removeChildren :: ClsInstDecl p -> ClsInstDecl p
+  removeChildren :: ClsInstDecl GhcPs -> ClsInstDecl GhcPs
   removeChildren c = c
     { cid_binds         = emptyBag
     , cid_sigs          = []