Merge pull request Happstack#67 from gbaz/patch-1

Fix inet_addr
scrive · May 27, 2021 · 7cab1d7 · 7cab1d7
2 parents d9cdb9a + c81a8ec
commit 7cab1d7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Happstack/Server/Internal/Listen.hs b/src/Happstack/Server/Internal/Listen.hs
@@ -63,7 +63,7 @@ listenOnIPv4 ip portm = do
 
 inet_addr :: String -> IO Socket.HostAddress
 inet_addr ip = do
-  addrInfos <- Socket.getAddrInfo (Just Socket.defaultHints) (Just ip) (Just "tcp")
+  addrInfos <- Socket.getAddrInfo (Just Socket.defaultHints) (Just ip) Nothing
   let getHostAddress addrInfo = case Socket.addrAddress addrInfo of
         Socket.SockAddrInet _ hostAddress -> Just hostAddress
         _ -> Nothing