Permalink
Browse files

remove one stack level, bump version

  • Loading branch information...
1 parent fffed0c commit 4a03e53f7a3f8a04b224e7852babbb08326f4bbf @akaspin committed Jan 10, 2012
Showing with 3 additions and 2 deletions.
  1. +1 −1 couchdb-conduit.cabal
  2. +2 −1 src/Database/CouchDB/Conduit.hs
View
@@ -1,5 +1,5 @@
name: couchdb-conduit
-version: 0.1.0.0
+version: 0.1.0.1
cabal-version: >= 1.8
build-type: Simple
stability: Experimental
@@ -170,6 +170,7 @@ withCouchConnection :: ResourceIO m =>
-> m a
withCouchConnection c@(CouchConnection _ _ mayMan _) f =
case mayMan of
+ -- Allocate manager with helper
Nothing -> H.withManager $ \m -> lift $ f $ c {couchManager = Just m}
- Just m -> runResourceT $ lift $ f $ c {couchManager = Just m}
+ _ -> f c

0 comments on commit 4a03e53

Please sign in to comment.