From ff0962b1d3365748f482799de5fa7101f2211224 Mon Sep 17 00:00:00 2001 From: Victor Denisov Date: Mon, 6 Jun 2016 22:44:12 -0700 Subject: [PATCH] Remove debug output --- Database/MongoDB/Query.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs index a347dda..5eb895f 100644 --- a/Database/MongoDB/Query.hs +++ b/Database/MongoDB/Query.hs @@ -454,7 +454,6 @@ insertBlock opts col docs = do return $ map (valueAt "_id") docs' else do doc <- runCommand $ insertCommandDocument opts col docs' - liftIO $ putStrLn $ show doc case (look "writeErrors" doc, look "writeConcernError" doc) of (Nothing, Nothing) -> return $ map (valueAt "_id") docs' (Just err, Nothing) -> do