diff options
author | 2013-08-04 13:54:09 -0400 | |
---|---|---|
committer | 2013-08-04 14:05:36 -0400 | |
commit | 8d2f003c63e0c1db0758e06f02b999365f8413a9 (patch) | |
tree | 1d8dbda0065630a5b1f153249ea12ce17e4e68e0 /Annex/Journal.hs | |
parent | 6db0c4414a0afee7118a9193800b627c40968fa1 (diff) |
avoid more build warnings on Windows
Diffstat (limited to 'Annex/Journal.hs')
-rw-r--r-- | Annex/Journal.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Journal.hs b/Annex/Journal.hs index 506cbfcaf..fff20ccc4 100644 --- a/Annex/Journal.hs +++ b/Annex/Journal.hs @@ -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 |