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