module HaskellWorks.Data.BalancedParens.Internal.Trace
  ( traceW
  ) where

import Debug.Trace

traceW :: Show a => String -> a -> a
traceW :: forall a. Show a => String -> a -> a
traceW String
s a
a = forall a. String -> a -> a
trace (String
s forall a. Semigroup a => a -> a -> a
<> String
" = " forall a. Semigroup a => a -> a -> a
<> forall a. Show a => a -> String
show a
a) a
a