From 5e73358df723f66ab39ac7f275c0cc51145d7efe Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Wed, 25 Sep 2024 22:12:38 +0200 Subject: [PATCH] Don't make ids for empty output tokens --- byg/src/DependencyGenerator.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/byg/src/DependencyGenerator.hs b/byg/src/DependencyGenerator.hs index 7f9f9db..1bbd808 100644 --- a/byg/src/DependencyGenerator.hs +++ b/byg/src/DependencyGenerator.hs @@ -76,9 +76,7 @@ runFunctionIO :: FunctionIO -> Token a -> DepGenM' b runFunctionIO f input = genDependency (makeDependency input (FunctionIO f)) runFunctionIO' :: FunctionIO -> Token a -> DepGenM () -runFunctionIO' f input = do - _ <- runFunctionIO f input - pure () +runFunctionIO' f input = tellDep $ makeDependency input (FunctionIO f) NoToken mapDepGenM :: (Token a -> DepGenM' b) -> Token [a] -> DepGenM' [b] mapDepGenM f input = genDependencyM $ \target -> do