Use InList properly

byg/src/Main.hs

@@ -3,16 +3,11 @@ module Main where
 import Types
 import ComputationM
 
-testSub :: ComputationM Image
-testSub = do
-  inp <- getListElem
-  openImage inp
-
 test :: ComputationM ()
 test = do
   dir <- inject "retter"
   dirContents <- listDirectory dir
-  u <- mapListTaken testSub dirContents
+  u <- mapListTaken openImage dirContents
   pure $ NoToken
 
 main :: IO ()