diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-26 12:06:35 -0400 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-26 14:41:29 -0400 |
| commit | 5b145c98900470c09ed6555e481b19cb27ec8b14 (patch) | |
| tree | b2859ebe125849444a6092ba25997b4c0e76211c /compiler | |
| parent | 5b8bec25305eee2dc0ad9ec2cc385f2055abc892 (diff) | |
| download | haskell-5b145c98900470c09ed6555e481b19cb27ec8b14.tar.gz | |
Coverage.hs: Fix a duplication
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/deSugar/Coverage.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/deSugar/Coverage.hs b/compiler/deSugar/Coverage.hs index b082a02d6c..5287320daa 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 |