ngws
/
mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
byg/src/DependencyGenerator.hs
View File

@ -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

4
byg/src/Evaluation/FunctionIO.hs
View File

@ -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"