diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Coverage.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Coverage.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Coverage.hs b/compiler/GHC/HsToCore/Coverage.hs index 8a6bb4e160..17521fd6b7 100644 --- a/compiler/GHC/HsToCore/Coverage.hs +++ b/compiler/GHC/HsToCore/Coverage.hs @@ -518,8 +518,7 @@ addBinTickLHsExpr boxLabel (L pos e0) addTickHsExpr :: HsExpr GhcTc -> TM (HsExpr GhcTc) addTickHsExpr e@(HsVar _ (L _ id)) = do freeVar id; return e addTickHsExpr e@(HsUnboundVar {}) = return e -addTickHsExpr e@(HsRecFld _ (Ambiguous id _)) = do freeVar id; return e -addTickHsExpr e@(HsRecFld _ (Unambiguous id _)) = do freeVar id; return e +addTickHsExpr e@(HsRecFld _ (FieldOcc id _)) = do freeVar id; return e addTickHsExpr e@(HsConLikeOut {}) = return e -- We used to do a freeVar on a pat-syn builder, but actually |