Remove debug output
This commit is contained in:
parent
7fc095725f
commit
ff0962b1d3
1 changed files with 0 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue