diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-06-03 04:05:48 -0400 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-06-03 04:05:48 -0400 |
| commit | 1d1987e088052eefd25dbc693846222499899749 (patch) | |
| tree | a74f1c6b15a9ffffcd9aa6c5a2971f21957a03fa /compiler | |
| parent | 060c1763e2560095088a214d30ef77339f486b10 (diff) | |
| download | haskell-1d1987e088052eefd25dbc693846222499899749.tar.gz | |
HscMain: Minor simplification
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/HscMain.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 71f2ce2059..7cbc6e711f 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -665,9 +665,8 @@ hscIncrementalCompile always_do_basic_recompilation_check m_tc_result hm_iface = iface, hm_linkable = Nothing }) - Right (result, mb_old_hash) -> do - (status, hmi, no_change) <- case result of - FrontendTypecheck tc_result -> + Right (FrontendTypecheck tc_result, mb_old_hash) -> do + (status, hmi, no_change) <- if hscTarget dflags /= HscNothing && ms_hsc_src mod_summary == HsSrcFile then finish hsc_env mod_summary tc_result mb_old_hash |