diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-12-31 15:15:18 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-12-31 15:15:18 -0800 |
| commit | a1ad5bb8ceda50d7a4b2ef7da2a895e57ad12db4 (patch) | |
| tree | d71a8139797427d9d21cab93e5714ad5b924f07b /src/Text/Pandoc | |
| parent | 5cd48c8e791571a6754a8bc6ff1848c36158df70 (diff) | |
| download | pandoc-a1ad5bb8ceda50d7a4b2ef7da2a895e57ad12db4.tar.gz | |
Allow '-' in filenames for custom lua writers.
Closes #5187.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/App/OutputSettings.hs | 5 |
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 |