diff --git a/ftp-client.cabal b/ftp-client.cabal
--- a/ftp-client.cabal
+++ b/ftp-client.cabal
@@ -1,48 +1,43 @@
-cabal-version: >=1.10
-name: ftp-client
-version: 0.5.1.5
-license: PublicDomain
-license-file: LICENSE
-maintainer: mrobinson7627@gmail.com
-author: Megan Robinson
-homepage: https://github.com/mr/ftp-client
-synopsis: Transfer files with FTP and FTPS
-description:
-    ftp-client is a library for communicating with an FTP server. It works over both a clear channel or TLS.
-category: Web
-build-type: Simple
-extra-source-files:
-    README.md
-
-source-repository head
-    type: git
-    location: https://github.com/mr/ftp-client
-
-library
-    exposed-modules:
-        Network.FTP.Client
-    hs-source-dirs: src
-    default-language: Haskell2010
-    default-extensions: OverloadedStrings
-    build-depends:
-        base >=4.8 && <5,
-        bytestring >=0.10.8.2 && <0.13,
-        network >=2.6.3.6 && <3.2,
-        attoparsec >=0.10 && <0.15,
-        crypton-connection >=0.3 && <0.4,
-        transformers >=0.5.6.2 && <0.7,
-          -- transformers bump see https://github.com/haskell-infra/hackage-trustees/issues/348
-        exceptions >=0.10.3 && <0.11,
-        containers >=0.5.11.0 && <0.8
-
-test-suite ftp-client-test
-    type: exitcode-stdio-1.0
-    main-is: test.hs
-    hs-source-dirs: test
-    default-language: Haskell2010
-    ghc-options: -threaded -rtsopts -with-rtsopts=-N
-    build-depends:
-        base >=4.11.1.0 && <5,
-        bytestring >=0.10.8.2 && <0.13,
-        hspec >= 2.7,
-        ftp-client -any
+name:                ftp-client
+version:             0.5.1.6
+synopsis:            Transfer files with FTP and FTPS
+description:         ftp-client is a library for communicating with an FTP server. It works over both a clear channel or TLS.
+homepage:            https://github.com/flipstone/ftp-client
+license:             PublicDomain
+maintainer:          Flipstone Technology Partners
+license-file:        LICENSE
+author:              Megan Robinson
+category:            Web
+build-type:          Simple
+extra-source-files:  README.md
+cabal-version:       >=1.10
+
+library
+  hs-source-dirs:      src
+  exposed-modules:     Network.FTP.Client
+  default-language:    Haskell2010
+  default-extensions:  OverloadedStrings
+  build-depends:       base >= 4.8 && < 5
+                     , bytestring >= 0.10.8.2 && < 0.13
+                     , network >= 2.6.3.6 && < 3.3
+                     , attoparsec >= 0.10 && < 0.15
+                     , crypton-connection >= 0.3 && < 0.5
+                     , transformers >= 0.5.6.2 && < 0.7
+                     , exceptions >= 0.10.3 && < 0.11
+                     , containers >= 0.5.11.0 && < 0.8
+                     , data-default-class >= 0.1.2.0 && < 0.2
+
+test-suite ftp-client-test
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      test
+  main-is:             test.hs
+  build-depends:       base >=4.11.1.0 && < 5
+                     , bytestring >=0.10.8.2 && <0.13
+                     , hspec >= 2.7
+                     , ftp-client -any
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+  default-language:    Haskell2010
+
+source-repository head
+  type:     git
+  location: https://github.com/flipstone/ftp-client
diff --git a/src/Network/FTP/Client.hs b/src/Network/FTP/Client.hs
--- a/src/Network/FTP/Client.hs
+++ b/src/Network/FTP/Client.hs
@@ -58,6 +58,7 @@
     parseMlsxLine
 ) where
 
+import Data.Default.Class (def)
 import qualified Data.ByteString.Char8 as C
 import qualified Data.ByteString as B
 import Data.ByteString (ByteString)
@@ -520,10 +521,8 @@
 connectTLS :: MonadIO m => SIO.Handle -> String -> Int -> m Connection
 connectTLS h host portNum = do
     context <- liftIO initConnectionContext
-    let tlsSettings = TLSSettingsSimple
+    let tlsSettings = def
             { settingDisableCertificateValidation = True
-            , settingDisableSession = False
-            , settingUseServerName = False
             }
         connectionParams = ConnectionParams
             { connectionHostname = host