diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-02-15 10:14:29 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-16 09:22:38 -0500 |
| commit | 69ebf5cb4592b4c89e268937ef7eb96f7c9d4532 (patch) | |
| tree | 372ac3ed7c4d443e829c8db87bac08f97c0d5bee /compiler/main/HscMain.hs | |
| parent | 3cb063c805ec841ca33b8371ef8aba9329221b6c (diff) | |
| download | haskell-69ebf5cb4592b4c89e268937ef7eb96f7c9d4532.tar.gz | |
HIE: Save module name and module exports
Diffstat (limited to 'compiler/main/HscMain.hs')
| -rw-r--r-- | compiler/main/HscMain.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 9a4dd4aafe..674afc9f47 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -408,8 +408,9 @@ extract_renamed_stuff mod_summary tc_result = do -- Create HIE files when (gopt Opt_WriteHie dflags) $ do - hieFile <- mkHieFile mod_summary (tcg_binds tc_result) - (fromJust rn_info) + -- I assume this fromJust is safe because `-fwrite-hie-file` + -- enables the option which keeps the renamed source. + hieFile <- mkHieFile mod_summary tc_result (fromJust rn_info) let out_file = ml_hie_file $ ms_location mod_summary liftIO $ writeHieFile out_file hieFile |