diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-10-02 23:13:03 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-10-02 23:13:04 +0200 |
| commit | 9ed700bb4128b1cbf59d99d725c44d7a0bfb1de6 (patch) | |
| tree | eecc0bd8f682f2b0ac009604ba8a0de323a101df | |
| parent | e3d2bab86fc89113f8ee65800fdfac81d8d54851 (diff) | |
| download | haskell-9ed700bb4128b1cbf59d99d725c44d7a0bfb1de6.tar.gz | |
Don't use old linkable for hs-boot files.
We should only use the old linkable when the really is nothing
to be done. In the case of hs-boot, there should just not be
a linkable.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1301
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index a45507e635..9523e87942 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -224,7 +224,7 @@ compileOne' m_tc_result mHscMessage do (iface, _changed, details) <- hscSimpleIface hsc_env tc_result mb_old_hash return (HomeModInfo{ hm_details = details, hm_iface = iface, - hm_linkable = maybe_old_linkable }) + hm_linkable = Nothing }) _ -> do guts0 <- hscDesugar hsc_env summary tc_result guts <- hscSimplify hsc_env guts0 (iface, _changed, details, cgguts) <- hscNormalIface hsc_env guts mb_old_hash @@ -255,7 +255,7 @@ compileOne' m_tc_result mHscMessage when (gopt Opt_WriteInterface dflags) $ hscWriteIface dflags iface changed summary let linkable = if isHsBoot src_flavour - then maybe_old_linkable + then Nothing else Just (LM (ms_hs_date summary) this_mod []) return (HomeModInfo{ hm_details = details, hm_iface = iface, @@ -273,7 +273,7 @@ compileOne' m_tc_result mHscMessage return (HomeModInfo{ hm_details = details, hm_iface = iface, - hm_linkable = maybe_old_linkable }) + hm_linkable = Nothing }) HsSrcFile -> do guts0 <- hscDesugar hsc_env summary tc_result |