diff --git a/Web/Scotty/TLS.hs b/Web/Scotty/TLS.hs
--- a/Web/Scotty/TLS.hs
+++ b/Web/Scotty/TLS.hs
@@ -4,6 +4,7 @@
     (  -- * A method for running Scotty over TLS
       scottyTLS
        -- * Transformer version
+    , scottyTLSSettings
     , scottyTTLS
     , module Web.Scotty.Trans
     ) where
@@ -14,7 +15,7 @@
 import           Network.Wai.Handler.Warp    (Port, defaultSettings,
                                               setPort)
 import           Network.Wai.Handler.WarpTLS (certFile, defaultTlsSettings,
-                                              keyFile, runTLS)
+                                              keyFile, runTLS, TLSSettings(..))
 import           Web.Scotty                  (scottyApp, ScottyM)
 import           Web.Scotty.Trans            (ScottyT, scottyAppT)
 
@@ -22,6 +23,11 @@
 scottyTLS :: Port -> FilePath -> FilePath -> ScottyM () -> IO ()
 scottyTLS port key cert = runTLS
   (defaultTlsSettings { keyFile = key , certFile = cert })
+  (setPort port defaultSettings) <=< scottyApp
+
+scottyTLSSettings :: Port -> TLSSettings -> ScottyM () -> IO ()
+scottyTLSSettings port settings = runTLS
+  settings
   (setPort port defaultSettings) <=< scottyApp
 
 scottyTTLS :: (Monad m, MonadIO n) => Port -> FilePath -> FilePath ->
diff --git a/scotty-tls.cabal b/scotty-tls.cabal
--- a/scotty-tls.cabal
+++ b/scotty-tls.cabal
@@ -1,5 +1,5 @@
 name:                scotty-tls
-version:             0.4.0
+version:             0.4.1
 synopsis:            TLS for Scotty
 description:         Run your Scotty apps over TLS
 homepage:            https://github.com/dmjio/scotty-tls.git