From 3eddd913e3b41e83d43509b9c4a62fcd29ef49c8 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 25 Mar 2022 20:36:12 -1000
Subject: [PATCH] imp: ghc9.2: silence incomplete-record-updates warnings

---
 hledger-ui/Hledger/UI/ErrorScreen.hs       | 9 +++++++++
 hledger-ui/Hledger/UI/RegisterScreen.hs    | 1 +
 hledger-ui/Hledger/UI/TransactionScreen.hs | 1 +
 stack9.2.yaml                              | 2 +-
 4 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/hledger-ui/Hledger/UI/ErrorScreen.hs b/hledger-ui/Hledger/UI/ErrorScreen.hs
index 7d8fb907b..2c1e81500 100644
--- a/hledger-ui/Hledger/UI/ErrorScreen.hs
+++ b/hledger-ui/Hledger/UI/ErrorScreen.hs
@@ -3,6 +3,7 @@
 {-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards   #-}
+{-# OPTIONS_GHC -Wno-incomplete-record-updates #-}
 
 module Hledger.UI.ErrorScreen
  (errorScreen
@@ -162,6 +163,14 @@ uiReloadJournal copts d ui = do
       case ui of
         UIState{aScreen=s@ErrorScreen{}} -> ui{aScreen=s{esError=err}}
         _                                -> screenEnter d errorScreen{esError=err} ui
+      -- XXX GHC 9.2 warning:
+      -- hledger-ui/Hledger/UI/ErrorScreen.hs:164:59: warning: [-Wincomplete-record-updates]
+      --     Pattern match(es) are non-exhaustive
+      --     In a record-update construct:
+      --         Patterns of type ‘Screen’ not matched:
+      --             AccountsScreen _ _ _ _ _
+      --             RegisterScreen _ _ _ _ _ _
+      --             TransactionScreen _ _ _ _ _ _
 
 -- | Like uiReloadJournal, but does not re-parse the journal if the file(s)
 -- have not changed since last loaded. Always regenerates the screens though,
diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs
index 4963c59f5..7a13e6327 100644
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards   #-}
 {-# LANGUAGE NamedFieldPuns #-}
+{-# OPTIONS_GHC -Wno-incomplete-record-updates #-}
 
 module Hledger.UI.RegisterScreen
  (registerScreen
diff --git a/hledger-ui/Hledger/UI/TransactionScreen.hs b/hledger-ui/Hledger/UI/TransactionScreen.hs
index 0726fe409..8fb0d81b4 100644
--- a/hledger-ui/Hledger/UI/TransactionScreen.hs
+++ b/hledger-ui/Hledger/UI/TransactionScreen.hs
@@ -3,6 +3,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards   #-}
 {-# LANGUAGE TupleSections     #-}
+{-# OPTIONS_GHC -Wno-incomplete-record-updates #-}
 
 module Hledger.UI.TransactionScreen
 ( transactionScreen
diff --git a/stack9.2.yaml b/stack9.2.yaml
index d9f72cfef..2905a2ef9 100644
--- a/stack9.2.yaml
+++ b/stack9.2.yaml
@@ -26,7 +26,7 @@ extra-deps:
 
 # silence new warnings temporarily
 ghc-options:
-  "$locals": -Wno-incomplete-uni-patterns -Wno-incomplete-record-updates
+  "$locals": -Wno-incomplete-uni-patterns
 
 nix:
   pure: false