ngws
/
mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Debug running

This commit is contained in:
Niels G. W. Serup 2024-09-30 23:31:01 +02:00
parent 8aaa056978
commit abc05a6032
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
byg/src/DependencyRunner.hs
View File

@ -27,6 +27,11 @@ runDep (Dependency a action b) = do
input <- getTokenValue a input <- getTokenValue a
result <- runAction action input result <- runAction action input
putTokenValue b result putTokenValue b result
liftIO $ do
putStrLn ("input: " ++ show input)
putStrLn ("action: " ++ show action)
putStrLn ("output: " ++ show result)
putStrLn "----------"
getTokenValue :: UToken -> DepRunM Value getTokenValue :: UToken -> DepRunM Value
getTokenValue = \case getTokenValue = \case