add ApiNetworkClock and endpoint skeloton

lib/core/cardano-wallet-core.cabal

@@ -67,6 +67,7 @@ library
     , memory
     , monad-logger
     , network
+    , ntp-client
     , OddWord
     , path-pieces
     , persistent

lib/core/src/Cardano/Wallet/Api.hs

@@ -65,6 +65,7 @@ module Cardano.Wallet.Api
     , Network
         , GetNetworkInformation
         , GetNetworkParameters
+        , GetNetworkClock
 
     , Proxy_
         , PostExternalTransaction
@@ -88,6 +89,7 @@ import Cardano.Wallet.Api.Types
     , ApiCoinSelection
     , ApiEpochNumber
     , ApiFee
+    , ApiNetworkClock
     , ApiNetworkInformation
     , ApiNetworkParameters
     , ApiNetworkTip
@@ -439,6 +441,7 @@ type GetByronWalletMigrationInfo = "byron-wallets"
 type Network =
          GetNetworkInformation
     :<|> GetNetworkParameters
+    :<|> GetNetworkClock
 
 type GetNetworkInformation = "network"
     :> "information"
@@ -449,6 +452,10 @@ type GetNetworkParameters = "network"
     :> Capture "epochId" ApiEpochNumber
     :> Get '[JSON] ApiNetworkParameters
 
+type GetNetworkClock = "network"
+    :> "clock"
+    :> Get '[JSON] ApiNetworkClock
+
 {-------------------------------------------------------------------------------
                                    Proxy_
 

lib/core/src/Cardano/Wallet/Api/Types.hs

@@ -65,6 +65,7 @@ module Cardano.Wallet.Api.Types
     , AddressAmount (..)
     , ApiErrorCode (..)
     , ApiNetworkInformation (..)
+    , ApiNetworkClock (..)
     , ApiBlockReference (..)
     , ApiNetworkTip (..)
     , Iso8601Time (..)
@@ -217,6 +218,8 @@ import GHC.Generics
     ( Generic )
 import GHC.TypeLits
     ( Nat, Symbol )
+import Network.NTP.Query
+    ( NtpStatus )
 import Numeric.Natural
     ( Natural )
 import Servant.API
@@ -479,6 +482,10 @@ data ApiNetworkInformation = ApiNetworkInformation
     , networkTip :: !ApiNetworkTip
     } deriving (Eq, Generic, Show)
 
+newtype ApiNetworkClock = ApiNetworkClock
+    { ntpStatus :: !(ApiT NtpStatus)
+    } deriving (Eq, Generic, Show)
+
 -- | Error codes returned by the API, in the form of snake_cased strings
 data ApiErrorCode
     = NoSuchWallet

stack.yaml

@@ -117,6 +117,7 @@ extra-deps:
     - ouroboros-consensus
     - typed-protocols
     - typed-protocols-cbor
+    - ntp-client
 
 flags:
   # Avoid a system library which causes difficulty with cross-compilation