From 8e81437fd1ad7e2fab200af722c86b2b265af818 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 4 Feb 2011 11:27:20 -0800 Subject: markdown2pdf: Fixed bug with output file extensions. Previously 'markdown2pdf test.txt -o test.en.pdf' would produce 'test.pdf', not 'test.en.pdf'. Thanks to Paolo Tanimoto for the fix. --- src/markdown2pdf.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/markdown2pdf.hs b/src/markdown2pdf.hs index 4070001f1..c61aaa8cb 100644 --- a/src/markdown2pdf.hs +++ b/src/markdown2pdf.hs @@ -37,7 +37,7 @@ parsePandocArgs args = do runPandoc :: [String] -> FilePath -> IO (Either String FilePath) runPandoc inputsAndArgs output = do - let texFile = replaceExtension output "tex" + let texFile = addExtension output "tex" result <- run "pandoc" $ ["-s", "--no-wrap", "-r", "markdown", "-w", "latex"] ++ inputsAndArgs ++ ["-o", texFile] -- cgit v1.2.3