From 5c972ef00c0cea15678e638bf0b734cc577e2d4c Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Mon, 19 Nov 2012 21:17:43 +0000 Subject: [PATCH] more correct debug util name --- hledger-lib/Hledger/Utils.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger-lib/Hledger/Utils.hs b/hledger-lib/Hledger/Utils.hs index 072224379..a55cc5763 100644 --- a/hledger-lib/Hledger/Utils.hs +++ b/hledger-lib/Hledger/Utils.hs @@ -326,9 +326,9 @@ treeFromPaths = foldl' mergeTrees emptyTree . map treeFromPath strace :: Show a => a -> a strace a = trace (show a) a --- | labelled trace - like strace, with a label prepended -ltrace :: Show a => String -> a -> a -ltrace l a = trace (l ++ ": " ++ show a) a +-- | labelled trace showable - like strace, with a label prepended +lstrace :: Show a => String -> a -> a +lstrace l a = trace (l ++ ": " ++ show a) a -- | monadic trace - like strace, but works as a standalone line in a monad mtrace :: (Monad m, Show a) => a -> m a