@@ -614,7 +614,7 @@ executeGraphExpr sessionId (InProcessConnection conf) graphExpr = excMaybe $ do
614 mLockFileH = ipLocks conf
614 mLockFileH = ipLocks conf
615 lockHandler body = case graphExpr of
615 lockHandler body = case graphExpr of
616 Commit -> case mLockFileH of
616 Commit -> case mLockFileH of
617− Nothing -> pure Nothing
617+ Nothing -> body False
618 Just (lockFileH, lockMVar) -> let acquireLocks = do
618 Just (lockFileH, lockMVar) -> let acquireLocks = do
619 lastWrittenDigest <- takeMVar lockMVar
619 lastWrittenDigest <- takeMVar lockMVar
620 lockFile lockFileH WriteLock
620 lockFile lockFileH WriteLock