diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-10-09 21:54:41 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-10-09 21:54:41 -0700 |
| commit | ff1df241a9fcacec8c897cc0f01f691ee5b49a22 (patch) | |
| tree | 8a05a7073b5f30bc6d05a8d1392bf266e7c5821d /src/Text/Pandoc/App/OutputSettings.hs | |
| parent | 070e098b48bfed41b703eec7c62c91c82ad66d26 (diff) | |
| download | pandoc-ff1df241a9fcacec8c897cc0f01f691ee5b49a22.tar.gz | |
T.P.App.Opt: rename optReader, optWriter as optFrom, optTo.
This will allow to: and from: in defaults.
Diffstat (limited to 'src/Text/Pandoc/App/OutputSettings.hs')
| -rw-r--r-- | src/Text/Pandoc/App/OutputSettings.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs index 6e430a76e..bdfb4cde2 100644 --- a/src/Text/Pandoc/App/OutputSettings.hs +++ b/src/Text/Pandoc/App/OutputSettings.hs @@ -68,8 +68,8 @@ optToOutputSettings opts = do let pdfOutput = map toLower (takeExtension outputFile) == ".pdf" (writerName, maybePdfProg) <- if pdfOutput - then liftIO $ pdfWriterAndProg (optWriter opts) (optPdfEngine opts) - else case optWriter opts of + then liftIO $ pdfWriterAndProg (optTo opts) (optPdfEngine opts) + else case optTo opts of Nothing | outputFile == "-" -> return ("html", Nothing) | otherwise -> |