Version 0.2.0.1

akaspin · Jan 16, 2012 · ec91d1a · ec91d1a
1 parent 0035405
commit ec91d1a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,4 +1,4 @@
- In work, Version 0.2.0     * Low-lewel API     * "Don't care" versions of couchPut.        * Brain-free couchRev'.        * All database methods ignores DB in connection.    * couchPutDB' renamed to couchPutDB_.        * Database replication.  14.01.2011, Version 0.1.3.0    * Safe version of couchViewPut 14.01.2011, Version 0.1.2.0     * Authentification	 11.01.2011, Version 0.1.1.0 
+ 16.01.2011, Version 0.2.0.1     * Avoid escaping path in couch'  16.01.2011, Version 0.2.0     * Low-lewel API     * "Don't care" versions of couchPut.        * Brain-free couchRev'.        * All database methods ignores DB in connection.    * couchPutDB' renamed to couchPutDB_.        * Database replication.  14.01.2011, Version 0.1.3.0    * Safe version of couchViewPut 14.01.2011, Version 0.1.2.0     * Authentification	 11.01.2011, Version 0.1.1.0 
 	* API Changes. `couchViewPut` moved to Database.CouchDB.Design and lost
 	language argument.	
 	* Tests.  10.01.2011, Version 0.1.0.1 

diff --git a/couchdb-conduit.cabal b/couchdb-conduit.cabal
@@ -1,5 +1,5 @@
 name:           couchdb-conduit
-version:        0.2.0
+version:        0.2.0.1
 cabal-version:  >= 1.8
 build-type:     Simple
 stability:      Experimental

diff --git a/src/Database/CouchDB/Conduit/LowLevel.hs b/src/Database/CouchDB/Conduit/LowLevel.hs
@@ -78,7 +78,7 @@ couch' :: MonadCouch m =>
     -> ResourceT m (CouchResponse m)
 couch' meth p hdrs qs reqBody = 
         couch meth 
-        (\dbP -> mkPath [dbP, p])
+        (\dbP -> B.intercalate "/" . filter (/="") $ [dbP, p])
         hdrs
         qs
         reqBody