;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/business-connection
  (:documentation "BusinessConnection Telegram type")
  (:use
   :c2cl
   :ukkoclot/src/tg/type-macros
   :ukkoclot/src/tg/business-bot-rights
   :ukkoclot/src/tg/user)
  (:export
   #:business-connection
   #:make-business-connection
   #:business-connection-p
   #:copy-business-connection
   #:business-connection-id
   #:business-connection-user
   #:business-connection-user-chat-id
   #:business-connection-date
   #:business-connection-rights
   #:business-connection-is-enabled))
(in-package :ukkoclot/src/tg/business-connection)

(define-tg-type business-connection
  (id string)
  (user user)
  (user-chat-id integer)
  (date integer)
  (rights (or business-bot-rights null) nil)
  (is-enabled boolean))