add getWalletKey to api link

cardano-foundation · Oct 13, 2020 · 4b29f53 · 4b29f53
1 parent cc98a3b
commit 4b29f53
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Wallet/Api/Link.hs b/lib/core/src/Cardano/Wallet/Api/Link.hs
@@ -48,6 +48,9 @@ module Cardano.Wallet.Api.Link
     , getMigrationInfo
     , migrateWallet
 
+     -- * WalletKeys
+    , getWalletKey
+
       -- * Addresses
     , postRandomAddress
     , putRandomAddresses
@@ -104,7 +107,14 @@ import Cardano.Wallet.Api.Types
 import Cardano.Wallet.Primitive.AddressDerivation
     ( NetworkDiscriminant (..) )
 import Cardano.Wallet.Primitive.Types
-    ( AddressState, Coin (..), Hash, PoolId, SortOrder, WalletId (..) )
+    ( AddressState
+    , Coin (..)
+    , DerivationIndex
+    , Hash
+    , PoolId
+    , SortOrder
+    , WalletId (..)
+    )
 import Data.Function
     ( (&) )
 import Data.Generics.Internal.VL.Lens
@@ -255,6 +265,22 @@ getMigrationInfo w = discriminate @style
   where
     wid = w ^. typed @(ApiT WalletId)
 
+--
+-- WalletKeys
+--
+
+getWalletKey
+    :: forall w.
+        ( HasType (ApiT WalletId) w
+        )
+    => w
+    -> ApiT DerivationIndex
+    -> (Method, Text)
+getWalletKey w index =
+    endpoint @Api.GetWalletKey (\mk -> mk wid index)
+  where
+    wid = w ^. typed @(ApiT WalletId)
+
 --
 -- Addresses
 --

diff --git a/lib/core/src/Cardano/Wallet/Primitive/Types.hs b/lib/core/src/Cardano/Wallet/Primitive/Types.hs
@@ -1194,6 +1194,9 @@ instance NFData DerivationIndex
 instance FromText DerivationIndex where
     fromText = fmap DerivationIndex . fromText
 
+instance ToText DerivationIndex where
+    toText (DerivationIndex index) = toText index
+
 {-------------------------------------------------------------------------------
                                      Coin
 -------------------------------------------------------------------------------}