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

Author: KtorZ

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"

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

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