Update client for the new methods

Author: parsonsmatt

node/src/Cardano/Node/Client.hs

@@ -10,6 +10,9 @@ module Cardano.Node.Client
     -- * HTTP instance
     , NodeHttpClient
     , mkHttpClient
+    -- * Deprecated
+    , applyUpdate
+    , postponeUpdate
     ) where
 
 import           Universum
@@ -22,9 +25,10 @@ import           Servant.Client (BaseUrl (..), ClientEnv (..), ClientM,
                      GenResponse (..), ServantError, client, runClientM)
 import qualified Servant.Client as Servant
 
+import qualified Pos.Chain.Update as Core
 import           Cardano.Node.API (nodeV1Api)
 import           Pos.Chain.Txp (Utxo)
-import           Pos.Node.API (ForceNtpCheck, NodeInfo, NodeSettings)
+import           Pos.Node.API (ForceNtpCheck, NodeInfo, NodeSettings, V1)
 import           Pos.Util.Jsend (ResponseStatus (..))
 import           Pos.Util.Servant (APIResponse (..))
 import           Pos.Web.Types (CConfirmedProposalState)
@@ -47,14 +51,25 @@ data NodeClient m
         :: ForceNtpCheck
         -> m NodeInfo
 
-    , applyUpdate
+    , restartNode
         :: m ()
 
-    , postponeUpdate
-        :: m ()
+    , getNextUpdate
+        :: m (V1 Core.SoftwareVersion)
     } deriving (Generic)
 
 
+-- | A backwards compatibility wrapper for 'restartNode'.
+applyUpdate :: NodeClient m -> m ()
+applyUpdate = restartNode
+{-# DEPRECATED applyUpdate "Use 'restartNode' instead." #-}
+
+-- | 'postponeUpdate' was removed from the API. This is a backwards
+-- compatibility wrapper that is deprecated.
+postponeUpdate :: Applicative m => NodeClient n -> m ()
+postponeUpdate _ = pure ()
+{-# DEPRECATED postponeUpdate "This endpoint was turned into a noop." #-}
+
 data ClientError a
     = KnownError a
     | ErrFromServant Servant.ServantError
@@ -92,10 +107,10 @@ mkHttpClient baseUrl manager = NodeClient
         fmap wrData $ run getNodeSettingsR
     , getNodeInfo =
         fmap wrData . run . getNodeInfoR
-    , applyUpdate =
-        void $ run applyUpdateR
-    , postponeUpdate =
-        void $ run postponeUpdateR
+    , getNextUpdate =
+        wrData <$> run getNextUpdateR
+    , restartNode =
+        void $ run restartNodeR
     }
   where
     run :: forall a. ClientM a -> ExceptT (ClientError ()) IO a
@@ -107,8 +122,8 @@ mkHttpClient baseUrl manager = NodeClient
 
     (       getNodeSettingsR
      :<|>   getNodeInfoR
-     :<|>   applyUpdateR
-     :<|>   postponeUpdateR
+     :<|>   getNextUpdateR
+     :<|>   restartNodeR
      ):<|>( getUtxoR
      :<|>   getConfirmedProposalsR
      ) = client nodeV1Api