diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-12-27 11:36:29 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-12-27 11:44:39 +0000 |
| commit | ad23af5c39cdaf924747d2d0acb6796055f628fd (patch) | |
| tree | 2514e5af64b1c98de5a2511eaeced631c799afe1 /compiler/GHC/IfaceToCore.hs | |
| parent | b8e4102bd19d86d6a60ee78fba81c9a3b5be2aed (diff) | |
| download | haskell-wip/source-notes-change.tar.gz | |
Source note changeswip/source-notes-change
Diffstat (limited to 'compiler/GHC/IfaceToCore.hs')
| -rw-r--r-- | compiler/GHC/IfaceToCore.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/IfaceToCore.hs b/compiler/GHC/IfaceToCore.hs index 782b572cf8..95f4496212 100644 --- a/compiler/GHC/IfaceToCore.hs +++ b/compiler/GHC/IfaceToCore.hs @@ -1561,9 +1561,9 @@ tcIfaceExpr (IfaceLet (IfaceRec pairs) body) tcIfaceExpr (IfaceTick tickish expr) = do expr' <- tcIfaceExpr expr -- If debug flag is not set: Ignore source notes - dbgLvl <- fmap debugLevel getDynFlags + need_notes <- needSourceNotes <$> getDynFlags case tickish of - IfaceSource{} | dbgLvl == 0 + IfaceSource{} | not (need_notes) -> return expr' _otherwise -> do tickish' <- tcIfaceTickish tickish |