Introduce enums and a pretty parse-mode type

1 files changed, 3 insertions, 4 deletions

diff --git a/src/bot/methods.lisp b/src/bot/methods.lisp
index 7ccc4ad..984646a 100644
--- a/src/bot/methods.lisp
+++ b/src/bot/methods.lisp
@@ -23,7 +23,7 @@
   (message-id (or integer null) nil)
   (inline-message-id (or string null) nil)
   (text string)
-  (parse-mode (or string null) nil)
+  (parse-mode (or parse-mode null) nil)
   (entities (or (array message-entity) null) nil)
   (link-preview-options (or link-preview-options null) nil)
   (reply-markup (or inline-keyboard-markup null) nil))
@@ -56,7 +56,7 @@
   (height (or integer null) nil)
   (thumbnail (or pathname string null) nil)
   (caption (or string null) nil)
-  (parse-mode (or string null) nil)
+  (parse-mode (or parse-mode null) nil)
   (caption-entities (or (array message-entity) null) nil)
   (show-caption-above-media boolean nil)
   (has-spoiler boolean nil)
@@ -73,8 +73,7 @@
   (chat-id (or integer string))
   (message-thread-id (or integer null) nil)
   (text string)
-  ;; TODO: parse-mode should maybe be keywords?
-  (parse-mode (or string null) nil)
+  (parse-mode (or parse-mode null) nil)
   (entities (or (array message-entity) null) nil)
   (link-preview-options (or link-preview-options null) nil)
   (disable-notification (or boolean null) nil)