Permalink
Browse files

Remove debug prints

Signed-off-by: Alexander Dorofeev <aka.spin@gmail.com>
  • Loading branch information...
1 parent 6e73f34 commit faf93fb6977248b6402b6f2fa561f72c53779322 @akaspin committed Mar 9, 2012
Showing with 1 addition and 4 deletions.
  1. +1 −1 couchdb-conduit.cabal
  2. +0 −3 src/Database/CouchDB/Conduit/LowLevel.hs
View
@@ -1,5 +1,5 @@
name: couchdb-conduit
-version: 0.7.3
+version: 0.7.4
cabal-version: >= 1.8
build-type: Simple
stability: Stable
@@ -33,8 +33,6 @@ import qualified Network.HTTP.Types as HT
import Database.CouchDB.Conduit.Internal.Connection
-import Control.Monad.IO.Class (liftIO)
-
-- | CouchDB response
type CouchResponse m = H.Response (Source m B.ByteString)
@@ -62,7 +60,6 @@ couch meth path hdrs qs reqBody protectFn = do
, H.queryString = HT.renderQuery False qs
, H.requestBody = reqBody
, H.checkStatus = const . const $ Nothing }
- liftIO $ print $ withPrefix $ couchPrefix conn
-- Apply auth if needed
let req' = if couchLogin conn == B.empty then req else H.applyBasicAuth
(couchLogin conn) (couchPass conn) req

0 comments on commit faf93fb

Please sign in to comment.