'verify' function: check arguments type

Junker · May 16, 2024 · 886b5bf · 886b5bf
1 parent 2fe89f5
commit 886b5bf
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/recaptcha-enterprise.asd b/recaptcha-enterprise.asd
@@ -1,5 +1,5 @@
 (defsystem recaptcha-enterprise
-  :version "0.1.2"
+  :version "0.1.3"
   :author "Dmitrii Kosenkov"
   :license "MIT"
   :depends-on ("dexador" "jonathan")

diff --git a/recaptcha-enterprise.lisp b/recaptcha-enterprise.lisp
@@ -6,8 +6,11 @@
   "your Google Cloud project ID")
 
 (defun verify (key-id token &optional (action "LOGIN"))
-  (assert (not (null *api-key*)))
-  (assert (not (null *project-id*)))
+  (check-type *api-key* string)
+  (check-type *project-id* string)
+  (check-type token string)
+  (check-type key-id string)
+  (check-type action string)
   (let* ((response (dex:post (format nil "https://recaptchaenterprise.googleapis.com/v1/projects/~A/assessments?key=~A"
                                      *project-id* *api-key*)
                              :headers '(("Content-Type" . "application/json"))