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

import Debug.Trace

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