From ec0169a50b4264a2c81703ff07fcf57b6bdb34fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Fri, 18 Nov 2016 18:57:04 +0100
Subject: [PATCH] couchdb: need to wrap in a <json-post-data> to send correct
 content-type

---
 extra/couchdb/couchdb.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/couchdb/couchdb.factor b/extra/couchdb/couchdb.factor
index 4e07fc6d4b..f0faf94e99 100644
--- a/extra/couchdb/couchdb.factor
+++ b/extra/couchdb/couchdb.factor
@@ -118,9 +118,6 @@ C: <db> db
 : db-info ( db -- info )
     db-url couch-get ;
 
-: compact-db ( db -- )
-    f swap db-url "_compact" append couch-post response-ok* ;
-
 : all-docs ( db -- docs )
     ! TODO: queries. Maybe pass in a hashtable with options
     db-url "_all_docs" append couch-get ;
@@ -128,6 +125,9 @@ C: <db> db
 : <json-post-data> ( assoc -- post-data )
     >json utf8 encode "application/json" <post-data> swap >>data ;
 
+: compact-db ( db -- )
+    f <json-post-data> swap db-url "_compact" append couch-post response-ok* ;
+
 ! documents
 : id> ( assoc -- id ) "_id" of ;
 : >id ( assoc id -- assoc ) "_id" pick set-at ;