simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

tracewith

Browse Source
This commit is contained in:
Simon Michael 2009-06-05 10:41:57 +00:00
parent 1570b4efcb
commit 43549704c0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Ledger/Utils.hs
View File

@ -230,6 +230,9 @@ strace a = trace (show a) a
ltrace :: Show a => String -> a -> a
ltrace l a = trace (l ++ ": " ++ show a) a
-- | trace an expression using a custom show function
tracewith f e = trace (f e) e
-- parsing
parsewith :: Parser a -> String -> Either ParseError a