{-# 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