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