1 files changed, 12 insertions, 1 deletions

diff --git a/src/transport.lisp b/src/transport.lisp
index 6906e6d..12e09f4 100644
--- a/src/transport.lisp
+++ b/src/transport.lisp
@@ -6,13 +6,20 @@
   (:import-from :cl+ssl)
   (:import-from :dex)
   (:import-from :log)
+  (:import-from :serapeum :->)
   (:import-from :state :base-uri)
   (:import-from :ukkoclot/src/serializing :fixup-args :parse-value)
   (:local-nicknames
    (:jzon :com.inuoe.jzon))
-  (:export :do-call))
+  (:export :do-call :http-method))
 (in-package :ukkoclot/src/transport)
 
+;; Yes I know there are more, these are all I care about though
+(deftype http-method ()
+  '(member :GET :POST))
+
+;; TODO: Better type for the list, it's an alist of string to t
+(-> req (string http-method list) (or string null))
 (defun req (uri method content)
   "Wrapper function for making a request."
   (let ((retrier (dex:retry-request 5 :interval 1))
@@ -25,6 +32,8 @@
       (dex:http-request-failed (e) (funcall retrier e))
       (cl+ssl::ssl-error (e) (funcall retrier e)))))
 
+;; TODO: (alist string t)
+(-> do-call% (http-method string t list) t)
 (defun do-call% (method uri out-type args-encoded)
   "Internal function with the arguments already encoded.
 
@@ -47,6 +56,8 @@ See `do-call'."
              (error "TG error ~A: ~A ~:A"
                     error-code description parameters)))))))
 
+;; TODO: (alist t t)
+(-> do-call (http-method string t list) t)
 (defun do-call (method path out-type args)
   "Perform a HTTP call."
   (let ((uri (concatenate 'string (base-uri) path))