diff options
author | John Ericson <John.Ericson@Obsidian.Systems> | 2020-12-20 06:55:24 +0000 |
---|---|---|
committer | John Ericson <John.Ericson@Obsidian.Systems> | 2020-12-20 06:57:26 +0000 |
commit | c3df3f1baad4ffd5c3226f164354cb77f3646e84 (patch) | |
tree | c23255c7f1f8f7d8c3f952dcb3fc61f97a5a332b | |
parent | df8e6e904d35e9ada4e43abf398dfb8a301f1bfa (diff) | |
download | haskell-c3df3f1baad4ffd5c3226f164354cb77f3646e84.tar.gz |
Use `hscFrontendHook` againwip/fix-19004
In eb629fab I accidentally got rid of it when inlining tons of helpers.
Closes #19004
-rw-r--r-- | compiler/GHC/Driver/Main.hs | 7 |
1 files 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 |