diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2018-12-11 13:47:35 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-12-11 14:23:22 -0500 |
| commit | f582379de2c4ff7577235c926ad953debdae3cac (patch) | |
| tree | df39b7a00d1730be04da120ca452517043478809 /compiler/backpack | |
| parent | 21339c9f6bfb952a3a0b8de5ee649d46dfbf0d9b (diff) | |
| download | haskell-f582379de2c4ff7577235c926ad953debdae3cac.tar.gz | |
Support generating HIE files
Adds a `-fenable-ide-info` flag which instructs GHC to generate `.hie`
files (see the wiki page:
https://ghc.haskell.org/trac/ghc/wiki/HIEFiles).
This is a rebased version of Zubin Duggal's (@wz1000) GHC changes for
his GSOC project, as posted here:
https://gist.github.com/wz1000/5ed4ddd0d3e96d6bc75e095cef95363d.
Test Plan: ./validate
Reviewers: bgamari, gershomb, nomeata, alanz, sjakobi
Reviewed By: alanz, sjakobi
Subscribers: alanz, hvr, sjakobi, rwbarton, wz1000, carter
Differential Revision: https://phabricator.haskell.org/D5239
Diffstat (limited to 'compiler/backpack')
| -rw-r--r-- | compiler/backpack/DriverBkp.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/compiler/backpack/DriverBkp.hs b/compiler/backpack/DriverBkp.hs index 7784df2ff5..e10d6d1de1 100644 --- a/compiler/backpack/DriverBkp.hs +++ b/compiler/backpack/DriverBkp.hs @@ -677,6 +677,7 @@ summariseRequirement pn mod_name = do env <- getBkpEnv time <- liftIO $ getModificationUTCTime (bkp_filename env) hi_timestamp <- liftIO $ modificationTimeIfExists (ml_hi_file location) + hie_timestamp <- liftIO $ modificationTimeIfExists (ml_hie_file location) let loc = srcLocSpan (mkSrcLoc (mkFastString (bkp_filename env)) 1 1) mod <- liftIO $ addHomeModuleToFinder hsc_env mod_name location @@ -690,6 +691,7 @@ summariseRequirement pn mod_name = do ms_hs_date = time, ms_obj_date = Nothing, ms_iface_date = hi_timestamp, + ms_hie_date = hie_timestamp, ms_srcimps = [], ms_textual_imps = extra_sig_imports, ms_parsed_mod = Just (HsParsedModule { @@ -765,12 +767,13 @@ hsModuleToModSummary pn hsc_src modname HsSrcFile -> "hs") -- DANGEROUS: bootifying can POISON the module finder cache let location = case hsc_src of - HsBootFile -> addBootSuffixLocn location0 + HsBootFile -> addBootSuffixLocnOut location0 _ -> location0 -- This duplicates a pile of logic in GhcMake env <- getBkpEnv time <- liftIO $ getModificationUTCTime (bkp_filename env) hi_timestamp <- liftIO $ modificationTimeIfExists (ml_hi_file location) + hie_timestamp <- liftIO $ modificationTimeIfExists (ml_hie_file location) -- Also copied from 'getImports' let (src_idecls, ord_idecls) = partition (ideclSource.unLoc) imps @@ -815,7 +818,8 @@ hsModuleToModSummary pn hsc_src modname }), ms_hs_date = time, ms_obj_date = Nothing, -- TODO do this, but problem: hi_timestamp is BOGUS - ms_iface_date = hi_timestamp + ms_iface_date = hi_timestamp, + ms_hie_date = hie_timestamp } -- | Create a new, externally provided hashed unit id from |