Merge pull request #132 from leoslf/master

fix: pTraceShowWith should not call show twice
cdepillabout · Dec 16, 2024 · 10a64d3 · 10a64d3
2 parents 95e9e27 + 877b05e
commit 10a64d3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Debug/Pretty/Simple.hs b/src/Debug/Pretty/Simple.hs
@@ -290,7 +290,7 @@ pTraceWith f a = pTrace (f a) a
 -- @since ?
 {-# WARNING pTraceShowWith "'pTraceShowWith' remains in code" #-}
 pTraceShowWith :: Show b => (a -> b) -> a -> a
-pTraceShowWith f = (show . f) >>= pTraceShow
+pTraceShowWith f = pTraceWith (show . f)
 
 ------------------------------------------
 -- Helpers