module Main where

import Functions
import ComputationM

test :: ComputationM TokenNotTraversable ()
test = do
  dir <- inject "retter"
  dirContents <- runIO ListDirectory dir
  let dirContents' = makeTraversable dirContents
  u <- mapM (runIO OpenImage) dirContents'
  pure $ NoToken

main :: IO ()
main = mapM_ print $ evalComputationM test