From 250a25c8572e557772a9973542f9cfca6ac10b9b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 2 Aug 2013 12:27:32 -0400
Subject: get rid of __WINDOWS__, use mingw32_HOST_OS

The latter is harder for me to remember, but avoids build failures in code
used by the configure program.
---
 Remote/Rsync.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Remote/Rsync.hs')

diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs
index 228a66d51..a8efd84e7 100644
--- a/Remote/Rsync.hs
+++ b/Remote/Rsync.hs
@@ -11,7 +11,7 @@ module Remote.Rsync (remote) where
 
 import qualified Data.ByteString.Lazy as L
 import qualified Data.Map as M
-#ifndef __WINDOWS__
+#ifndef mingw32_HOST_OS
 import System.Posix.Process (getProcessID)
 #else
 import System.Random (getStdRandom, random)
@@ -221,7 +221,7 @@ sendParams = ifM crippledFileSystem
  - up trees for rsync. -}
 withRsyncScratchDir :: (FilePath -> Annex Bool) -> Annex Bool
 withRsyncScratchDir a = do
-#ifndef __WINDOWS__
+#ifndef mingw32_HOST_OS
 	v <- liftIO getProcessID
 #else
 	v <- liftIO (getStdRandom random :: IO Int)
-- 
cgit v1.2.3