missed some __WINDOWS__ defines

1 files changed, 1 insertions, 1 deletions

diff --git a/Creds.hs b/Creds.hs
index 1b62c9340..9606a73d6 100644
--- a/Creds.hs
+++ b/Creds.hs
@@ -107,7 +107,7 @@ getEnvCredPair storage = liftM2 (,)
 
 {- Stores a CredPair in the environment. -}
 setEnvCredPair :: CredPair -> CredPairStorage -> IO ()
-#ifndef __WINDOWS__
+#ifndef mingw32_HOST_OS
 setEnvCredPair (l, p) storage = do
 	set uenv l
 	set penv p