addTickHsExpr (RecordUpd e rec_binds cons tys1 tys2) =
        liftM5 RecordUpd
                (addTickLHsExpr e)
                (addTickHsRecordBinds rec_binds)
                (return cons) (return tys1) (return tys2)
addTickHsExpr (RecordUpd e rec_binds cons tys1 tys2) =
        liftM5 RecordUpd
                (addTickLHsExpr e)
                (addTickHsRecordBinds rec_binds)
                (return cons) (return tys1) (return tys2)
addTickHsExpr (RecordUpd e rec_binds cons tys1 tys2) =
        liftM5 RecordUpd
                (addTickLHsExpr e)
                (addTickHsRecordBinds rec_binds)
                (return cons) (return tys1) (return tys2)