Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

remove one stack level, bump version

  • Loading branch information...
commit 4a03e53f7a3f8a04b224e7852babbb08326f4bbf 1 parent fffed0c
@akaspin authored
Showing with 3 additions and 2 deletions.
  1. +1 −1  couchdb-conduit.cabal
  2. +2 −1  src/Database/CouchDB/Conduit.hs
View
2  couchdb-conduit.cabal
@@ -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
View
3  src/Database/CouchDB/Conduit.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.