fix windows build

This commit is contained in:
Joey Hess 2015-05-22 13:54:54 -04:00
parent 6c3cea7699
commit 83b262f1b6

View file

@ -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