diff options
| -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 |