tjhintz/cl-sendgrid
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Change name of error object.

Browse Source
This commit is contained in:
Thomas Hintz
2014-02-01 09:07:11 -08:00
parent f98d722bf6
commit f354c5e29c
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
cl-sendgrid.lisp
View File

@@ -1,7 +1,7 @@
(in-package :cl-sendgrid) (in-package :cl-sendgrid)
(define-condition sendgrid-error (error) (define-condition sendgrid-error (error)
((message :initarg :message :reader message))) ((sendgrid-error-message :initarg :sendgrid-error-message :reader sendgrid-error-message)))
(defun send-email (&key api-user api-key subject to text html from) (defun send-email (&key api-user api-key subject to text html from)
(let ((r (parse (flexi-streams:octets-to-string (let ((r (parse (flexi-streams:octets-to-string
@@ -17,4 +17,5 @@
:object-as :alist))) :object-as :alist)))
(if (string-equal (cdr (assoc "message" r :test #'string-equal)) "success") (if (string-equal (cdr (assoc "message" r :test #'string-equal)) "success")
t t
(error 'sendgrid-error :message (cdr (assoc "errors" r :test #'string-equal)))))) (error 'sendgrid-error :sendgrid-error-message
(cdr (assoc "errors" r :test #'string-equal))))))