fix: pTraceShowWith should not call show twice

cdepillabout · Dec 14, 2024 · 877b05e · 877b05e
1 parent 95e9e27
commit 877b05e
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