avoid more build warnings on Windows
This commit is contained in:
parent
fc96861084
commit
a3224ce35b
12 changed files with 29 additions and 20 deletions
|
@ -86,12 +86,13 @@ lockJournal a = do
|
|||
mode <- annexFileMode
|
||||
bracketIO (lock lockfile mode) unlock (const a)
|
||||
where
|
||||
lock lockfile mode = do
|
||||
#ifndef mingw32_HOST_OS
|
||||
lock lockfile mode = do
|
||||
l <- noUmask mode $ createFile lockfile mode
|
||||
waitToSetLock l (WriteLock, AbsoluteSeek, 0, 0)
|
||||
return l
|
||||
#else
|
||||
lock lockfile _mode = do
|
||||
writeFile lockfile ""
|
||||
return lockfile
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue