21 lines
493 B
Haskell
21 lines
493 B
Haskell
module Debug
|
|
( trace
|
|
, _trace
|
|
, traceList
|
|
,_traceList
|
|
) where
|
|
|
|
import Data.List
|
|
import qualified Debug.Trace as Trace
|
|
|
|
trace :: Show a => String -> a -> a
|
|
trace message x = Trace.trace (message ++ " = " ++ show x) x
|
|
|
|
_trace :: String -> a -> a
|
|
_trace _ = id
|
|
|
|
traceList :: Show a => String -> [a] -> [a]
|
|
traceList message xs = Trace.trace (message ++ " = [\n\t" ++ intercalate "\n\t" (map show xs) ++ "\n]") xs
|
|
|
|
_traceList :: Show a => String -> [a] -> [a]
|
|
_traceList _ = id |