Permalink
Browse files

Some minor fixes for things while comparing with fluiddb.el Emacs code

  • Loading branch information...
1 parent 3c3ce75 commit f983891a596b75b414eb74c0da3b8cc7aea07f79 @hdurer committed Sep 22, 2009
Showing with 6 additions and 2 deletions.
  1. +6 −2 fluiddb.lisp
View
@@ -100,7 +100,8 @@ We inspect the return data and convert it to a lisp data structure if it is json
(setf *connection* nil))
(setf *connection* stream))
(let* ((content-type (cdr (assoc :content-type headers)))
- (response (if (string-equal "application/json" content-type)
+ (response (if (or (string-equal "application/json" content-type)
+ (string-equal "application/vnd.fluiddb.value+json" content-type))
(json:decode-json-from-string
(flexi-streams:octets-to-string raw-response :external-format :utf-8))
raw-response)))
@@ -294,7 +295,7 @@ We inspect the return data and convert it to a lisp data structure if it is json
user-name "/"
(to-string category) "/"
(to-string action))
- :method :post
+ :method :put
:body-data (make-permission-object policy exceptions)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -316,13 +317,16 @@ We inspect the return data and convert it to a lisp data structure if it is json
"tags/" namespace "/"
tag)
:query-data `(("returnDescription" . ,(if return-description t nil)))))
+
+
(defun change-tag (namespace tag description)
(send-request (concatenate 'string
"tags/" namespace "/"
tag)
:method :put
:body-data `(("description" . ,description))))
+
(defun delete-tag (namespace tag)
(send-request (concatenate 'string
"tags/" namespace "/"

0 comments on commit f983891

Please sign in to comment.