From c9feb269f53e125bed31b2190cc04d4afa35b387 Mon Sep 17 00:00:00 2001 From: Phil de Joux Date: Thu, 19 Dec 2024 05:43:59 -0500 Subject: [PATCH] Forward conversion applied twice by mistake --- cabal-testsuite/src/Test/Cabal/Prelude.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cabal-testsuite/src/Test/Cabal/Prelude.hs b/cabal-testsuite/src/Test/Cabal/Prelude.hs index 9a8dab2c49a..d84d7f7ce8a 100644 --- a/cabal-testsuite/src/Test/Cabal/Prelude.hs +++ b/cabal-testsuite/src/Test/Cabal/Prelude.hs @@ -799,7 +799,7 @@ recordMode mode = withReaderT (\env -> env { assertOutputContainsOn :: MonadIO m => WithCallStack ((String -> String) -> (String -> String) -> (String -> String) -> (String -> String) -> String -> Result -> m ()) assertOutputContainsOn unN n unO o (n -> needle) (o . resultOutput -> output) = withFrozenCallStack $ - unless (n needle `isInfixOf` output) $ + unless (needle `isInfixOf` output) $ assertFailure $ "expected:\n" ++ unN needle ++ "\nin output:\n" ++ unO output