Remove debug output

2016-06-06 22:44:12 -07:00 · 2016-06-06 22:44:12 -07:00 · ff0962b1d3
commit ff0962b1d3
parent 7fc095725f
1 changed files with 0 additions and 1 deletions
--- 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