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

more correct debug util name

Browse Source
This commit is contained in:
Simon Michael 2012-11-19 21:17:43 +00:00
parent 7d53ae8817
commit 5c972ef00c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -326,9 +326,9 @@ treeFromPaths = foldl' mergeTrees emptyTree . map treeFromPath
strace :: Show a => a -> a strace :: Show a => a -> a
strace a = trace (show a) a strace a = trace (show a) a
-- | labelled trace - like strace, with a label prepended -- | labelled trace showable - like strace, with a label prepended
ltrace :: Show a => String -> a -> a lstrace :: Show a => String -> a -> a
ltrace l a = trace (l ++ ": " ++ show a) a lstrace l a = trace (l ++ ": " ++ show a) a
-- | monadic trace - like strace, but works as a standalone line in a monad -- | monadic trace - like strace, but works as a standalone line in a monad
mtrace :: (Monad m, Show a) => a -> m a mtrace :: (Monad m, Show a) => a -> m a