mad/byg/src/Main.hs

module Main where

import ComputationM
import Functions

test :: ComputationM ()
test = do
  dir <- inject "retter"
  dirContents <- listDirectory dir
  _ <- mapComputationM openImage dirContents
  t <- inject ("hej", "hey.txt")
  saveFile t

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 ComputationM`
Put function shortcuts back in Functions module 2024-09-21 20:00:59 +02:00			`import Functions`
Add initial code approach exploration For the historical record. 2024-09-21 16:35:13 +02:00
Get rid of the final traversable cruft 2024-09-21 18:49:50 +02:00			`test :: ComputationM ()`
Add initial code approach exploration For the historical record. 2024-09-21 16:35:13 +02:00			`test = do`
			`dir <- inject "retter"`
Add nice wrappers 2024-09-21 17:41:04 +02:00			`dirContents <- listDirectory dir`
Refactor 2024-09-21 20:08:54 +02:00			`_ <- mapComputationM openImage dirContents`
Put function shortcuts back in Functions module 2024-09-21 20:00:59 +02:00			`t <- inject ("hej", "hey.txt")`
			`saveFile t`
Add initial code approach exploration For the historical record. 2024-09-21 16:35:13 +02:00
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`