path: root/app/Debug.hs

module 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