aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/App/OutputSettings.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs
index a82c19bb6..b4bd9a4b2 100644
--- a/src/Text/Pandoc/App/OutputSettings.hs
+++ b/src/Text/Pandoc/App/OutputSettings.hs
@@ -91,8 +91,9 @@ optToOutputSettings opts = do
return (formatFromFilePaths "html" [outputFile], Nothing)
Just f -> return (f, Nothing)
- let format = map toLower $ baseWriterName
- $ takeFileName writerName -- in case path to lua script
+ let format = if ".lua" `isSuffixOf` writerName
+ then writerName
+ else map toLower $ baseWriterName writerName
(writer, writerExts) <-
if ".lua" `isSuffixOf` format