ngws/mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Refactor

Browse Source
This commit is contained in:
Niels G. W. Serup
2024-09-21 20:08:54 +02:00
parent 1a1db6944f
commit 305623d53f
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
byg/src/Main.hs
View File

@@ -1,6 +1,5 @@
module Main where module Main where
import Types
import ComputationM import ComputationM
import Functions import Functions
@@ -8,7 +7,7 @@ test :: ComputationM ()
test = do test = do
dir <- inject "retter" dir <- inject "retter"
dirContents <- listDirectory dir dirContents <- listDirectory dir
u <- mapComputationM openImage dirContents _ <- mapComputationM openImage dirContents
t <- inject ("hej", "hey.txt") t <- inject ("hej", "hey.txt")
saveFile t saveFile t