mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
ltrace, labelled trace
This commit is contained in:
parent
931144a12d
commit
0693723aee
@ -215,6 +215,10 @@ showforest = concatMap showtree
|
||||
strace :: Show a => a -> a
|
||||
strace a = trace (show a) a
|
||||
|
||||
-- | labelled trace - like strace, with a newline and a label prepended
|
||||
ltrace :: Show a => String -> a -> a
|
||||
ltrace l a = trace ("\n" ++ l ++ ": " ++ show a) a
|
||||
|
||||
-- testing
|
||||
|
||||
assertequal e a = assertEqual "" e a
|
||||
|
Loading…
Reference in New Issue
Block a user