diff options
Diffstat (limited to 'src/Text/Pandoc/App/OutputSettings.hs')
| -rw-r--r-- | src/Text/Pandoc/App/OutputSettings.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs index 837636503..a9034d6f2 100644 --- a/src/Text/Pandoc/App/OutputSettings.hs +++ b/src/Text/Pandoc/App/OutputSettings.hs @@ -71,7 +71,8 @@ optToOutputSettings opts = do then liftIO $ pdfWriterAndProg (optWriter opts) (optPdfEngine opts) else case optWriter opts of Nothing -> - return (formatFromFilePaths "html" [outputFile], Nothing) + return (fromMaybe "html" $ formatFromFilePaths [outputFile], + Nothing) Just f -> return (f, Nothing) let format = if ".lua" `isSuffixOf` writerName |