wip

input-output-hk · Apr 16, 2024 · 16ae2a7 · 16ae2a7
1 parent 5c17d9b
commit 16ae2a7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
+            _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
@@ -599,4 +599,4 @@ scriptTxOutRef = "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 
 -- | A dummy TxOut reference.
 fundingTxOutRef :: Int -> Chain.TxOutRef
-fundingTxOutRef = fromString . ("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF#" <>) . show . (2 +)
+fundingTxOutRef = fromString . ("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF#" <>) . show . (2 +)