1 files changed, 15 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Config/Core/Opt/LiberateCase.hs b/compiler/GHC/Driver/Config/Core/Opt/LiberateCase.hs
new file mode 100644
index 0000000000..c06ca62e5c
--- /dev/null
+++ b/compiler/GHC/Driver/Config/Core/Opt/LiberateCase.hs
@@ -0,0 +1,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
+  }