use correct timestamps in status headers

input-output-hk · Jun 26, 2023 · 7f1b490 · 7f1b490
1 parent 6966b4d
commit 7f1b490
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