Allow '-' in filenames for custom lua writers.

Closes #5187.
jgm · Dec 31, 2018 · a1ad5bb · a1ad5bb
1 parent 5cd48c8
commit a1ad5bb
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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