diff --git a/compiler/GHC/Driver/Hooks.hs b/compiler/GHC/Driver/Hooks.hs index 08aa2a1299efadb8e11fc9f85d1107920b640bf3..19e38a21e506fcbf355fd372a796e9dab37ef6f1 100644 --- a/compiler/GHC/Driver/Hooks.hs +++ b/compiler/GHC/Driver/Hooks.hs @@ -154,6 +154,8 @@ data Hooks = Hooks -> IO (Stream IO RawCmmGroup a))) } +{-# DEPRECATED cmmToRawCmmHook "cmmToRawCmmHook is being deprecated. If you do use it in your project, please raise a GHC issue!" #-} + class HasHooks m where getHooks :: m Hooks diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs index fb18eb0970ed77e33243f0522599c883f8f57113..cc5d192cf127f614362bef6922f78869a6608e59 100644 --- a/compiler/GHC/Driver/Main.hs +++ b/compiler/GHC/Driver/Main.hs @@ -6,6 +6,9 @@ {-# OPTIONS_GHC -fprof-auto-top #-} +-- Remove this after cmmToRawCmmHook removal +{-# OPTIONS_GHC -Wno-deprecations #-} + ------------------------------------------------------------------------------- -- -- | Main API for compiling plain Haskell source code.