Implement new node settings using coupled NodeStateAdaptor

Author: KtorZ

wallet/src/Cardano/Wallet/WalletLayer/Kernel/Settings.hs

@@ -1,3 +1,5 @@
+{-# LANGUAGE LambdaCase #-}
+
 module Cardano.Wallet.WalletLayer.Kernel.Settings (
     getNodeSettings
   ) where
@@ -7,29 +9,43 @@ import           Universum
 import qualified Data.Text as T
 import           Data.Time.Units (Millisecond)
 
+import           Pos.Core (TxFeePolicy (..))
+import qualified Pos.Node.API as Node
 import           Pos.Util.CompileInfo (CompileTimeInfo, ctiGitRevision)
 
 import           Cardano.Wallet.API.V1.Types (V1 (..))
 import qualified Cardano.Wallet.API.V1.Types as V1
 import qualified Cardano.Wallet.Kernel.Internal as Kernel
 import           Cardano.Wallet.Kernel.NodeStateAdaptor (NodeStateAdaptor)
-import qualified Cardano.Wallet.Kernel.NodeStateAdaptor as Node
+import qualified Cardano.Wallet.Kernel.NodeStateAdaptor as KNode
 
 import           Paths_cardano_wallet (version)
 
 getNodeSettings :: MonadIO m => Kernel.PassiveWallet -> m V1.NodeSettings
 getNodeSettings w = liftIO $
     V1.NodeSettings
-        <$> (mkSlotDuration <$> Node.getNextEpochSlotDuration node)
-        <*> (V1 <$> Node.curSoftwareVersion node)
+        <$> (V1 <$> KNode.getTipSlotId node)
+        <*> (mkSlotDuration <$> KNode.getNextEpochSlotDuration node)
+        <*> (V1 <$> KNode.getSlotCount node)
+        <*> (V1 <$> KNode.curSoftwareVersion node)
         <*> pure (V1 version)
-        <*> (mkGitRevision <$> Node.compileInfo node)
+        <*> (mkGitRevision <$> KNode.compileInfo node)
+        <*> (Node.mkMaxTxSize . fromIntegral <$> KNode.getMaxTxSize node)
+        <*> (Node.fromCorePolicy <$> (KNode.getFeePolicy node >>= mkFeePolicy))
+        <*> (mkSecurityParameter <$> KNode.getSecurityParameter node)
   where
     mkSlotDuration :: Millisecond -> V1.SlotDuration
     mkSlotDuration = V1.mkSlotDuration . fromIntegral
 
     mkGitRevision :: CompileTimeInfo -> Text
     mkGitRevision = T.replace "\n" mempty . ctiGitRevision
 
+    mkSecurityParameter (KNode.SecurityParameter i) =
+        Node.SecurityParameter i
+
+    mkFeePolicy = \case
+        TxFeePolicyTxSizeLinear a -> return a
+        _ -> fail "getNodeSettings: Unsupported / Unknown fee policy."
+
     node :: NodeStateAdaptor IO
     node = w ^. Kernel.walletNode