diff options
author | tomsmeding <tom.smeding@gmail.com> | 2016-06-16 23:24:47 +0200 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2016-06-16 23:24:47 +0200 |
commit | dd3db844dd49451f28d044cd1d2fd71430d73686 (patch) | |
tree | cd76d7ad6efbf2d2e4760695d39cb48bb479a936 /debug.hs |
Initial
Diffstat (limited to 'debug.hs')
-rw-r--r-- | debug.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/debug.hs b/debug.hs new file mode 100644 index 0000000..33ca1b0 --- /dev/null +++ b/debug.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE CPP #-} + +module Debug where + +#if 1 + +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 |