steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

couchdb: need to wrap in a <json-post-data> to send correct content-type

char-rename
Björn Lindqvist 2016-11-18 18:57:04 +01:00
parent 98a595f371
commit ec0169a50b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/couchdb/couchdb.factor
View File

@ -118,9 +118,6 @@ C: <db> db
: db-info ( db -- info ) : db-info ( db -- info )
db-url couch-get ; db-url couch-get ;
: compact-db ( db -- )
f swap db-url "_compact" append couch-post response-ok* ;
: all-docs ( db -- docs ) : all-docs ( db -- docs )
! TODO: queries. Maybe pass in a hashtable with options ! TODO: queries. Maybe pass in a hashtable with options
db-url "_all_docs" append couch-get ; db-url "_all_docs" append couch-get ;
@ -128,6 +125,9 @@ C: <db> db
: <json-post-data> ( assoc -- post-data ) : <json-post-data> ( assoc -- post-data )
>json utf8 encode "application/json" <post-data> swap >>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 ! documents
: id> ( assoc -- id ) "_id" of ; : id> ( assoc -- id ) "_id" of ;
: >id ( assoc id -- assoc ) "_id" pick set-at ; : >id ( assoc id -- assoc ) "_id" pick set-at ;