Change RunPandoc to be more file-centric

此提交包含在:
2024-09-24 22:24:06 +02:00
父節點 2b5f4f8b1e
當前提交 6ebc3f5e3a
共有 2 個檔案被更改,包括 3 行新增3 行删除

查看文件

@@ -110,5 +110,5 @@ convertImage = runFunctionIO ConvertImage
saveFile :: Token (String, FilePath) -> DepGenM () saveFile :: Token (String, FilePath) -> DepGenM ()
saveFile = runFunctionIO SaveFile saveFile = runFunctionIO SaveFile
runPandoc :: Token String -> DepGenM String runPandoc :: Token (FilePath, FilePath) -> DepGenM ()
runPandoc = runFunctionIO RunPandoc runPandoc = runFunctionIO RunPandoc

查看文件

@@ -18,8 +18,8 @@ evalFunctionIO f x = case (f, x) of
(SaveFile, Tuple (String _, String _)) -> (SaveFile, Tuple (String _, String _)) ->
pure $ Empty pure $ Empty
(RunPandoc, String _) -> (RunPandoc, Tuple (String _, String _)) ->
pure $ String undefined pure $ Empty
_ -> _ ->
error "unexpected combination of function and argument type" error "unexpected combination of function and argument type"