Export a deposit public identity type from REST api

Author: paolino

lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/IO.hs

@@ -6,6 +6,7 @@ module Cardano.Wallet.Deposit.IO
     -- * Types
       WalletEnv (..)
     , WalletBootEnv (..)
+    , WalletPublicIdentity (..)
     , WalletInstance
 
     -- * Operations
@@ -29,6 +30,7 @@ module Cardano.Wallet.Deposit.IO
     , getBIP32PathsForOwnedInputs
     , signTxBody
     , WalletStore
+    , walletPublicIdentity
     ) where
 
 import Prelude
@@ -193,6 +195,18 @@ createAddress c w =
             let (r,s1) = Wallet.createAddress c s0
             in  (Delta.Replace s1, r)
 
+data WalletPublicIdentity = WalletPublicIdentity
+    { pubXpub :: XPub
+    , pubNextUser :: Word31
+    }
+
+walletPublicIdentity :: WalletInstance -> IO WalletPublicIdentity
+walletPublicIdentity w = do
+    state <- readWalletState w
+    pure $ WalletPublicIdentity
+        { pubXpub = Wallet.walletXPub state
+        , pubNextUser = Wallet.nextCustomer state
+        }
 {-----------------------------------------------------------------------------
     Operations
     Reading from the blockchain

lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure.hs

@@ -38,6 +38,8 @@ module Cardano.Wallet.Deposit.Pure
 
     , addTxSubmission
     , listTxsInSubmission
+    , nextCustomer
+    , walletXPub
     ) where
 
 import Prelude
@@ -83,6 +85,7 @@ import qualified Cardano.Wallet.Deposit.Pure.UTxOHistory as UTxOHistory
 import qualified Cardano.Wallet.Deposit.Read as Read
 import qualified Cardano.Wallet.Deposit.Write as Write
 import qualified Data.Delta as Delta
+import qualified Data.Map as Map
 import qualified Data.Set as Set
 
 {-----------------------------------------------------------------------------
@@ -137,6 +140,12 @@ isCustomerAddress address =
 fromRawCustomer :: Word31 -> Customer
 fromRawCustomer = id
 
+nextCustomer :: WalletState -> Customer
+nextCustomer = maybe 0 snd . Map.lookupMax . Address.addresses . addresses
+
+walletXPub :: WalletState -> XPub
+walletXPub  = Address.getXPub . addresses
+
 {-----------------------------------------------------------------------------
     Operations
     Reading from the blockchain

lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/REST.hs

@@ -43,6 +43,7 @@ module Cardano.Wallet.Deposit.REST
     , getBIP32PathsForOwnedInputs
     , signTxBody
     , walletExists
+    , walletPublicIdentity
     ) where
 
 import Prelude
@@ -57,6 +58,9 @@ import Cardano.Crypto.Wallet
 import Cardano.Wallet.Address.BIP32
     ( BIP32Path
     )
+import Cardano.Wallet.Deposit.IO
+    ( WalletPublicIdentity
+    )
 import Cardano.Wallet.Deposit.IO.Resource
     ( ErrResourceExists (..)
     , ErrResourceMissing (..)
@@ -315,6 +319,9 @@ walletExists fp = liftIO $ findTheDepositWalletOnDisk fp $ \case
     Right _ -> pure True
     Left _ -> pure False
 
+walletPublicIdentity :: WalletResourceM WalletPublicIdentity
+walletPublicIdentity = onWalletInstance  WalletIO.walletPublicIdentity
+
 {-----------------------------------------------------------------------------
     Operations
 ------------------------------------------------------------------------------}