diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,13 @@
 # Change Log
 All notable changes to this project will be documented in this file.
 
+## 0.3.1.0 - 2015-01-07
+### Added
+- Added Public mode.
+
+### Changed
+- Dependency bounds changed on warp-tls to pull in critical bug fix.
+
 ## 0.3.0.0 - 2014-12-29
 ### Added
 - CHANGELOG.md and README.md
diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -60,7 +60,7 @@
 -- Not future things: CGI etc of any sort, "extensibility"
 --
 vERSION :: String
-vERSION = "0.3.0.1"
+vERSION = "0.3.1.0"
 
 -- STUN code
 
@@ -263,6 +263,8 @@
         "Don't attempt to get the public IP via STUN.",
     Option "d" ["dev-mode"] (NoArg (\opt -> opt { optGetIP = False, optLocalOnly = True, optAuthentication = False, optHTTPS = False })) 
         "Equivalent to --local --no-auth --no-https --no-stun.",
+    Option "P" ["public"] (NoArg (\opt -> opt { optAuthentication = False, optHTTPS = False })) 
+        "Equivalent to --no-auth --no-https.",
     Option "X" [] (ReqArg (\h opt -> opt { optHeaders = h : optHeaders opt }) "HEADER")
         "Add HEADER to all server responses.",
     Option "z" ["gzip", "compress"] (NoArg (\opt -> opt { optCompress = True })) 
@@ -391,7 +393,7 @@
         policy = basePolicy <> addBase dir
 
 main :: IO ()
-main = Net.withSocketsDo $ do
+main = do
     args <- getArgs
     case getOpt Permute options args of
         (os, [], []) -> serve (combine os) "."
diff --git a/sws.cabal b/sws.cabal
--- a/sws.cabal
+++ b/sws.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.3.0.1
+version:             0.3.1.0
 
 -- A short (one-line) description of the package.
 synopsis:            A simple web server for serving directories, similar to weborf.
@@ -81,7 +81,7 @@
     resourcet(==1.1.*),
     transformers(==0.4.*),
     warp(==3.0.*), 
-    warp-tls(==3.0.*), 
+    warp-tls >=3.0.1.2 && <3.1, 
     wai(==3.0.*),
     wai-middleware-static(==0.6.*), 
     wai-extra >=3.0.3 && <3.1,
@@ -92,4 +92,3 @@
   
   -- Base language which the package is written in.
   default-language:    Haskell2010
-