handle specific windows network exceptions when waiting for port to o…

…pen.

Seems like the servant-client does not handle IO / Network exceptions
that can occur on Windows correctly. So this is a first work-around
that. We may want to move this logic to our Jörmungandr http-client
itself to actually properly handle this type of failure on every
endpoint.

lib/core/src/Cardano/Wallet/Network/Ports.hs

@@ -31,6 +31,8 @@ import Control.Monad.IO.Class
     ( liftIO )
 import Control.Retry
     ( RetryPolicyM, retrying )
+import Data.List
+    ( isSubsequenceOf )
 import Data.Streaming.Network
     ( bindRandomPortTCP )
 import Data.Word
@@ -52,7 +54,6 @@ import Network.Socket
 import UnliftIO.Exception
     ( bracket, throwIO, try )
 
-
 -- | Wait until a TCP port is open to connections according to a given retry
 -- policy. Throws an exception if the time out is reached.
 waitForPort :: RetryPolicyM IO -> PortNumber -> IO Bool
@@ -89,10 +90,19 @@ isPortOpen sockAddr = do
     res <- try $ connect sock sockAddr
     case res of
       Right () -> return True
-      Left e ->
-        if (Errno <$> ioe_errno e) == Just eCONNREFUSED
-          then return False
-          else throwIO e
+      Left e
+        | (Errno <$> ioe_errno e) == Just eCONNREFUSED -> pure False
+        | any (`isSubsequenceOf` show e) windowsNetworkError -> pure False
+        | otherwise -> throwIO e
+  where
+    windowsNetworkError :: [String]
+    windowsNetworkError =
+        [ "WSAECONNREFUSED"  -- Connection refused
+        , "WSAEADDRNOTAVAIL" -- Cannot assign requested address
+        , "WSAETIMEDOUT"     -- Connection timed out
+        , "WSAEHOSTUNREACH"  -- Host is unreachable
+        , "WSAEHOSTDOWN"     -- Host is down
+        ]
 
 -- | Creates a `SockAttr` from host IP and port number.
 --