From d184b40f2a4b74f997f098a0b95da62fa018de27 Mon Sep 17 00:00:00 2001
From: Tamar Christina <tamar@zhox.com>
Date: Sat, 9 Mar 2019 11:42:37 +0000
Subject: [PATCH] Fix test on Windows

---
 tests/Network/SocketSpec.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/tests/Network/SocketSpec.hs b/tests/Network/SocketSpec.hs
index 963b87a4..6263f0c5 100644
--- a/tests/Network/SocketSpec.hs
+++ b/tests/Network/SocketSpec.hs
@@ -79,13 +79,19 @@ spec = do
             let hints = defaultHints { addrFlags = [AI_NUMERICSERV] }
             void $ getAddrInfo (Just hints) (Just "localhost") Nothing
 
+#if defined(mingw32_HOST_OS)
+    let lpdevname = "loopback_0"
+#else
+    let lpdevname = "lo"
+#endif
+
     describe "ifNameToIndex" $ do
         it "converts a name to an index" $
-            ifNameToIndex "lo" `shouldReturn` Just 1
+            ifNameToIndex lpdevname `shouldReturn` Just 1
 
     describe "ifIndexToName" $ do
         it "converts an index to a name" $
-            ifIndexToName 1 `shouldReturn` Just "lo"
+            ifIndexToName 1 `shouldReturn` Just lpdevname
 
 
     when isUnixDomainSocketAvailable $ do