Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove debug output

Browse source
This commit is contained in:
Victor Denisov 2016-06-06 22:44:12 -07:00
parent 7fc095725f
commit ff0962b1d3
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Database/MongoDB/Query.hs
View file

@ -454,7 +454,6 @@ insertBlock opts col docs = do
return $ map (valueAt "_id") docs' return $ map (valueAt "_id") docs'
else do else do
doc <- runCommand $ insertCommandDocument opts col docs' doc <- runCommand $ insertCommandDocument opts col docs'
liftIO $ putStrLn $ show doc
case (look "writeErrors" doc, look "writeConcernError" doc) of case (look "writeErrors" doc, look "writeConcernError" doc) of
(Nothing, Nothing) -> return $ map (valueAt "_id") docs' (Nothing, Nothing) -> return $ map (valueAt "_id") docs'
(Just err, Nothing) -> do (Just err, Nothing) -> do