Add filterComputationM

2024-09-21 22:40:17 +02:00
parent fce1d88025
commit 06067a6cfc
2 changed files with 23 additions and 1 deletions
--- a/byg/src/Main.hs
+++ b/byg/src/Main.hs
@@ -3,11 +3,18 @@ module Main where
 import ComputationM
 import Functions

+handleRecipeDir :: Token FilePath -> ComputationM ()
+handleRecipeDir dir = do
+  dirContents <- listDirectory dir
+  imageFilenames <- filterComputationM isImageFilename dirContents
+  t <- inject ("hej", "hey.txt")
+  saveFile t
+
 test :: ComputationM ()
 test = do
  dir <- inject "retter"
  dirContents <- listDirectory dir
-  _ <- mapComputationM openImage dirContents
+  mapComputationM_ handleRecipeDir dirContents
  t <- inject ("hej", "hey.txt")
  saveFile t