{-# LANGUAGE CPP #-} module Debug where #if 0 import qualified Debug.Trace as Trace trace :: String -> a -> a trace = Trace.trace traceShow :: (Show a) => a -> b -> b traceShow = Trace.traceShow #else trace :: String -> a -> a trace = flip const traceShow :: a -> b -> b traceShow = flip const #endif