addTickHsRecordBinds :: HsRecordBinds Id -> TM (HsRecordBinds Id)
addTickHsRecordBinds (HsRecFields fields dd)
  = do  { fields' <- mapM process fields
        ; return (HsRecFields fields' dd) }
  where
    process (L l (HsRecField ids expr doc))
        = do { expr' <- addTickLHsExpr expr
             ; return (L l (HsRecField ids expr' doc)) }
addTickHsRecordBinds :: HsRecordBinds Id -> TM (HsRecordBinds Id)
addTickHsRecordBinds (HsRecFields fields dd)
  = do  { fields' <- mapM process fields
        ; return (HsRecFields fields' dd) }
  where
    process (L l (HsRecField ids expr doc))
        = do { expr' <- addTickLHsExpr expr
             ; return (L l (HsRecField ids expr' doc)) }
addTickHsRecordBinds (HsRecFields fields dd)
  = do  { fields' <- mapM process fields
        ; return (HsRecFields fields' dd) }
  where
    process (L l (HsRecField ids expr doc))
        = do { expr' <- addTickLHsExpr expr
             ; return (L l (HsRecField ids expr' doc)) }