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 +)