diff --git a/src/Development/Shake/Internal/Core/Build.hs b/src/Development/Shake/Internal/Core/Build.hs index 7845862d9..1d488d1bb 100644 --- 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