core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / couchdb / couchdb.factor

diff --git a/extra/couchdb/couchdb.factor b/extra/couchdb/couchdb.factor
index ca1f8306c295e8113e4ed714c4cf51970ff7783b..df59232ea75125afeb214c49b5909138f348c6a0 100644 (file)
--- a/extra/couchdb/couchdb.factor
+++ b/extra/couchdb/couchdb.factor
@@ -129,7 +129,7 @@ C: <db> db
     >json utf8 encode "application/json" <post-data> swap >>data ;
 
 ! documents
-: id> ( assoc -- id ) "_id" of ; 
+: id> ( assoc -- id ) "_id" of ;
 : >id ( assoc id -- assoc ) "_id" pick set-at ;
 : rev> ( assoc -- rev ) "_rev" of ;
 : >rev ( assoc rev -- assoc ) "_rev" pick set-at ;
@@ -166,7 +166,7 @@ C: <db> db
     couch get server>> next-uuid save-doc-as ;
 
 : save-doc ( assoc -- )
-    dup id> [ save-doc-as ] [ save-new-doc ] if* ; 
+    dup id> [ save-doc-as ] [ save-new-doc ] if* ;
 
 : load-doc ( id -- assoc )
     id-url couch-get ;
@@ -185,10 +185,10 @@ C: <db> db
 
 ! : construct-attachment ( content-type data -- assoc )
 !     H{ } clone "name" pick set-at "content-type" pick set-at ;
-! 
+!
 ! : add-attachment ( assoc name attachment -- )
 !     pick attachments> [ H{ } clone ] unless* 
-! 
+!
 ! : attach ( assoc name content-type data -- )
 !     construct-attachment H{ } clone