From 877b05e05c675fa3b3c83754bd22b22b7f5737d9 Mon Sep 17 00:00:00 2001
From: Leo Sin <leo.sin@my.cityu.edu.hk>
Date: Sat, 14 Dec 2024 21:32:34 +0800
Subject: [PATCH] fix: pTraceShowWith should not call show twice

---
 src/Debug/Pretty/Simple.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Debug/Pretty/Simple.hs b/src/Debug/Pretty/Simple.hs
index 78e2f6f..5694d69 100644
--- 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