1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
{-# 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