module Main where

import ComputationM

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

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