fix: pTraceShowWith should not call show twice

[leoslf]

Changes

• fix: pTraceShowWith should pTraceWith instead of pTraceShow since calling pTraceShow after show would make the shown result double-quoted

[cdepillabout]

Thanks, this seems to make sense to me.

On master:

> import Debug.Trace
> traceShowWith (+ 1) (100 :: Int)
101
100
> pTraceShowWith (+ 1) (100 :: Int)
"101"
100

With this PR:

> pTraceShowWith (+ 1) (100 :: Int)
101
100

You can see that with this PR, pTraceShowWith doesn't add an extra layer of quoting, in line with traceShowWith.

[cdepillabout]

Thanks!