[API Change] Change argument type of `getReader`, `getWriter`.

The functions now take a `FlavoredFormat` instead of a text argument.

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