urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 00:13:12 +03:00
Code Issues Packages Projects Releases Wiki Activity

Allow remote HTTP connections.

Browse Source
This commit is contained in:
Benjamin Summers 2019-12-19 14:20:04 -08:00
parent 913fbd52a6
commit f7e0e22ce7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg/hs/king/lib/Vere/Http/Server.hs
View File

@ -405,7 +405,7 @@ openPort = \case
tryOpenPort ∷ W.Port → IO (Either SomeException (W.Port, Net.Socket))
tryOpenPort por = try $ do
s <- Net.socket Net.AF_INET Net.Stream Net.defaultProtocol
localhost <- Net.inet_addr "127.0.0.1"
localhost <- Net.inet_addr "0.0.0.0"
Net.bind s (Net.SockAddrInet (fromIntegral por) localhost)
Net.listen s 1
port <- Net.socketPort s
@ -440,8 +440,10 @@ startServ isFake conf plan = do
let loopOpts = W.defaultSettings & W.setPort (fromIntegral loopPort)
& W.setHost "127.0.0.1"
& W.setTimeout (5 * 60)
httpOpts = W.defaultSettings & W.setPort (fromIntegral httpPort)
httpsOpts = W.defaultSettings & W.setPort (fromIntegral httpsPort)
httpOpts = W.defaultSettings & W.setHost "*"
& W.setPort (fromIntegral httpPort)
httpsOpts = W.defaultSettings & W.setHost "*"
& W.setPort (fromIntegral httpsPort)
env <- ask