mad/byg/src/Main.hs

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
Add initial generator 2024-09-11 22:32:14 +02:00			`module Main where`

Make compile 2024-09-21 17:13:20 +02:00			`import Functions`
			`import ComputationM`
Add initial code approach exploration For the historical record. 2024-09-21 16:35:13 +02:00
			`test :: ComputationM TokenNotTraversable ()`
			`test = do`
			`dir <- inject "retter"`
Start using class instances instead of GADT constructors Maybe makes more sense here? 2024-09-21 17:37:37 +02:00			`dirContents <- runIO ListDirectory' dir`
Add initial code approach exploration For the historical record. 2024-09-21 16:35:13 +02:00			`let dirContents' = makeTraversable dirContents`
Start using class instances instead of GADT constructors Maybe makes more sense here? 2024-09-21 17:37:37 +02:00			`u <- mapM (runIO OpenImage') dirContents'`
Add initial code approach exploration For the historical record. 2024-09-21 16:35:13 +02:00			`pure $ NoToken`

Add initial generator 2024-09-11 22:32:14 +02:00			`main :: IO ()`
Make compile 2024-09-21 17:13:20 +02:00			`main = mapM_ print $ evalComputationM test`