User better namings

2024-09-21 19:17:09 +02:00
parent d0c2b47df0
commit c588dc1f56
3 changed files with 21 additions and 26 deletions
--- a/byg/src/Main.hs
+++ b/byg/src/Main.hs
@@ -7,7 +7,7 @@ test :: ComputationM ()
 test = do
  dir <- inject "retter"
  dirContents <- listDirectory dir
-  u <- mapListTaken openImage dirContents
+  u <- mapComputationM openImage dirContents
  pure $ NoToken

 main :: IO ()