Rename and export 'updateTxSet'

cardano-foundation · Nov 29, 2022 · dd7363e · dd7363e
1 parent 1a608b6
commit dd7363e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/wallet/src/Cardano/Wallet/DB/Store/Transactions/Store.hs b/lib/wallet/src/Cardano/Wallet/DB/Store/Transactions/Store.hs
@@ -16,6 +16,7 @@ Implementation of a 'Store' for 'TxSet'.
 module Cardano.Wallet.DB.Store.Transactions.Store
     ( selectTxSet
     , putTxSet
+    , updateTxSet
     , mkStoreTransactions
     , mkDBTxSet
     , DBTxSet (..)
@@ -87,11 +88,11 @@ mkStoreTransactions =
     Store
     { loadS = Right <$> selectTxSet
     , writeS = write
-    , updateS = const update
+    , updateS = const updateTxSet
     }
 
-update :: DeltaTxSet -> SqlPersistT IO ()
-update change = case change of
+updateTxSet :: DeltaTxSet -> SqlPersistT IO ()
+updateTxSet change = case change of
     Append txs -> putTxSet txs
     DeleteTx tid -> do
         deleteWhere [TxInputTxId ==. tid ]