[commit: ghc] master: Coverage.hs: Fix a duplication (5b145c9)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5b145c98900470c09ed6555e481b19cb27ec8b14/ghc

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

commit 5b145c98900470c09ed6555e481b19cb27ec8b14
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Thu May 26 12:06:35 2016 -0400

    Coverage.hs: Fix a duplication


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

5b145c98900470c09ed6555e481b19cb27ec8b14
 compiler/deSugar/Coverage.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/compiler/deSugar/Coverage.hs b/compiler/deSugar/Coverage.hs
index b082a02..5287320 100644
--- a/compiler/deSugar/Coverage.hs
+++ b/compiler/deSugar/Coverage.hs
@@ -71,11 +71,8 @@ addTicksToBinds
 addTicksToBinds hsc_env mod mod_loc exports tyCons binds
   | let dflags = hsc_dflags hsc_env
         passes = coveragePasses dflags, not (null passes),
-    Just orig_file <- ml_hs_file mod_loc = do
-
-     if "boot" `isSuffixOf` orig_file
-         then return (binds, emptyHpcInfo False, Nothing)
-         else do
+    Just orig_file <- ml_hs_file mod_loc,
+    not ("boot" `isSuffixOf` orig_file) = do
 
      us <- mkSplitUniqSupply 'C' -- for cost centres
      let  orig_file2 = guessSourceFile binds orig_file