diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2021-01-12 14:56:41 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-02-22 18:27:00 -0500 |
commit | fd0945b7bfa1e36ca79d74f8e6e0918a66d62608 (patch) | |
tree | a57bd43ad0b6d87e69f36e52802d28d9c4de5076 /compiler/GHC/Rename | |
parent | ece202297454862717cef8c06d445f8405845b28 (diff) | |
download | haskell-fd0945b7bfa1e36ca79d74f8e6e0918a66d62608.tar.gz |
Move Hooks into HscEnv
Diffstat (limited to 'compiler/GHC/Rename')
-rw-r--r-- | compiler/GHC/Rename/Splice.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/GHC/Rename/Splice.hs b/compiler/GHC/Rename/Splice.hs index 30698d0f98..885fdf17fd 100644 --- a/compiler/GHC/Rename/Splice.hs +++ b/compiler/GHC/Rename/Splice.hs @@ -20,6 +20,7 @@ import GHC.Types.Name.Set import GHC.Hs import GHC.Types.Name.Reader import GHC.Tc.Utils.Monad +import GHC.Driver.Env.Types import GHC.Rename.Env import GHC.Rename.Utils ( HsDocContext(..), newLocalBndrRn ) @@ -314,7 +315,10 @@ runRnSplice :: UntypedSpliceFlavour -> HsSplice GhcRn -- Always untyped -> TcRn (res, [ForeignRef (TH.Q ())]) runRnSplice flavour run_meta ppr_res splice - = do { splice' <- getHooked runRnSpliceHook return >>= ($ splice) + = do { hooks <- hsc_hooks <$> getTopEnv + ; splice' <- case runRnSpliceHook hooks of + Nothing -> return splice + Just h -> h splice ; let the_expr = case splice' of HsUntypedSplice _ _ _ e -> e |