diff options
Diffstat (limited to 'compiler/deSugar/Desugar.lhs')
| -rw-r--r-- | compiler/deSugar/Desugar.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs index 2e5b1e1c9d..dd2ed6d07b 100644 --- a/compiler/deSugar/Desugar.lhs +++ b/compiler/deSugar/Desugar.lhs @@ -85,7 +85,7 @@ deSugar hsc_env ; mb_res <- case ghcMode dflags of JustTypecheck -> return (Just ([], [], NoStubs, noHpcInfo)) _ -> do (binds_cvr,ds_hpc_info) - <- if dopt Opt_Hpc dflags + <- if opt_Hpc then addCoverageTicksToBinds dflags mod mod_loc binds else return (binds, noHpcInfo) initDs hsc_env mod rdr_env type_env $ do |