Forward conversion applied twice by mistake

haskell · Dec 19, 2024 · c9feb26 · c9feb26
1 parent 54dcc81
commit c9feb26
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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