diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-12-28 00:19:16 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-12-30 06:55:19 -0500 |
| commit | 6e2c495e3c600710bb6fc07dfb3cf0af41b362da (patch) | |
| tree | 263d914d9b2ef224768420d386aa77ac8bf45873 | |
| parent | bd544d3df7ebe6326e38d532ddc4a3756c8fe029 (diff) | |
| download | haskell-6e2c495e3c600710bb6fc07dfb3cf0af41b362da.tar.gz | |
TcIface: Fix inverted logic in typechecking of source ticks
Previously we would throw away source ticks when the debug level was
non-zero. This is precisely the opposite of what was intended.
Fixes #17616.
Metric Decrease:
T13056
T9020
T9961
T12425
| -rw-r--r-- | compiler/iface/TcIface.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/TcIface.hs b/compiler/iface/TcIface.hs index 4cc9195045..818745775a 100644 --- a/compiler/iface/TcIface.hs +++ b/compiler/iface/TcIface.hs @@ -1367,7 +1367,7 @@ tcIfaceExpr (IfaceTick tickish expr) = do -- If debug flag is not set: Ignore source notes dbgLvl <- fmap debugLevel getDynFlags case tickish of - IfaceSource{} | dbgLvl > 0 + IfaceSource{} | dbgLvl == 0 -> return expr' _otherwise -> do tickish' <- tcIfaceTickish tickish |