{-|
Like 'traceShow' but returns the shown value instead of a third value.

@since 4.7.0.0
-}
traceShowId :: (Show a) => a -> a
traceShowId a = trace (show a) a
traceShowId :: (Show a) => a -> a
traceShowId a = trace (show a) a
traceShowId a = trace (show a) a