From 2b5f4f8b1e2ca14171784290d84a8473bd3b6359 Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Tue, 24 Sep 2024 22:23:43 +0200 Subject: [PATCH] Return core () for mapDepGenM_ --- byg/src/DependencyGenerator.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/byg/src/DependencyGenerator.hs b/byg/src/DependencyGenerator.hs index b71ea6f..fea48b9 100644 --- a/byg/src/DependencyGenerator.hs +++ b/byg/src/DependencyGenerator.hs @@ -81,10 +81,10 @@ mapDepGenM f input = genDependencyM $ \target -> do put top' pure (makeDependency input (MapComp res) target) -mapDepGenM_ :: (Token a -> DepGenM ()) -> Token [a] -> DepGenM () +mapDepGenM_ :: (Token a -> DepGenM ()) -> Token [a] -> DepGenM' () mapDepGenM_ f input = do _ <- mapDepGenM f input - pure NoToken + pure () filterDepGenM :: (Token a -> DepGenM Bool) -> Token [a] -> DepGenM [a] filterDepGenM f input = do