diff options
Diffstat (limited to 'src/Server.hs')
| -rw-r--r-- | src/Server.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Server.hs b/src/Server.hs index 3ecb642..ee9aad2 100644 --- a/src/Server.hs +++ b/src/Server.hs @@ -7,15 +7,15 @@ import Control.Exception.Base (throwIO, catch, bracket) import Data.Bits ((.|.)) import Data.Pool (createPool, destroyAllResources) import Database.MySQL.Base (ConnectInfo) -import Network.Socket (socket, bind, listen, close, maxListenQueue, - getSocketName, inet_addr, - Family(AF_UNIX, AF_INET), SocketType(Stream), - Socket, SockAddr(SockAddrUnix, SockAddrInet)) +import Network.Socket (socket, setSocketOption, bind, listen, close, + maxListenQueue, getSocketName, inet_addr, Family(AF_UNIX, AF_INET), + SocketType(Stream), SocketOption(ReuseAddr), Socket, SockAddr(SockAddrUnix, + SockAddrInet)) import Network.Wai.Handler.Warp (Port, defaultSettings, runSettingsSocket) import System.IO (hPutStrLn, stderr) import System.IO.Error (isDoesNotExistError) -import System.Posix.Files (removeLink, setFileMode, socketMode, - ownerReadMode, ownerWriteMode, groupReadMode, groupWriteMode) +import System.Posix.Files (removeLink, setFileMode, socketMode, ownerReadMode, + ownerWriteMode, groupReadMode, groupWriteMode) import qualified Database.MySQL.Simple as MySQL import Application (app) @@ -55,6 +55,7 @@ createSocket (Right path) = do return sock createSocket (Left port) = do sock <- socket AF_INET Stream 0 + setSocketOption sock ReuseAddr 1 addr <- inet_addr "127.0.0.1" bind sock $ SockAddrInet (fromIntegral port) addr hPutStrLn stderr $ "Listening on localhost:" ++ show port |