add scaffolding for getSharedWallet endpoint

cardano-foundation · Apr 6, 2021 · 1e9f7ac · 1e9f7ac
1 parent f0b692e
commit 1e9f7ac
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 4 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Api.hs b/lib/core/src/Cardano/Wallet/Api.hs
@@ -839,13 +839,19 @@ type GetCurrentSMASHHealth = "smash"
 -------------------------------------------------------------------------------}
 
 type SharedWallets =
-    PostSharedWallet
+         PostSharedWallet
+    :<|> GetSharedWallet
 
 -- | https://input-output-hk.github.io/cardano-wallet/api/#operation/postSharedWallet
 type PostSharedWallet = "shared-wallets"
     :> ReqBody '[JSON] ApiSharedWalletPostData
     :> PostCreated '[JSON] ApiSharedWallet
 
+-- | https://input-output-hk.github.io/cardano-wallet/api/#operation/getSharedWallet
+type GetSharedWallet = "shared-wallets"
+    :> Capture "walletId" (ApiT WalletId)
+    :> Get '[JSON] ApiSharedWallet
+
 {-------------------------------------------------------------------------------
                                    Proxy_
 

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Api/Server.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Api/Server.hs
@@ -228,7 +228,7 @@ server byron icarus shelley spl ntp =
     :<|> proxy
     :<|> settingS
     :<|> smash
-    :<|> shareWallets
+    :<|> sharedWallets
   where
     wallets :: Server Wallets
     wallets = deleteWallet shelley
@@ -488,8 +488,12 @@ server byron icarus shelley spl ntp =
                 FetchSMASH smashServer -> getHealth smashServer
                 _ -> pure (ApiHealthCheck NoSmashConfigured)
 
-    shareWallets :: Server SharedWallets
-    shareWallets = pure $ throwError err501
+    sharedWallets :: Server SharedWallets
+    sharedWallets =
+        postSharedWallet :<|> getSharedWallet
+      where
+         postSharedWallet = pure $ throwError err501
+         getSharedWallet = pure $ throwError err501
 
 postAnyAddress
     :: NetworkId