From abc05a60328795f83d9dce438e1e623420c087e2 Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Mon, 30 Sep 2024 23:31:01 +0200 Subject: [PATCH] Debug running --- byg/src/DependencyRunner.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/byg/src/DependencyRunner.hs b/byg/src/DependencyRunner.hs index 649d8ce..7cd2f0f 100644 --- a/byg/src/DependencyRunner.hs +++ b/byg/src/DependencyRunner.hs @@ -27,6 +27,11 @@ runDep (Dependency a action b) = do input <- getTokenValue a result <- runAction action input putTokenValue b result + liftIO $ do + putStrLn ("input: " ++ show input) + putStrLn ("action: " ++ show action) + putStrLn ("output: " ++ show result) + putStrLn "----------" getTokenValue :: UToken -> DepRunM Value getTokenValue = \case