From 13f56bbee4b3fe4996a188ec6d62a8569e188b99 Mon Sep 17 00:00:00 2001
From: Scott Fleischman <scott-fleischman@users.noreply.github.com>
Date: Wed, 29 May 2019 16:52:37 -0700
Subject: [PATCH] Use ciphersuite_default instead of ciphersuite_all.

Due to this warning: "This ciphersuite list contains RC4. Use ciphersuite_strong or ciphersuite_default instead."
---
 Database/MongoDB/Transport/Tls.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Database/MongoDB/Transport/Tls.hs b/Database/MongoDB/Transport/Tls.hs
index 69aad19..cd6565b 100644
--- a/Database/MongoDB/Transport/Tls.hs
+++ b/Database/MongoDB/Transport/Tls.hs
@@ -50,7 +50,7 @@ connect host port = bracketOnError (connectTo host port) hClose $ \handle -> do
 
   let params = (TLS.defaultParamsClient host "")
         { TLS.clientSupported = def
-            { TLS.supportedCiphers = TLS.ciphersuite_all}
+            { TLS.supportedCiphers = TLS.ciphersuite_default}
         , TLS.clientHooks = def
             { TLS.onServerCertificate = \_ _ _ _ -> return []}
         }