From b6078cc19dcfa806e27274f1524f382b413319bb Mon Sep 17 00:00:00 2001 From: Victor Denisov Date: Sat, 4 Feb 2017 14:47:33 -0800 Subject: [PATCH] Wrap lines --- Database/MongoDB/Query.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs index 1d12379..cf49d4c 100644 --- a/Database/MongoDB/Query.hs +++ b/Database/MongoDB/Query.hs @@ -535,15 +535,18 @@ insertBlock opts col (prevCount, docs) = do case (look "writeErrors" doc, look "writeConcernError" doc) of (Nothing, Nothing) -> return $ Right $ map (valueAt "_id") docs' (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) (show err) (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) (show err) (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) (show err ++ show writeConcernErr)