[RCD-49] Fix unwrapped API response for /api/internal/next-update

input-output-hk · Nov 22, 2018 · b1c7a5c · b1c7a5c
1 parent edf53bb
commit b1c7a5c
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/wallet-new/src/Cardano/Wallet/API/Internal.hs b/wallet-new/src/Cardano/Wallet/API/Internal.hs
@@ -14,7 +14,7 @@ import           Cardano.Wallet.API.V1.Types (V1, Wallet, WalletImport)
 type API = Tags '["Internal"] :>
     (    "next-update"
         :> Summary "Version of the next update (404 if none)"
-        :> Get '[ValidJSON] (V1 SoftwareVersion)
+        :> Get '[ValidJSON] (WalletResponse (V1 SoftwareVersion))
 
     :<|> "apply-update"
         :> Summary "Apply the next available update"

diff --git a/wallet-new/src/Cardano/Wallet/API/Internal/Handlers.hs b/wallet-new/src/Cardano/Wallet/API/Internal/Handlers.hs
@@ -19,11 +19,11 @@ handlers w = nextUpdate       w
         :<|> resetWalletState w
         :<|> importWallet     w
 
-nextUpdate :: PassiveWalletLayer IO -> Handler (V1 SoftwareVersion)
+nextUpdate :: PassiveWalletLayer IO -> Handler (WalletResponse (V1 SoftwareVersion))
 nextUpdate w = do
     mUpd <- liftIO $ WalletLayer.nextUpdate w
     case mUpd of
-      Just upd -> return upd
+      Just upd -> return $ single upd
       Nothing  -> throwError err404
 
 applyUpdate :: PassiveWalletLayer IO -> Handler NoContent

diff --git a/wallet-new/src/Cardano/Wallet/Client.hs b/wallet-new/src/Cardano/Wallet/Client.hs
@@ -150,7 +150,7 @@ data WalletClient m
 
     -- Internal API
     , nextUpdate
-        :: m (Either ClientError (V1 SoftwareVersion))
+        :: Resp m (V1 SoftwareVersion)
     , applyUpdate
         :: m (Either ClientError ())
     , postponeUpdate