diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2020-12-20 06:55:24 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-12-24 16:35:25 -0500 |
| commit | adaa6194753f33a705ac57cd8ddb94dc9aff1f54 (patch) | |
| tree | 47c0b416f19ca4941819c3ff6f5da5329abde61b | |
| parent | 6f8bafb4fbddd2c8a113f5ddb04636a3a1be9355 (diff) | |
| download | haskell-adaa6194753f33a705ac57cd8ddb94dc9aff1f54.tar.gz | |
Use `hscFrontendHook` again
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 |