diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-02-15 10:14:29 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-02-15 10:14:29 +0000 |
| commit | e8d8c738e75dc9d23a287a8fab2392333c5cc6a5 (patch) | |
| tree | 12a45a28d2999572e69f85c980922f4cd8f6b546 /compiler/main/HscMain.hs | |
| parent | 5c1f268e2744fab2d36e64c163858995451d7095 (diff) | |
| download | haskell-wip/hie-module.tar.gz | |
HIE: Save module name and module exportswip/hie-module
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 |