Skip to content
Snippets Groups Projects
Commit fcdc58e5 authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel :man_dancing:
Browse files

Add 'verboseNoTimestamp' un-setter

This will be used by a subsequent commit to disable the +timestamp
verbosity flag for compatiblity with custom setups linked against
Cabal-2.0.0 which didn't yet support this.
parent 99e70bd9
No related branches found
No related tags found
No related merge requests found
...@@ -44,7 +44,8 @@ module Distribution.Verbosity ( ...@@ -44,7 +44,8 @@ module Distribution.Verbosity (
verboseNoWrap, isVerboseNoWrap, verboseNoWrap, isVerboseNoWrap,
-- * timestamps -- * timestamps
verboseTimestamp, isVerboseTimestamp verboseTimestamp, isVerboseTimestamp,
verboseNoTimestamp,
) where ) where
import Prelude () import Prelude ()
...@@ -217,7 +218,7 @@ verboseMarkOutput = verboseFlag VMarkOutput ...@@ -217,7 +218,7 @@ verboseMarkOutput = verboseFlag VMarkOutput
-- | Turn off marking; useful for suppressing nondeterministic output. -- | Turn off marking; useful for suppressing nondeterministic output.
verboseUnmarkOutput :: Verbosity -> Verbosity verboseUnmarkOutput :: Verbosity -> Verbosity
verboseUnmarkOutput v = v { vFlags = Set.delete VMarkOutput (vFlags v) } verboseUnmarkOutput = verboseNoFlag VMarkOutput
-- | Disable line-wrapping for log messages. -- | Disable line-wrapping for log messages.
verboseNoWrap :: Verbosity -> Verbosity verboseNoWrap :: Verbosity -> Verbosity
...@@ -231,10 +232,19 @@ verboseQuiet v = v { vQuiet = True } ...@@ -231,10 +232,19 @@ verboseQuiet v = v { vQuiet = True }
verboseTimestamp :: Verbosity -> Verbosity verboseTimestamp :: Verbosity -> Verbosity
verboseTimestamp = verboseFlag VTimestamp verboseTimestamp = verboseFlag VTimestamp
-- | Helper function for flag toggling functions -- | Turn off timestamps for log messages.
verboseNoTimestamp :: Verbosity -> Verbosity
verboseNoTimestamp = verboseNoFlag VTimestamp
-- | Helper function for flag enabling functions
verboseFlag :: VerbosityFlag -> (Verbosity -> Verbosity) verboseFlag :: VerbosityFlag -> (Verbosity -> Verbosity)
verboseFlag flag v = v { vFlags = Set.insert flag (vFlags v) } verboseFlag flag v = v { vFlags = Set.insert flag (vFlags v) }
-- | Helper function for flag disabling functions
verboseNoFlag :: VerbosityFlag -> (Verbosity -> Verbosity)
verboseNoFlag flag v = v { vFlags = Set.delete flag (vFlags v) }
-- | Turn off all flags
verboseNoFlags :: Verbosity -> Verbosity verboseNoFlags :: Verbosity -> Verbosity
verboseNoFlags v = v { vFlags = Set.empty } verboseNoFlags v = v { vFlags = Set.empty }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment