Add nice wrappers

2024-09-21 17:41:04 +02:00
parent bb52c043cd
commit 5fc78b14ad
2 changed files with 6 additions and 2 deletions
--- a/byg/src/ComputationM.hs
+++ b/byg/src/ComputationM.hs
@@ -75,6 +75,10 @@ inject x = genDependency (Dependency NoToken (TInject x))
 runIO :: (Show a, Show b, IsFIO f a b) => f -> Token t a -> ComputationM TokenNotTraversable b
 runIO f input = genDependency (Dependency input (FIO f))

+listDirectory = runIO ListDirectory
+openImage = runIO OpenImage
+
+
 makeTraversable :: Token TokenNotTraversable [a] -> Token TokenTraversable (Token TokenNotTraversable a)
 makeTraversable (Token n) = Token n