diff options
-rw-r--r-- | Utility/WebApp.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 4176d418d..225021b2e 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -39,6 +39,7 @@ import Control.Concurrent #ifdef __ANDROID__ import Data.Endian #endif +import Network.Socket (withSocketsDo) localhost :: HostName localhost = "localhost" @@ -68,7 +69,7 @@ browserProc url = proc "xdg-open" [url] - such as start a web browser to view the webapp. -} runWebApp :: Maybe HostName -> Wai.Application -> (SockAddr -> IO ()) -> IO () -runWebApp h app observer = do +runWebApp h app observer = withSocketsDo $ do sock <- getSocket h void $ forkIO $ runSettingsSocket webAppSettings sock app sockaddr <- fixSockAddr <$> getSocketName sock |