diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -1,5 +1,9 @@
 # Changelog for net-mqtt
 
+## 0.8.6.1
+
+Use `def` for TLS settings.
+
 ## 0.8.6.0
 
 Can forget in-flight and correlation data over time.
diff --git a/net-mqtt.cabal b/net-mqtt.cabal
--- a/net-mqtt.cabal
+++ b/net-mqtt.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           net-mqtt
-version:        0.8.6.0
+version:        0.8.6.1
 synopsis:       An MQTT Protocol Implementation.
 description:    Please see the README on GitHub at <https://github.com/dustin/mqtt-hs#readme>
 category:       Network
@@ -49,6 +49,7 @@
     , conduit-extra >=1.3.0 && <1.5
     , containers >=0.5.0 && <0.7
     , crypton-connection >=0.3.0
+    , data-default-class >=0.1.2
     , deepseq >=1.4.3.0 && <1.5
     , monad-loops >=0.4.3
     , network-conduit-tls ==1.4.*
@@ -78,6 +79,7 @@
     , conduit-extra >=1.3.0 && <1.5
     , containers >=0.5.0 && <0.7
     , crypton-connection >=0.3.0
+    , data-default-class >=0.1.2
     , deepseq >=1.4.3.0 && <1.5
     , monad-loops >=0.4.3
     , net-mqtt
@@ -108,6 +110,7 @@
     , conduit-extra >=1.3.0 && <1.5
     , containers >=0.5.0 && <0.7
     , crypton-connection >=0.3.0
+    , data-default-class >=0.1.2
     , deepseq >=1.4.3.0 && <1.5
     , monad-loops >=0.4.3
     , net-mqtt
@@ -147,6 +150,7 @@
     , conduit-extra >=1.3.0 && <1.5
     , containers >=0.5.0 && <0.7
     , crypton-connection >=0.3.0
+    , data-default-class >=0.1.2
     , deepseq >=1.4.3.0 && <1.5
     , lens
     , monad-loops >=0.4.3
diff --git a/src/Network/MQTT/Client.hs b/src/Network/MQTT/Client.hs
--- a/src/Network/MQTT/Client.hs
+++ b/src/Network/MQTT/Client.hs
@@ -56,6 +56,7 @@
 import qualified Data.Conduit.Combinators   as C
 import           Data.Conduit.Network       (AppData, appSink, appSource, clientSettings, runTCPClient)
 import           Data.Conduit.Network.TLS   (runTLSClient, tlsClientConfig, tlsClientTLSSettings)
+import           Data.Default.Class         (def)
 import           Data.Foldable              (traverse_)
 import           Data.Map.Strict            (Map)
 import qualified Data.Map.Strict            as Map
@@ -157,7 +158,7 @@
                         _msgCB=NoCallback,
                         _protocol=Protocol311, _connProps=mempty,
                         _connectTimeout=180000000,
-                        _tlsSettings=TLSSettingsSimple False False False,
+                        _tlsSettings=def,
                         _pingPeriod=30000000,
                         _pingPatience=90000000}