mad/byg/src/Main.hs

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