From aead2b77331482ca3af2ea386de00e41c50f7c12 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 29 Aug 2016 19:11:51 -0400 Subject: make server default to only listening to localhost This way, the tor hidden service using it will be the only way it's exposed. --- HTTP/Server.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'HTTP') diff --git a/HTTP/Server.hs b/HTTP/Server.hs index f599c31..fa2e8da 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -19,6 +19,7 @@ import Network.Wai.Handler.Warp import Control.Monad.IO.Class import Control.Concurrent import Control.Concurrent.STM +import Data.String import qualified Data.ByteString as B data ServerState = ServerState @@ -29,11 +30,14 @@ newServerState :: IO ServerState newServerState = ServerState <$> newEmptyTMVarIO -runServer :: Port -> IO () -runServer port = do +runServer :: String -> Port -> IO () +runServer bindaddress port = do st <- newServerState _ <- forkIO $ obscurerThread st - run port (app st) + runSettings settings (app st) + where + settings = setHost host $ setPort port $ defaultSettings + host = fromString bindaddress serverStorage :: Storage serverStorage = localStorage "server" -- cgit v1.2.3