src/Distribution/Verbosity/Internal.hs

    {-# LANGUAGE DeriveDataTypeable #-}
    {-# LANGUAGE DeriveGeneric #-}
    module Distribution.Verbosity.Internal
      ( VerbosityLevel(..)
      , VerbosityFlag(..)
      ) where

    import Prelude ()
    import Distribution.Compat.Prelude

    data VerbosityLevel = Silent | Normal | Verbose | Deafening
        deriving (Generic, Show, Read, Eq, Ord, Enum, Bounded, Typeable)

    instance Binary VerbosityLevel
    instance Structured VerbosityLevel

    data VerbosityFlag
        = VCallStack
        | VCallSite
        | VNoWrap
        | VMarkOutput
        | VTimestamp
        | VStderr -- ^ @since 3.4.0.0
        deriving (Generic, Show, Read, Eq, Ord, Enum, Bounded, Typeable)

    instance Binary VerbosityFlag
    instance Structured VerbosityFlag