diff options
author | 2015-05-22 13:54:54 -0400 | |
---|---|---|
committer | 2015-05-22 13:54:54 -0400 | |
commit | e675b246251eb33e646142333d1ad721dc6ecadc (patch) | |
tree | a7ee46d663480c8e840d7b5850c7926e07c3416a | |
parent | c05894dad2bc586183341027c24c44561a281783 (diff) |
fix windows build
-rw-r--r-- | Annex/Content.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index c19fc29c0..28ca99544 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -200,7 +200,8 @@ lockContent key a = do modifyContent lockfile $ void $ liftIO $ tryIO $ writeFile lockfile "" - maybe alreadylocked (return . Just) =<< lockExclusive lockfile + maybe alreadylocked (return . Just) + =<< liftIO (lockExclusive lockfile) -- never reached; windows always uses a separate lock file lock _ Nothing = return Nothing unlock mlockfile mlockhandle = do |