fix windows build
This commit is contained in:
parent
6c3cea7699
commit
83b262f1b6
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue