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

Wrap lines

Browse source
This commit is contained in:
Victor Denisov 2017-02-04 14:47:33 -08:00
parent 173e90eb90
commit b6078cc19d
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Database/MongoDB/Query.hs
View file

@ -535,15 +535,18 @@ 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 since we can not really report meaningful result for every document 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)