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

Refactor

This commit is contained in:
Niels G. W. Serup 2024-09-21 20:08:54 +02:00
parent 1a1db6944f
commit 305623d53f
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 1 additions and 2 deletions
Show Stats 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