diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-06 22:57:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-06 22:57:54 -0400 |
| commit | bfe292d5a06bfa6a07c1f3ad6d07c07e33f4a3b5 (patch) | |
| tree | edac74fc7deceb877a64d6631477a3f163c69116 /Utility/WebApp.hs | |
| parent | d36f19e7f422518f16d306be8cdc9561388f49a6 (diff) | |
whups
Diffstat (limited to 'Utility/WebApp.hs')
| -rw-r--r-- | Utility/WebApp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 274902c3e..225021b2e 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -70,7 +70,7 @@ browserProc url = proc "xdg-open" [url] -} runWebApp :: Maybe HostName -> Wai.Application -> (SockAddr -> IO ()) -> IO () runWebApp h app observer = withSocketsDo $ do - sock <- bindPort (settingsPort webAppSettings) (settingsHost webAppSettings) + sock <- getSocket h void $ forkIO $ runSettingsSocket webAppSettings sock app sockaddr <- fixSockAddr <$> getSocketName sock observer sockaddr |