From 8bf1e107a0aee32d50f18b2cbbf8279ab1605765 Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Tue, 24 Sep 2024 22:44:45 +0200 Subject: [PATCH] Also use DepGenM' for MakeDir --- byg/src/DependencyGenerator.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/byg/src/DependencyGenerator.hs b/byg/src/DependencyGenerator.hs index d29c429..7c9ef6e 100644 --- a/byg/src/DependencyGenerator.hs +++ b/byg/src/DependencyGenerator.hs @@ -111,8 +111,10 @@ convertImage = runFunctionIO ConvertImage saveFile :: Token (String, FilePath) -> DepGenM () saveFile = runFunctionIO SaveFile -makeDir :: Token FilePath -> DepGenM () -makeDir = runFunctionIO MakeDir +makeDir :: Token FilePath -> DepGenM' () +makeDir input = do + _ <- runFunctionIO MakeDir input + pure () runPandoc :: Token (FilePath, FilePath) -> DepGenM () runPandoc = runFunctionIO RunPandoc