[commit: ghc] master: HscMain: Minor simplification (1d1987e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1d1987e088052eefd25dbc693846222499899749/ghc

>---------------------------------------------------------------

commit 1d1987e088052eefd25dbc693846222499899749
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Fri Jun 3 04:05:48 2016 -0400

    HscMain: Minor simplification


>---------------------------------------------------------------

1d1987e088052eefd25dbc693846222499899749
 compiler/main/HscMain.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs
index 71f2ce2..7cbc6e7 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