diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+## Version 0.4.0
+
+* Add support for overriding the TLS clientSupported member in TLSSettingsSimple
+  [#3](https://github.com/kazu-yamamoto/crypton-connection/pull/3)
+
 ## Version 0.3.2
 
 * Supporting tls v2.0.0.
diff --git a/Network/Connection.hs b/Network/Connection.hs
--- a/Network/Connection.hs
+++ b/Network/Connection.hs
@@ -57,7 +57,6 @@
 import qualified System.IO.Error as E (mkIOError, eofErrorType)
 
 import qualified Network.TLS as TLS
-import qualified Network.TLS.Extra as TLS
 
 import System.X509 (getSystemCertificateStore)
 
@@ -123,7 +122,7 @@
 makeTLSParams :: ConnectionContext -> ConnectionID -> TLSSettings -> TLS.ClientParams
 makeTLSParams cg cid ts@(TLSSettingsSimple {}) =
     (TLS.defaultParamsClient (fst cid) portString)
-        { TLS.clientSupported = def { TLS.supportedCiphers = TLS.ciphersuite_default }
+        { TLS.clientSupported = settingClientSupported ts
         , TLS.clientShared    = def
             { TLS.sharedCAStore         = globalCertificateStore cg
             , TLS.sharedValidationCache = validationCache
diff --git a/Network/Connection/Types.hs b/Network/Connection/Types.hs
--- a/Network/Connection/Types.hs
+++ b/Network/Connection/Types.hs
@@ -18,6 +18,7 @@
 
 import Network.Socket (PortNumber, Socket)
 import qualified Network.TLS as TLS
+import qualified Network.TLS.Extra as TLS
 
 import System.IO (Handle)
 
@@ -75,12 +76,15 @@
                                                            --   will always re-established their context.
                                                            --   Not Implemented Yet.
              , settingUseServerName                :: Bool -- ^ Use server name extension. Not Implemented Yet.
+             , settingClientSupported              :: TLS.Supported
+                                                           -- ^ Used for the 'TLS.clientSupported'
+                                                           --   member of 'TLS.ClientParams'.
              } -- ^ Simple TLS settings. recommended to use.
     | TLSSettings TLS.ClientParams -- ^ full blown TLS Settings directly using TLS.Params. for power users.
     deriving (Show)
 
 instance Default TLSSettings where
-    def = TLSSettingsSimple False False False
+    def = TLSSettingsSimple False False False def { TLS.supportedCiphers = TLS.ciphersuite_default }
 
 type ConnectionID = (HostName, PortNumber)
 
diff --git a/crypton-connection.cabal b/crypton-connection.cabal
--- a/crypton-connection.cabal
+++ b/crypton-connection.cabal
@@ -1,5 +1,5 @@
 Name:                crypton-connection
-Version:             0.3.2
+Version:             0.4.0
 Description:
     Simple network library for all your connection need.
     .