    module GHC.Driver.Config.Logger
      ( initLogFlags
      )
    where

    import GHC.Prelude

    import GHC.Driver.DynFlags

    import GHC.Utils.Logger (LogFlags (..))
    import GHC.Utils.Outputable

    -- | Initialize LogFlags from DynFlags
    initLogFlags :: DynFlags -> LogFlags
    initLogFlags :: DynFlags -> LogFlags
    initLogFlags DynFlags
    dflags = LogFlags
      { log_default_user_context :: SDocContext
    log_default_user_context = DynFlags -> PprStyle -> SDocContext
    initSDocContext DynFlags
    dflags PprStyle
    defaultUserStyle
      , log_default_dump_context :: SDocContext
    log_default_dump_context = DynFlags -> PprStyle -> SDocContext
    initSDocContext DynFlags
    dflags PprStyle
    defaultDumpStyle
      , log_dump_flags :: EnumSet DumpFlag
    log_dump_flags           = DynFlags -> EnumSet DumpFlag
    dumpFlags DynFlags
    dflags
      , log_show_caret :: Bool
    log_show_caret           = GeneralFlag -> DynFlags -> Bool
    gopt GeneralFlag
    Opt_DiagnosticsShowCaret DynFlags
    dflags
      , log_diagnostics_as_json :: Bool
    log_diagnostics_as_json  = GeneralFlag -> DynFlags -> Bool
    gopt GeneralFlag
    Opt_DiagnosticsAsJSON DynFlags
    dflags
      , log_show_warn_groups :: Bool
    log_show_warn_groups     = GeneralFlag -> DynFlags -> Bool
    gopt GeneralFlag
    Opt_ShowWarnGroups DynFlags
    dflags
      , log_enable_timestamps :: Bool
    log_enable_timestamps    = Bool -> Bool
    not (GeneralFlag -> DynFlags -> Bool
    gopt GeneralFlag
    Opt_SuppressTimestamps DynFlags
    dflags)
      , log_dump_to_file :: Bool
    log_dump_to_file         = GeneralFlag -> DynFlags -> Bool
    gopt GeneralFlag
    Opt_DumpToFile DynFlags
    dflags
      , log_dump_dir :: Maybe FilePath
    log_dump_dir             = DynFlags -> Maybe FilePath
    dumpDir DynFlags
    dflags
      , log_dump_prefix :: FilePath
    log_dump_prefix          = DynFlags -> FilePath
    dumpPrefix DynFlags
    dflags
      , log_dump_prefix_override :: Maybe FilePath
    log_dump_prefix_override = DynFlags -> Maybe FilePath
    dumpPrefixForce DynFlags
    dflags
      , log_with_ways :: Bool
    log_with_ways            = GeneralFlag -> DynFlags -> Bool
    gopt GeneralFlag
    Opt_DumpWithWays DynFlags
    dflags
      , log_enable_debug :: Bool
    log_enable_debug         = Bool -> Bool
    not (DynFlags -> Bool
    hasNoDebugOutput DynFlags
    dflags)
      , log_verbosity :: Int
    log_verbosity            = DynFlags -> Int
    verbosity DynFlags
    dflags
      , log_ways :: Maybe Ways
    log_ways                 = Ways -> Maybe Ways
    forall a. a -> Maybe a
    Just (Ways -> Maybe Ways) -> Ways -> Maybe Ways
    forall a b. (a -> b) -> a -> b
    $ DynFlags -> Ways
    ways DynFlags
    dflags
      }