diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2018-04-19 11:45:46 +0200 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2018-04-19 11:45:46 +0200 |
| commit | af425841a63ee73603cc09510d95a36e646ddafd (patch) | |
| tree | 08a1ef8435ec0ab07887256a1c86f908c2389a1a /Debug.hs | |
| parent | 8d9d27d64d9e39ea76fd878e928e553944735e45 (diff) | |
Build with stack
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..437f91a --- /dev/null +++ b/Debug.hs @@ -0,0 +1,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 |