diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-04 13:54:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-04 14:05:36 -0400 |
| commit | 8d2f003c63e0c1db0758e06f02b999365f8413a9 (patch) | |
| tree | 1d8dbda0065630a5b1f153249ea12ce17e4e68e0 /Logs/Transfer.hs | |
| parent | 6db0c4414a0afee7118a9193800b627c40968fa1 (diff) | |
avoid more build warnings on Windows
Diffstat (limited to 'Logs/Transfer.hs')
| -rw-r--r-- | Logs/Transfer.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index b9084b78a..13f94ea20 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -129,8 +129,8 @@ runTransfer t file shouldretry a = do unless ok $ recordFailedTransfer t info return ok where - prep tfile mode info = do #ifndef mingw32_HOST_OS + prep tfile mode info = do mfd <- catchMaybeIO $ openFd (transferLockFile tfile) ReadWrite (Just mode) defaultFileFlags { trunc = True } @@ -145,6 +145,7 @@ runTransfer t file shouldretry a = do void $ tryIO $ writeTransferInfoFile info tfile return (mfd, False) #else + prep tfile _mode info = do mfd <- catchMaybeIO $ do writeFile (transferLockFile tfile) "" writeTransferInfoFile info tfile |