diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-05-22 13:54:54 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-22 13:54:54 -0400 |
| commit | e675b246251eb33e646142333d1ad721dc6ecadc (patch) | |
| tree | a7ee46d663480c8e840d7b5850c7926e07c3416a /Annex/Content.hs | |
| parent | c05894dad2bc586183341027c24c44561a281783 (diff) | |
fix windows build
Diffstat (limited to 'Annex/Content.hs')
| -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 |