@@ -75,7 +75,7 @@ openLockFile path =
75 LockFile <$> P.createFile path ownerWriteMode
75 LockFile <$> P.createFile path ownerWriteMode
77closeLockFile :: LockFile -> IO ()
77closeLockFile :: LockFile -> IO ()
78−closeLockFile (LockFile fd) = do
78+closeLockFile (LockFile fd) =
79 P.closeFd fd
79 P.closeFd fd
81--blocks on lock, if necessary
81--blocks on lock, if necessary