From a1ad5bb8ceda50d7a4b2ef7da2a895e57ad12db4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 31 Dec 2018 15:15:18 -0800
Subject: Allow '-' in filenames for custom lua writers.

Closes #5187.
---
 src/Text/Pandoc/App/OutputSettings.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3