diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-02 12:27:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-02 12:27:32 -0400 |
| commit | 250a25c8572e557772a9973542f9cfca6ac10b9b (patch) | |
| tree | 7d4aaa36a7d5b6c3c5e03fb844fb844da4c037d2 /Logs/Transfer.hs | |
| parent | a39c161ab377eed381186bc57953cd59d6188108 (diff) | |
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.
Diffstat (limited to 'Logs/Transfer.hs')
| -rw-r--r-- | Logs/Transfer.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index d7e25b936..b9084b78a 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -130,7 +130,7 @@ runTransfer t file shouldretry a = do return ok where prep tfile mode info = do -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS mfd <- catchMaybeIO $ openFd (transferLockFile tfile) ReadWrite (Just mode) defaultFileFlags { trunc = True } @@ -154,7 +154,7 @@ runTransfer t file shouldretry a = do cleanup tfile (Just fd) = do void $ tryIO $ removeFile tfile void $ tryIO $ removeFile $ transferLockFile tfile -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS closeFd fd #endif retry oldinfo metervar run = do @@ -214,7 +214,7 @@ startTransferInfo file = TransferInfo checkTransfer :: Transfer -> Annex (Maybe TransferInfo) checkTransfer t = do tfile <- fromRepo $ transferFile t -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS mode <- annexFileMode mfd <- liftIO $ catchMaybeIO $ openFd (transferLockFile tfile) ReadOnly (Just mode) defaultFileFlags |