Fix Windows build (broken by dc58d34)

haskell · May 17, 2014 · 673e0f5 · 673e0f5
1 parent 41820a3
commit 673e0f5
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/Network/HTTP/Proxy.hs b/Network/HTTP/Proxy.hs
@@ -19,6 +19,12 @@ module Network.HTTP.Proxy
        , parseProxy  -- :: String -> Maybe Proxy
        ) where
 
+{-
+#if !defined(WIN32) && defined(mingw32_HOST_OS)
+#define WIN32 1
+#endif
+-}
+
 import Control.Monad ( when, mplus, join, liftM2)
 
 #if defined(WIN32)