Commit 1d1987e0 authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan
Browse files

HscMain: Minor simplification

parent 060c1763
...@@ -665,9 +665,8 @@ hscIncrementalCompile always_do_basic_recompilation_check m_tc_result ...@@ -665,9 +665,8 @@ hscIncrementalCompile always_do_basic_recompilation_check m_tc_result
hm_iface = iface, hm_iface = iface,
hm_linkable = Nothing hm_linkable = Nothing
}) })
Right (result, mb_old_hash) -> do Right (FrontendTypecheck tc_result, mb_old_hash) -> do
(status, hmi, no_change) <- case result of (status, hmi, no_change) <-
FrontendTypecheck tc_result ->
if hscTarget dflags /= HscNothing && if hscTarget dflags /= HscNothing &&
ms_hsc_src mod_summary == HsSrcFile ms_hsc_src mod_summary == HsSrcFile
then finish hsc_env mod_summary tc_result mb_old_hash then finish hsc_env mod_summary tc_result mb_old_hash
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment