Change RunPandoc to be more file-centric

This commit is contained in:
Niels G. W. Serup 2024-09-24 22:24:06 +02:00
parent 2b5f4f8b1e
commit 6ebc3f5e3a
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
2 changed files with 3 additions and 3 deletions

View File

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

View File

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