From adaa6194753f33a705ac57cd8ddb94dc9aff1f54 Mon Sep 17 00:00:00 2001 From: John Ericson Date: Sun, 20 Dec 2020 06:55:24 +0000 Subject: Use `hscFrontendHook` again In eb629fab I accidentally got rid of it when inlining tons of helpers. Closes #19004 --- compiler/GHC/Driver/Main.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs index 63633d16a2..9560e32b50 100644 --- a/compiler/GHC/Driver/Main.hs +++ b/compiler/GHC/Driver/Main.hs @@ -707,8 +707,11 @@ hscIncrementalFrontend compile mb_old_hash reason = do liftIO $ msg reason - (tc_result, _) <- hsc_typecheck False mod_summary Nothing - return $ Right (FrontendTypecheck tc_result, mb_old_hash) + tc_result <- do + let def ms = FrontendTypecheck . fst <$> hsc_typecheck False ms Nothing + action <- getHooked hscFrontendHook def + action mod_summary + return $ Right (tc_result, mb_old_hash) stable = case source_modified of SourceUnmodifiedAndStable -> True -- cgit v1.2.1