didn't seem to help
This commit is contained in:
parent
85936392ec
commit
67df015767
1 changed files with 0 additions and 7 deletions
|
@ -39,9 +39,6 @@ import Control.Concurrent
|
|||
#ifdef __ANDROID__
|
||||
import Data.Endian
|
||||
#endif
|
||||
#ifdef mingw32_HOST_OS
|
||||
import Data.Conduit.Network (bindPort)
|
||||
#endif
|
||||
import Network.Socket (withSocketsDo)
|
||||
|
||||
localhost :: HostName
|
||||
|
@ -73,11 +70,7 @@ browserProc url = proc "xdg-open" [url]
|
|||
-}
|
||||
runWebApp :: Maybe HostName -> Wai.Application -> (SockAddr -> IO ()) -> IO ()
|
||||
runWebApp h app observer = withSocketsDo $ do
|
||||
#ifndef mingw32_HOST_OS
|
||||
sock <- getSocket h
|
||||
#else
|
||||
sock <- bindPort (settingsPort webAppSettings) (settingsHost webAppSettings)
|
||||
#endif
|
||||
void $ forkIO $ runSettingsSocket webAppSettings sock app
|
||||
sockaddr <- fixSockAddr <$> getSocketName sock
|
||||
observer sockaddr
|
||||
|
|
Loading…
Add table
Reference in a new issue