escape the lock

ndmitchell · Mar 17, 2021 · 8c1a5ec · 8c1a5ec
1 parent 77f1784
commit 8c1a5ec
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Development/Shake/Internal/Core/Build.hs b/src/Development/Shake/Internal/Core/Build.hs
@@ -168,7 +168,8 @@ buildRunMode global stack database me = do
 buildRunDependenciesChanged :: Global -> Stack -> Database -> Result a -> Wait Locked Bool
 buildRunDependenciesChanged global stack database me
   | Just keys <- globalKeysChanged global
-  = pure $ any (`HashSet.member` keys) (foldMap fromDepends $ depends me)
+  = Later $ \cont -> cont $
+        any (`HashSet.member` keys) (foldMap fromDepends $ depends me)
   | otherwise = isJust <$> firstJustM id
     [firstJustWaitUnordered (fmap test . lookupOne global stack database) x | Depends x <- depends me]
     where