module Store.Debug ( debug, ) where import Debug.Trace (trace) import Text.Printf (printf) debug :: Show a => String -> a -> a debug s x = trace (printf "%s: %s" s (show x)) x