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

Edit comments slightly

Browse source
This commit is contained in:
Victor Denisov 2016-11-24 23:09:56 -08:00
parent 80ebc6f756
commit eeb0c7981d
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Database/MongoDB/Query.hs
View file

@ -539,15 +539,15 @@ insertBlock opts col (prevCount, docs) = do
case (look "writeErrors" doc, look "writeConcernError" doc) of case (look "writeErrors" doc, look "writeConcernError" doc) of
(Nothing, Nothing) -> return $ Right $ map (valueAt "_id") docs' (Nothing, Nothing) -> return $ Right $ map (valueAt "_id") docs'
(Just err, Nothing) -> do (Just err, Nothing) -> do
return $ Left $ WriteFailure prevCount -- TODO: insert error reporting should be rewritten return $ Left $ WriteFailure prevCount -- TODO: insert error reporting should be rewritten since we can not really report meaningful result for every document
(maybe 0 id $ lookup "ok" doc) (maybe 0 id $ lookup "ok" doc)
(show err) (show err)
(Nothing, Just err) -> do (Nothing, Just err) -> do
return $ Left $ WriteFailure prevCount -- TODO: insert error reporting should be rewritten return $ Left $ WriteFailure prevCount -- TODO: insert error reporting should be rewritten -----''------
(maybe 0 id $ lookup "ok" doc) (maybe 0 id $ lookup "ok" doc)
(show err) (show err)
(Just err, Just writeConcernErr) -> do (Just err, Just writeConcernErr) -> do
return $ Left $ WriteFailure prevCount -- TODO: insert error reporting should be rewritten return $ Left $ WriteFailure prevCount -- TODO: insert error reporting should be rewritten -----''------
(maybe 0 id $ lookup "ok" doc) (maybe 0 id $ lookup "ok" doc)
(show err ++ show writeConcernErr) (show err ++ show writeConcernErr)