From 7f1b49048ec186f1e6aa5039dac27a370d706d73 Mon Sep 17 00:00:00 2001 From: Jamie Bertram Date: Mon, 26 Jun 2023 08:51:21 -0400 Subject: [PATCH] use correct timestamps in status headers --- .../server/Language/Marlowe/Runtime/Web/Server/DTO.hs | 8 ++++---- 1 file changed, 4 insertions(+), 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 index cffa99c31e..dd477f5dca 100644 --- 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