tmp: introduce compilation failure in Cardano.Wallet module

cardano-foundation · Dec 2, 2022 · 7a50b30 · 7a50b30
1 parent 1f2a5f2
commit 7a50b30
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/wallet/src/Cardano/Wallet.hs b/lib/wallet/src/Cardano/Wallet.hs
@@ -838,7 +838,7 @@ readWallet
     -> ExceptT ErrNoSuchWallet IO
         (Wallet s, (WalletMetadata, WalletDelegation), Set Tx)
 readWallet ctx wid = db & \DBLayer{..} -> mapExceptT atomically $ do
-    cp <- withNoSuchWallet wid $ readCheckpoint wid
+    cp0 <- withNoSuchWallet wid $ readCheckpoint wid
     meta <- withNoSuchWallet wid $ readWalletMeta wid
     pending <- lift $ readTxHistory wid Nothing Descending wholeRange (Just Pending)
     pure (cp, meta, Set.fromList (fromTransactionInfo <$> pending))