From 5527036d6cf7a80e17005bee0e663fae9891da1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A1bi=C3=A1n=20Tam=C3=A1s=20L=C3=A1szl=C3=B3?= Date: Wed, 27 Dec 2017 11:49:08 +0100 Subject: [PATCH] Remove offending putStrLn-s The two removed lines littered the terminal. --- Database/MongoDB/Query.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs index 213fd11..da3c36e 100644 --- a/Database/MongoDB/Query.hs +++ b/Database/MongoDB/Query.hs @@ -782,7 +782,6 @@ updateBlock ordered col (prevCount, docs) = do ++ (show unknownErr)] let upsertedList = map docToUpserted $ fromMaybe [] (doc !? "upserted") - liftIO $ putStrLn $ show doc let successResults = WriteResult False n (doc !? "nModified") 0 upsertedList [] [] return $ foldl1' mergeWriteResults [writeErrorsResults, writeConcernResults, successResults] @@ -938,7 +937,6 @@ deleteBlock ordered col (prevCount, docs) = do Confirm params -> params doc <- runCommand $ deleteCommandDocument col ordered docs writeConcern let n = fromMaybe 0 $ doc !? "n" - liftIO $ putStrLn $ "result of delete block: " ++ (show n) let successResults = WriteResult False 0 Nothing n [] [] [] let writeErrorsResults =