missed some __WINDOWS__ defines

This commit is contained in:
Joey Hess 2013-08-04 13:07:55 -04:00
parent a837ed47f7
commit 6a97896b47
7 changed files with 26 additions and 24 deletions

View file

@ -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