Skip to content
Browse files

get URI arg type straight?

  • Loading branch information...
1 parent 555d052 commit 883b7a459441fbbeaa9e0a06003fe3aae997b066 @mtravers mtravers committed Dec 3, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/core/consumer.lisp
View
4 src/core/consumer.lisp
@@ -74,8 +74,8 @@ token."
(assert key)
(assert secret)
(make-request-token :consumer consumer-token :key key :secret secret ;; TODO url-decode
- :callback-uri callback-uri :user-data user-data))
- (error "Server returned status ~D" status))))) ; TODO: elaborate
+ :callback-uri (puri:uri callback-uri) :user-data user-data))
+ (error "Server returned status ~D: ~A" status body)))))
(defun make-authorization-uri (uri request-token &key (version :1.0) callback-uri user-parameters)

0 comments on commit 883b7a4

Please sign in to comment.
Something went wrong with that request. Please try again.