slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages 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 :: Show a => String -> a -> a
ltrace l a = trace (l ++ ": " ++ show 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 -- parsing
parsewith :: Parser a -> String -> Either ParseError a parsewith :: Parser a -> String -> Either ParseError a