@@ -37,7 +37,7 @@ parsePandocArgs args = do
3737
3838runPandoc :: [String] -> FilePath -> IO (Either String FilePath)
3939runPandoc inputsAndArgs output = do
40− let texFile = replaceExtension output "tex"
40+ let texFile = addExtension output "tex"
4141 result <- run "pandoc" $
4242 ["-s", "--no-wrap", "-r", "markdown", "-w", "latex"]
4343 ++ inputsAndArgs ++ ["-o", texFile]