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

lib: debug output now respects --color/NO_COLOR/ANSI support

Browse Source 
Debug output now selects color or monochrome in the same way as normal
output.
This commit is contained in:
Simon Michael 2021-04-13 14:06:02 -10:00
parent 5e57cfb43e
commit 2b04b76448
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -116,12 +116,14 @@ import System.Console.ANSI (hSupportsANSIColor)
import System.IO (stdout) import System.IO (stdout)
prettyopts = prettyopts =
defaultOutputOptionsDarkBg baseopts
-- defaultOutputOptionsLightBg
-- defaultOutputOptionsNoColor
{ outputOptionsIndentAmount=2 { outputOptionsIndentAmount=2
, outputOptionsCompact=True , outputOptionsCompact=True
} }
where
baseopts
| useColor = defaultOutputOptionsDarkBg -- defaultOutputOptionsLightBg
| otherwise = defaultOutputOptionsNoColor
-- | Pretty print. Generic alias for pretty-simple's pPrint. -- | Pretty print. Generic alias for pretty-simple's pPrint.
pprint :: Show a => a -> IO () pprint :: Show a => a -> IO ()