diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,21 @@
+Copyright (c) 2014 Tamás László Fábián
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
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/Yesod/Default/MainTLS.hs b/Yesod/Default/MainTLS.hs
new file mode 100644
--- /dev/null
+++ b/Yesod/Default/MainTLS.hs
@@ -0,0 +1,127 @@
+{-# LANGUAGE CPP                #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE OverloadedStrings  #-}
+{-# LANGUAGE TemplateHaskell    #-}
+module Yesod.Default.MainTLS
+    ( defaultMain
+    , defaultMainLog
+    , defaultRunner
+    , defaultDevelApp
+    , LogFunc
+    ) where
+
+import Yesod.Default.Config
+import Network.Wai (Application)
+import Network.Wai.Handler.Warp
+    (defaultSettings, settingsPort, settingsHost, settingsOnException)
+import Network.Wai.Handler.WarpTLS (runTLS, defaultTlsSettings)
+import qualified Network.Wai.Handler.Warp as Warp
+import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
+import Network.Wai.Middleware.Gzip (gzip, GzipFiles (GzipCacheFolder), gzipFiles, def)
+import Network.Wai.Middleware.Autohead (autohead)
+import Network.Wai.Middleware.Jsonp (jsonp)
+import Control.Monad (when)
+import System.Environment (getEnvironment)
+import Data.Maybe (fromMaybe)
+import Safe (readMay)
+import Control.Monad.Logger (Loc, LogSource, LogLevel (LevelError), liftLoc)
+import System.Log.FastLogger (LogStr, toLogStr)
+import Language.Haskell.TH.Syntax (qLocation)
+
+#ifndef WINDOWS
+import qualified System.Posix.Signals as Signal
+import Control.Concurrent (forkIO, killThread)
+import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar)
+#endif
+
+-- | Run your app, taking environment and port settings from the
+--   commandline.
+--
+--   @'fromArgs'@ helps parse a custom configuration
+--
+--   > main :: IO ()
+--   > main = defaultMain (fromArgs parseExtra) makeApplication
+--
+defaultMain :: (Show env, Read env)
+            => IO (AppConfig env extra)
+            -> (AppConfig env extra -> IO Application)
+            -> IO ()
+defaultMain load getApp = do
+    config <- load
+    app <- getApp config
+    runTLS defaultTlsSettings defaultSettings
+        { settingsPort = appPort config
+        , settingsHost = appHost config
+        } app
+
+type LogFunc = Loc -> LogSource -> LogLevel -> LogStr -> IO ()
+
+-- | Same as @defaultMain@, but gets a logging function back as well as an
+-- @Application@ to install Warp exception handlers.
+--
+-- Since 1.2.5
+defaultMainLog :: (Show env, Read env)
+               => IO (AppConfig env extra)
+               -> (AppConfig env extra -> IO (Application, LogFunc))
+               -> IO ()
+defaultMainLog load getApp = do
+    config <- load
+    (app, logFunc) <- getApp config
+    runTLS defaultTlsSettings defaultSettings
+        { settingsPort = appPort config
+        , settingsHost = appHost config
+        , settingsOnException = const $ \e -> when (shouldLog' e) $ logFunc
+            $(qLocation >>= liftLoc)
+            "yesod"
+            LevelError
+            (toLogStr $ "Exception from Warp: " ++ show e)
+        } app
+  where
+    shouldLog' = Warp.defaultShouldDisplayException
+
+-- | Run your application continously, listening for SIGINT and exiting
+--   when received
+--
+--   > withYourSite :: AppConfig DefaultEnv -> Logger -> (Application -> IO a) -> IO ()
+--   > withYourSite conf logger f = do
+--   >     Settings.withConnectionPool conf $ \p -> do
+--   >         runConnectionPool (runMigration yourMigration) p
+--   >         defaultRunner f $ YourSite conf logger p
+defaultRunner :: (Application -> IO ()) -> Application -> IO ()
+defaultRunner f app = do
+    -- clear the .static-cache so we don't have stale content
+    exists <- doesDirectoryExist staticCache
+    when exists $ removeDirectoryRecursive staticCache
+#ifdef WINDOWS
+    f (middlewares app)
+#else
+    tid <- forkIO $ f (middlewares app) >> return ()
+    flag <- newEmptyMVar
+    _ <- Signal.installHandler Signal.sigINT (Signal.CatchOnce $ do
+        putStrLn "Caught an interrupt"
+        killThread tid
+        putMVar flag ()) Nothing
+    takeMVar flag
+#endif
+  where
+    middlewares = gzip gset . jsonp . autohead
+
+    gset = def { gzipFiles = GzipCacheFolder staticCache }
+    staticCache = ".static-cache"
+
+-- | Run your development app using a custom environment type and loader
+--   function
+defaultDevelApp
+    :: (Show env, Read env)
+    => IO (AppConfig env extra) -- ^ A means to load your development @'AppConfig'@
+    -> (AppConfig env extra -> IO Application) -- ^ Get your @Application@
+    -> IO (Int, Application)
+defaultDevelApp load getApp = do
+    conf   <- load
+    env <- getEnvironment
+    let p = fromMaybe (appPort conf) $ lookup "PORT" env >>= readMay
+        pdisplay = fromMaybe p $ lookup "DISPLAY_PORT" env >>= readMay
+    putStrLn $ "Devel application launched: http://localhost:" ++ show pdisplay
+    app <- getApp conf
+    return (p, app)
+
diff --git a/yesod-tls.cabal b/yesod-tls.cabal
new file mode 100644
--- /dev/null
+++ b/yesod-tls.cabal
@@ -0,0 +1,30 @@
+name:                yesod-tls
+version:             1.4.0
+synopsis:            Provides main functions using warp-tls for yesod projects
+description:         This package makes possible to build Yesod web applications that provide SSL support.
+homepage:            http://github.com/netom/yesod-tls
+license:             MIT
+license-file:        LICENSE
+author:              Tamás László Fábián <giganetom@gmail.com>
+maintainer:          Tamás László Fábián <giganetom@gmail.com>
+category:            Web, Yesod
+build-type:          Simple
+cabal-version:       >=1.6
+
+library
+  build-depends:       base >=4.3 && < 5
+                     , yesod >= 1.4.0 && < 1.5
+                     , wai >= 1.3
+                     , wai-extra >= 1.3
+                     , warp >= 1.3
+                     , warp-tls >= 3.0
+                     , template-haskell
+                     , monad-logger
+                     , fast-logger
+                     , safe
+                     , directory
+
+  if !os(windows)
+    build-depends: unix
+
+  exposed-modules: Yesod.Default.MainTLS