20 lines
383 B
Haskell
20 lines
383 B
Haskell
module Main where
|
|
|
|
import Types
|
|
import ComputationM
|
|
|
|
testSub :: ComputationM TokenNotTraversable Image
|
|
testSub = do
|
|
inp <- getListElem
|
|
openImage inp
|
|
|
|
test :: ComputationM TokenNotTraversable ()
|
|
test = do
|
|
dir <- inject "retter"
|
|
dirContents <- listDirectory dir
|
|
u <- mapListTaken testSub dirContents
|
|
pure $ NoToken
|
|
|
|
main :: IO ()
|
|
main = mapM_ print $ evalComputationM test
|