compiler/GHC/Driver/Config/Core/Opt/LiberateCase.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module GHC.Driver.Config.Core.Opt.LiberateCase
  ( initLiberateCaseOpts
  ) where

import GHC.Driver.Session

import GHC.Core.Opt.LiberateCase ( LibCaseOpts(..) )

-- | Initialize configuration for the liberate case Core optomization
-- pass.
initLiberateCaseOpts :: DynFlags -> LibCaseOpts
initLiberateCaseOpts dflags = LibCaseOpts
  { lco_threshold = liberateCaseThreshold dflags
  , lco_unfolding_opts = unfoldingOpts dflags
  }