diff --git a/byg/src/DependencyGenerator.hs b/byg/src/DependencyGenerator.hs index fea48b9..f32e38a 100644 --- a/byg/src/DependencyGenerator.hs +++ b/byg/src/DependencyGenerator.hs @@ -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 diff --git a/byg/src/Evaluation/FunctionIO.hs b/byg/src/Evaluation/FunctionIO.hs index 9957c86..d285c58 100644 --- a/byg/src/Evaluation/FunctionIO.hs +++ b/byg/src/Evaluation/FunctionIO.hs @@ -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"