change from deprecated and removed aNY_PORT to defaultPort

(Both are just 0 internally.)

diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs
index d2dbd845a9aa7639f7a1c119e9f779dc49d85b51..62c6e2fd6815fb8beece6d728422a24ea7d72f6b 100644 (file)
--- a/Utility/WebApp.hs
+++ b/Utility/WebApp.hs
@@ -93,7 +93,7 @@ getSocket h = do
        addr <- inet_addr "127.0.0.1"
        sock <- socket AF_INET Stream defaultProtocol
        preparesocket sock
-       bind sock (SockAddrInet aNY_PORT addr)
+       bind sock (SockAddrInet defaultPort addr)
        use sock
   where
 #else