Add an undefined store for the UTxOHistory.

lib/wallet/cardano-wallet.cabal

@@ -238,6 +238,7 @@ library
     Cardano.Wallet.DB.Store.Checkpoints
     Cardano.Wallet.DB.Store.DeltaUTxO.Model
     Cardano.Wallet.DB.Store.DeltaUTxO.Model.Internal
+    Cardano.Wallet.DB.Store.DeltaUTxO.Store
     Cardano.Wallet.DB.Store.Meta.Model
     Cardano.Wallet.DB.Store.Meta.Store
     Cardano.Wallet.DB.Store.QueryStore

lib/wallet/src/Cardano/Wallet/DB/Store/DeltaUTxO/Store.hs

@@ -0,0 +1,34 @@
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.Wallet.DB.Store.DeltaUTxO.Store 
+    ( mkStoreUTxOHistory
+    ) where
+
+import Prelude
+
+import Cardano.Wallet.DB.Store.DeltaUTxO.Model
+    ( DeltaUTxOHistory (..), UTxOHistory (..) )
+import Cardano.Wallet.Primitive.Types
+    ( WalletId )
+import Data.DBVar
+    ( Store (..) )
+import Database.Persist.Sql
+    ( SqlPersistT )
+import GHC.Exception
+    ( SomeException )
+
+-- | Create a 'Store' for 'UTxOHistory' using the given 'WalletId' as a key.
+mkStoreUTxOHistory
+    :: WalletId
+    -> Store (SqlPersistT IO) DeltaUTxOHistory
+mkStoreUTxOHistory wid = Store
+    { loadS = load wid, writeS = write wid, updateS = update wid }
+
+load :: WalletId -> SqlPersistT IO (Either SomeException UTxOHistory)
+load _wid = undefined
+
+write :: WalletId -> UTxOHistory -> SqlPersistT IO ()
+write _wid = undefined
+
+update :: WalletId -> Maybe UTxOHistory -> DeltaUTxOHistory -> SqlPersistT IO ()
+update _wid = undefined