on master help sign in
fix extraneous unlockFile in Windows closeLockFile
5d4c5f9AgentM
src/lib/ProjectM36/FileLock.hs−1
@@ -35,7 +35,6 @@ openLockFile path = createFile path
35
35
36closeLockFile :: LockFile -> IO ()
36closeLockFile :: LockFile -> IO ()
37closeLockFile file = do
37closeLockFile file = do
38− unlockFile file
39 closeHandle file
38 closeHandle file
40
39
41--swiped from System.FileLock package
40--swiped from System.FileLock package