@@ -614,7 +614,7 @@ executeGraphExpr sessionId (InProcessConnection conf) graphExpr = excMaybe $ do
614614 mLockFileH = ipLocks conf
615615 lockHandler body = case graphExpr of
616616 Commit -> case mLockFileH of
617− Nothing -> pure Nothing
617+ Nothing -> body False
618618 Just (lockFileH, lockMVar) -> let acquireLocks = do
619619 lastWrittenDigest <- takeMVar lockMVar
620620 lockFile lockFileH WriteLock