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

imp: lib: dlog

Browse Source
This commit is contained in:
Simon Michael 2021-11-20 07:49:41 -10:00
parent d0c937a41b
commit 3c889cb565
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -93,7 +93,7 @@ module Hledger.Utils.Debug (
,module Debug.Trace ,module Debug.Trace
,useColorOnStdout ,useColorOnStdout
,useColorOnStderr ,useColorOnStderr
) ,dlog)
where where
import Control.Monad (when) import Control.Monad (when)
@ -305,6 +305,10 @@ ptraceAtWith level f
-- in trace (s++":"++nlorspace++intercalate "\n" ls') a -- in trace (s++":"++nlorspace++intercalate "\n" ls') a
in trace p a in trace p a
-- | Log a pretty-printed showable value to "./debug.log". Uses unsafePerformIO.
dlog :: Show a => a -> a
dlog x = unsafePerformIO $ appendFile "debug.log" (pshow x ++ "\n") >> return x
-- "dbg" would clash with megaparsec. -- "dbg" would clash with megaparsec.
-- | Pretty-print a label and the showable value to the console, then return it. -- | Pretty-print a label and the showable value to the console, then return it.
dbg0 :: Show a => String -> a -> a dbg0 :: Show a => String -> a -> a