diff options
Diffstat (limited to 'pandoc-server')
| -rw-r--r-- | pandoc-server/src/Text/Pandoc/Server.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pandoc-server/src/Text/Pandoc/Server.hs b/pandoc-server/src/Text/Pandoc/Server.hs index 2f43a8561..1c66a66db 100644 --- a/pandoc-server/src/Text/Pandoc/Server.hs +++ b/pandoc-server/src/Text/Pandoc/Server.hs @@ -264,13 +264,13 @@ server = convertBytes modifyPureState $ \st -> st{ stFiles = filetree } let opts = options params - let readerFormat = fromMaybe "markdown" $ optFrom opts - let writerFormat = fromMaybe "html" $ optTo opts + readerFormat <- parseFlavoredFormat <$> fromMaybe "markdown" $ optFrom opts + writerFormat <- parseFlavoredFormat <$> fromMaybe "html" $ optTo opts (readerSpec, readerExts) <- getReader readerFormat (writerSpec, writerExts) <- getWriter writerFormat let isStandalone = optStandalone opts - toformat <- formatName <$> parseFlavoredFormat writerFormat + let toformat = formatName writerFormat hlStyle <- traverse (lookupHighlightingStyle . T.unpack) $ optHighlightStyle opts |