Skip to content

Commit

Permalink
Use bracket_ in withoutLinewrap
Browse files Browse the repository at this point in the history
Co-authored-by: ˌbodʲɪˈɡrʲim <[email protected]>
  • Loading branch information
edmundnoble and Bodigrim committed Nov 21, 2024
1 parent b9c18a6 commit c304f94
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion core/Test/Tasty/Ingredients/ConsoleReporter.hs
Original file line number Diff line number Diff line change
Expand Up @@ -232,7 +232,7 @@ buildTestOutput opts tree =
withoutLineWrap :: IO () -> IO ()
#if MIN_VERSION_ansi_terminal(1,1,2)
withoutLineWrap m | getAnsiTricks =
bracket disableLineWrap (\_ -> enableLineWrap) (\_ -> m)
bracket_ disableLineWrap enableLineWrap m
#endif
withoutLineWrap m = m

Expand Down

0 comments on commit c304f94

Please sign in to comment.