1 files changed, 19 insertions, 20 deletions

diff --git a/src/tg-types/update.lisp b/src/tg-types/update.lisp
index 9043d54..c259553 100644
--- a/src/tg-types/update.lisp
+++ b/src/tg-types/update.lisp
@@ -5,36 +5,35 @@
    :ukkoclot/tg-types/callback-query
    :ukkoclot/tg-types/message)
   (:export
-   update update-p
-
-   hash->update make-update parse-update-array
-
-   update-update-id update-message update-edited-message update-channel-post update-edited-channel-post
-   ;; update-business-connection
-   update-business-message update-edited-business-message
-   ;; update-deleted-business-messages update-message-reaction update-message-reaction-count update-inline-query
-   ;; update-chosen-inline-result
-   update-callback-query
-   ;; update-shipping-query update-pre-checkout-query update-poll update-poll-answer update-my-chat-member
-   ;; update-chat-member update-chat-join-request update-chat-boost update-removed-chat-boost
-   ))
+   #:update
+   #:make-update
+   #:update-p
+   #:copy-update
+   #:update-update-id
+   #:update-message
+   #:update-edited-message
+   #:update-channel-post
+   #:update-edited-channel-post
+   #:update-business-message
+   #:update-edited-business-message
+   #:update-callback-query))
 (in-package :ukkoclot/tg-types/update)
 
 (define-tg-type update
   (update-id integer)
-  (message (or message null) nil :parser hash->message)
-  (edited-message (or message null) nil :parser hash->message)
-  (channel-post (or message null) nil :parser hash->message)
-  (edited-channel-post (or message null) nil :parser hash->message)
+  (message (or message null) nil)
+  (edited-message (or message null) nil)
+  (channel-post (or message null) nil)
+  (edited-channel-post (or message null) nil)
   ;; (business-connection (or business-connection null) nil)
-  (business-message (or message null) nil :parser hash->message)
-  (edited-business-message (or message null) nil :parser hash->message)
+  (business-message (or message null) nil)
+  (edited-business-message (or message null) nil)
   ;; (deleted-business-messages (or business-messages-deleted null) nil)
   ;; (message-reaction (or message-reaction-updated null) nil)
   ;; (message-reaction-count (or message-reaction-count-updated null) nil)
   ;; (inline-query (or inline-query null) nil)
   ;; (chosen-inline-result (or chosen-inline-result null) nil)
-  (callback-query (or callback-query null) nil :parser hash->callback-query)
+  (callback-query (or callback-query null) nil)
   ;; (shipping-query (or shipping-query null) nil)
   ;; (pre-checkout-query (or pre-checkout-query null) nil)
   ;; (poll (or poll null) nil)