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 /Annex/Content.hs | |
parent | 6db0c4414a0afee7118a9193800b627c40968fa1 (diff) |
avoid more build warnings on Windows
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r-- | Annex/Content.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 0b3e18fab..01ad6f96f 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -120,7 +120,7 @@ inAnnexSafe = inAnnex' (fromMaybe False) (Just False) go - it. (If the content is not present, no locking is done.) -} lockContent :: Key -> Annex a -> Annex a #ifndef mingw32_HOST_OS -lockContent key a = +lockContent key a = do file <- calcRepo $ gitAnnexLocation key bracketIO (openforlock file >>= lock) unlock (const a) where |