Fix incomplete pattern match warning in UTxOIndex.checkInvariant.

cardano-foundation · Mar 16, 2023 · 1c667ad · 1c667ad
1 parent a42ce17
commit 1c667ad
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/lib/primitive/lib/Cardano/Wallet/Primitive/Types/UTxOIndex/Internal.hs b/lib/primitive/lib/Cardano/Wallet/Primitive/Types/UTxOIndex/Internal.hs
@@ -631,7 +631,7 @@ data InvariantStatus
 --
 checkInvariant :: Ord u => UTxOIndex u -> InvariantStatus
 checkInvariant i
-    | balanceStatus /= BalanceCorrect =
+    | BalanceIncorrect balanceError <- checkBalance i =
         InvariantBalanceError balanceError
     | not (indexIsComplete i) =
         InvariantIndexIncomplete
@@ -643,9 +643,6 @@ checkInvariant i
         InvariantAssetsInconsistent
     | otherwise =
         InvariantHolds
-  where
-    balanceStatus = checkBalance i
-    BalanceIncorrect balanceError = balanceStatus
 
 -- | Indicates whether on not the stored 'balance' value is correct.
 --