slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

type signature

Browse Source
This commit is contained in:
Simon Michael 2011-08-07 22:29:47 +00:00
parent 20a45c538d
commit b783f25fa8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-lib/Hledger/Utils.hs
View File

@ -332,6 +332,7 @@ mtrace :: (Monad m, Show a) => a -> m a
mtrace a = strace a `seq` return a mtrace a = strace a `seq` return a
-- | trace an expression using a custom show function -- | trace an expression using a custom show function
tracewith :: (a -> String) -> a -> a
tracewith f e = trace (f e) e tracewith f e = trace (f e) e
-- parsing -- parsing