implement the server handler

cardano-foundation · Aug 10, 2022 · fe28866 · fe28866
1 parent 153df3c
commit fe28866
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 3 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Api/Server.hs b/lib/core/src/Cardano/Wallet/Api/Server.hs
@@ -98,6 +98,7 @@ module Cardano.Wallet.Api.Server
     , postPolicyId
     , constructSharedTransaction
     , decodeSharedTransaction
+    , getBlocksLatestHeader
 
     -- * Server error responses
     , IsServerError(..)
@@ -119,7 +120,8 @@ module Cardano.Wallet.Api.Server
 
     -- * Logging
     , WalletEngineLog (..)
-    ) where
+    )
+    where
 
 import Prelude
 
@@ -338,6 +340,8 @@ import Cardano.Wallet.Api.Types
     , toApiNetworkParameters
     , toApiUtxoStatistics
     )
+import Cardano.Wallet.Api.Types.BlockHeader
+    ( ApiBlockHeader, mkApiBlockHeader )
 import Cardano.Wallet.Api.Types.SchemaMetadata
     ( TxMetadataSchema (..), TxMetadataWithSchema (TxMetadataWithSchema) )
 import Cardano.Wallet.CoinSelection
@@ -678,7 +682,8 @@ import qualified Cardano.Wallet.Primitive.Types.TokenBundle as TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.TokenMap as TokenMap
 import qualified Cardano.Wallet.Primitive.Types.Tx as W
 import qualified Cardano.Wallet.Primitive.Types.UTxO as UTxO
-import qualified Cardano.Wallet.Primitive.Types.UTxOIndex as UTxOIndex
+import qualified Cardano.Wallet.Primitive.Types.UTxOIndex.Internal as UTxOIndex
+    ( toMap )
 import qualified Cardano.Wallet.Primitive.Types.UTxOSelection as UTxOSelection
 import qualified Cardano.Wallet.Registry as Registry
 import qualified Control.Concurrent.Concierge as Concierge
@@ -3769,6 +3774,8 @@ getNetworkParameters (_block0, genesisNp) nl tl = do
 getNetworkClock :: NtpClient -> Bool -> Handler ApiNetworkClock
 getNetworkClock client = liftIO . getNtpStatus client
 
+getBlocksLatestHeader :: NetworkLayer IO Block -> Handler ApiBlockHeader
+getBlocksLatestHeader nl = liftIO $ mkApiBlockHeader <$> NW.currentNodeTip nl
 {-------------------------------------------------------------------------------
                                Miscellaneous
 -------------------------------------------------------------------------------}

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Api/Server.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Api/Server.hs
@@ -75,6 +75,7 @@ import Cardano.Wallet.Api.Server
     , getAccountPublicKey
     , getAsset
     , getAssetDefault
+    , getBlocksLatestHeader
     , getCurrentEpoch
     , getNetworkClock
     , getNetworkInformation
@@ -158,6 +159,8 @@ import Cardano.Wallet.Api.Types
     , SettingsPutData (..)
     , SomeByronWalletPostData (..)
     )
+import Cardano.Wallet.Api.Types.BlockHeader
+    ( ApiBlockHeader )
 import Cardano.Wallet.Api.Types.SchemaMetadata
     ( TxMetadataSchema (..), parseSimpleMetadataFlag )
 import Cardano.Wallet.Primitive.AddressDerivation
@@ -266,7 +269,7 @@ server byron icarus shelley multisig spl ntp blockchainSource =
     :<|> sharedWalletKeys multisig
     :<|> sharedAddresses multisig
     :<|> sharedTransactions multisig
-    :<|> error "not implemented"
+    :<|> blocks
   where
     wallets :: Server Wallets
     wallets = deleteWallet shelley
@@ -619,6 +622,9 @@ server byron icarus shelley multisig spl ntp blockchainSource =
             (knownPools spl) (getPoolLifeCycleStatus spl)
         :<|> decodeSharedTransaction apilayer
 
+    blocks :: Handler ApiBlockHeader
+    blocks = getBlocksLatestHeader (shelley ^. networkLayer)
+
 postAnyAddress
     :: NetworkId
     -> ApiAddressData