From 16ae2a725f43bdb775650bb6fe8195527e701373 Mon Sep 17 00:00:00 2001 From: zeme Date: Tue, 16 Apr 2024 10:02:18 +0200 Subject: [PATCH] wip --- .../test/Language/Marlowe/Runtime/Transaction/SafetySpec.hs | 2 +- .../tx/Language/Marlowe/Runtime/Transaction/Safety.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/SafetySpec.hs b/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/SafetySpec.hs index 5a7adbea55..31d81795b4 100644 --- a/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/SafetySpec.hs +++ b/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/SafetySpec.hs @@ -674,4 +674,4 @@ spec = -- An ambiguous time interval occurs when the timeouts have non-zero milliseconds are too close for there to be a valid slot for a transaction. Left "ApplyInputsConstraintsBuildupFailed (MarloweComputeTransactionFailed TEAmbiguousTimeIntervalError)" -> pure () -- All other results are test failures. - _otherwise -> expectationFailure $ "Unexpected result: " <> show actual \ No newline at end of file + _otherwise -> expectationFailure $ "Unexpected result: " <> show actual diff --git a/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Safety.hs b/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Safety.hs index 56a0780354..33a57546ad 100644 --- a/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Safety.hs +++ b/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Safety.hs @@ -599,4 +599,4 @@ scriptTxOutRef = "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF -- | A dummy TxOut reference. fundingTxOutRef :: Int -> Chain.TxOutRef -fundingTxOutRef = fromString . ("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF#" <>) . show . (2 +) \ No newline at end of file +fundingTxOutRef = fromString . ("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF#" <>) . show . (2 +)