From 9aa9aa82b4ec92d5443624f99ab43c805bcc6aa0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 6 Dec 2013 22:38:01 -0400
Subject: fix

---
 Utility/WebApp.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Utility')

diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs
index ce23da4bc..5ee53253f 100644
--- a/Utility/WebApp.hs
+++ b/Utility/WebApp.hs
@@ -76,8 +76,7 @@ runWebApp h app observer = withSocketsDo $ do
 #ifndef mingw32_HOST_OS
 	sock <- getSocket h
 #else
-	let set = defaultSettings
-	sock <- bindPort (settingsPort set) (settingsHost set)
+	sock <- bindPort (settingsPort webAppSettings) (settingsHost webAppSettings)
 #endif
 	void $ forkIO $ runSettingsSocket webAppSettings sock app
 	sockaddr <- fixSockAddr <$> getSocketName sock
-- 
cgit v1.2.3