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

;lib: note caveats with useColor*

Browse Source
This commit is contained in:
Simon Michael 2021-04-13 14:46:18 -10:00
parent 6298722ade
commit 21a49b9479
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -170,11 +170,14 @@ debugLevel = case snd $ break (=="--debug") args of
-- | Check the IO environment to see if ANSI colour codes should be used on stdout. -- | Check the IO environment to see if ANSI colour codes should be used on stdout.
-- This is done using unsafePerformIO so it can be used anywhere, eg in -- This is done using unsafePerformIO so it can be used anywhere, eg in
-- low-level debug utilities, which should be ok since we are just reading. -- low-level debug utilities, which should be ok since we are just reading.
-- (When running code in GHCI, this module must be reloaded to see a change.)
-- The logic is: use color if -- The logic is: use color if
-- a NO_COLOR environment variable is not defined -- a NO_COLOR environment variable is not defined
-- and the program was not started with --color=no|never -- and the program was not started with --color=no|never
-- and stdout supports ANSI color, or the program was started with --color=yes|always. -- and stdout supports ANSI color, or the program was started with --color=yes|always.
-- Caveats:
-- Existence of the NO_COLOR variable, and whether the output handle supports ANSI color,
-- might not be checked at program startup, but rather when this is (first?) evaluated.
-- When running code in GHCI, this module must be reloaded to see a change.
-- {-# OPTIONS_GHC -fno-cse #-} -- {-# OPTIONS_GHC -fno-cse #-}
-- {-# NOINLINE useColorOnStdout #-} -- {-# NOINLINE useColorOnStdout #-}
useColorOnStdout :: Bool useColorOnStdout :: Bool