diff options
Diffstat (limited to 'compiler/deSugar/Coverage.hs')
| -rw-r--r-- | compiler/deSugar/Coverage.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/compiler/deSugar/Coverage.hs b/compiler/deSugar/Coverage.hs index 8d9f37d24e..dfe3807b1a 100644 --- a/compiler/deSugar/Coverage.hs +++ b/compiler/deSugar/Coverage.hs @@ -540,11 +540,12 @@ addTickHsExpr (RecordCon id ty rec_binds) = (return id) (return ty) (addTickHsRecordBinds rec_binds) -addTickHsExpr (RecordUpd e rec_binds cons tys1 tys2) = - liftM5 RecordUpd - (addTickLHsExpr e) - (mapM addTickHsRecField rec_binds) - (return cons) (return tys1) (return tys2) +addTickHsExpr (RecordUpd e rec_binds cons tys1 tys2 req_wrap) = + return RecordUpd `ap` + (addTickLHsExpr e) `ap` + (mapM addTickHsRecField rec_binds) `ap` + (return cons) `ap` (return tys1) `ap` (return tys2) `ap` + (return req_wrap) addTickHsExpr (ExprWithTySigOut e ty) = liftM2 ExprWithTySigOut |