diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c) 2013, David Johnson
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of David Johnson nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,17 @@
+# Scotty-TLS
+
+You can test by generating a self-signed certificate [here](http://www.akadia.com/services/ssh_test_certificate.html).
+
+```haskell
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Data.Monoid    (mconcat)
+import           Web.Scotty
+import           Web.Scotty.TLS
+
+main :: IO ()
+main = scottyTLS 3000 "server.key" "server.crt" $ do
+         get "/:word" $ do
+             beam <- param "word"
+             html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]
+```
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/Web/Scotty/TLS.hs b/Web/Scotty/TLS.hs
new file mode 100644
--- /dev/null
+++ b/Web/Scotty/TLS.hs
@@ -0,0 +1,32 @@
+{-# LANGUAGE RankNTypes #-}
+
+module Web.Scotty.TLS
+    (  -- * A method for running Scotty over TLS
+      scottyTLS
+       -- * Transformer version
+    , scottyTTLS
+    , module Web.Scotty.Trans
+    ) where
+
+import           Control.Monad               ((<=<))
+import           Control.Monad.IO.Class      (MonadIO (liftIO))
+import           Network.Wai                 (Response)
+import           Network.Wai.Handler.Warp    (Port, defaultSettings,
+                                              settingsPort)
+import           Network.Wai.Handler.WarpTLS (certFile, defaultTlsSettings,
+                                              keyFile, runTLS)
+import           Web.Scotty                  (scottyApp)
+import           Web.Scotty.Trans            (ScottyM, ScottyT, scottyAppT)
+
+-- | Run a Scotty application over TLS
+scottyTLS :: Port -> FilePath -> FilePath -> ScottyM () -> IO ()
+scottyTLS port key cert = runTLS
+  (defaultTlsSettings { keyFile = key , certFile = cert })
+  (defaultSettings { settingsPort = port }) <=< scottyApp
+
+scottyTTLS :: (Monad m, MonadIO n) => Port -> FilePath -> FilePath ->
+              (forall a. m a -> n a) -> (m Response -> IO Response) -> ScottyT m () -> n ()
+scottyTTLS port key cert runM runToIO s = scottyAppT runM runToIO s >>= liftIO . runTLS
+                                              (defaultTlsSettings { keyFile = key, certFile = cert })
+                                              (defaultSettings { settingsPort = port })
+
diff --git a/examples/Main.hs b/examples/Main.hs
new file mode 100644
--- /dev/null
+++ b/examples/Main.hs
@@ -0,0 +1,11 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Data.Monoid    (mconcat)
+import           Web.Scotty
+import           Web.Scotty.TLS
+
+main :: IO ()
+main = scottyTLS 3000 "server.key" "server.crt" $ do
+         get "/:word" $ do
+             beam <- param "word"
+             html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]
diff --git a/scotty-tls.cabal b/scotty-tls.cabal
new file mode 100644
--- /dev/null
+++ b/scotty-tls.cabal
@@ -0,0 +1,29 @@
+name:                scotty-tls
+version:             0.1.0.0
+synopsis:            TLS for Scotty
+description:         Run your Scotty apps over TLS
+homepage:            https://github.com/dmjio/scotty-tls.git
+license:             BSD3
+license-file:        LICENSE
+author:              David Johnson
+maintainer:          djohnson.m@gmail.com
+category:            Web
+build-type:          Simple
+cabal-version:       >=1.10
+Extra-source-files:
+        README.md
+        examples/Main.hs
+library
+  exposed-modules:     Web.Scotty.TLS
+  other-extensions:    RankNTypes
+  build-depends:       base >=4.3.1 && < 5,
+                       scotty >=0.5.0,
+                       warp >= 1.3.4.1,
+                       warp-tls >=1.4.1.4,
+                       wai >= 1.3.0.1,
+                       transformers >= 0.3.0.0
+  GHC-options: -Wall -fno-warn-orphans
+  default-language:    Haskell2010
+source-repository head
+  type:     git
+  location: git://github.com/dmjio/scotty-tls.git