app/Debug.hs


1
2
3
4
5
6
7

module Debug where

import Debug.Trace (trace)
import Text.Printf (printf)

debug :: Show a => String -> a -> a
debug s x = trace (printf "%s: %s\n" s (show x)) x