From b96ee3b341e9c167ba0205e01077e65eb858ba1c Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sun, 21 Mar 2021 11:58:13 +0000 Subject: [PATCH] Increase diagnostic output --- src/Development/Shake/Internal/Core/Run.hs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/Development/Shake/Internal/Core/Run.hs b/src/Development/Shake/Internal/Core/Run.hs index 2965b918..ca764182 100644 --- a/src/Development/Shake/Internal/Core/Run.hs +++ b/src/Development/Shake/Internal/Core/Run.hs @@ -212,12 +212,14 @@ updateDirtySet diag database (Just keys) = do transitive <- flip State.execStateT Set.empty $ traverse_ loop ids diag $ - if null ids then pure "Could not compute transitive changes for unknown keys" else do + if null ids && not (null keys) + then pure "Could not compute transitive changes for unknown keys" + else do let st = Set.size transitive - res = take 100 $ Set.toList transitive - ellipsis = if st > 100 then "..." else "" - keys <- unwords . map (show . fst) . catMaybes <$> mapM (getKeyValueFromId database) res - pure $ printf "%d transitive changes computed: %s%s" st keys ellipsis + res = take 500 $ Set.toList transitive + ellipsis = if st > 500 then "..." else "" + keys <- unlines . map (show . fst) . catMaybes <$> mapM (getKeyValueFromId database) res + pure $ printf "%d transitive changes computed: \n%s\n%s" st keys ellipsis markDirty database transitive