Merge pull request #635 from input-output-hk/jhbertra/fix-status-times

use correct timestamps in status headers
input-output-hk · Jun 26, 2023 · 2ac29a9 · 2ac29a9
2 parents 6966b4d + 7f1b490
commit 2ac29a9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/marlowe-runtime-web/server/Language/Marlowe/Runtime/Web/Server/DTO.hs b/marlowe-runtime-web/server/Language/Marlowe/Runtime/Web/Server/DTO.hs
@@ -738,11 +738,11 @@ instance ToDTO RuntimeStatus where
           Chain.Genesis -> Web.ChainTipGenesis nodeTipUTC
           Chain.At blockHeader -> Web.ChainTip (toDTO blockHeader) nodeTipUTC
       , runtimeChainTip = case runtimeChainTip of
-          Chain.Genesis -> Web.ChainTipGenesis nodeTipUTC
-          Chain.At blockHeader -> Web.ChainTip (toDTO blockHeader) nodeTipUTC
+          Chain.Genesis -> Web.ChainTipGenesis runtimeChainTipUTC
+          Chain.At blockHeader -> Web.ChainTip (toDTO blockHeader) runtimeChainTipUTC
       , runtimeTip = case runtimeTip of
-          Chain.Genesis -> Web.ChainTipGenesis nodeTipUTC
-          Chain.At blockHeader -> Web.ChainTip (toDTO blockHeader) nodeTipUTC
+          Chain.Genesis -> Web.ChainTipGenesis runtimeTipUTC
+          Chain.At blockHeader -> Web.ChainTip (toDTO blockHeader) runtimeTipUTC
       , networkId = case networkId of
           Mainnet -> Web.Mainnet
           Testnet (NetworkMagic n) -> Web.Testnet n