From e19ce3163943a73d3fdc4f63e1e0183cbd9efa13 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 22 Nov 2019 09:45:10 -0800
Subject: [PATCH] Fix trypandoc for Text changes.
---
trypandoc/trypandoc.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/trypandoc/trypandoc.hs b/trypandoc/trypandoc.hs
index b00d66d0d..be8422d66 100644
--- a/trypandoc/trypandoc.hs
+++ b/trypandoc/trypandoc.hs
@@ -41,12 +41,12 @@ app req respond = do
text <- getParam "text" >>= checkLength . fromMaybe T.empty
fromFormat <- fromMaybe "" <$> getParam "from"
toFormat <- fromMaybe "" <$> getParam "to"
- let reader = case runPure $ getReader (T.unpack fromFormat) of
+ let reader = case runPure $ getReader fromFormat of
Right (TextReader r, es) -> r readerOpts{
readerExtensions = es }
_ -> error $ "could not find reader for "
++ T.unpack fromFormat
- let writer = case runPure $ getWriter (T.unpack toFormat) of
+ let writer = case runPure $ getWriter toFormat of
Right (TextWriter w, es) -> w writerOpts{
writerExtensions = es }
_ -> error $ "could not find writer for " ++
@@ -71,8 +71,8 @@ checkLength t =
writerOpts :: WriterOptions
writerOpts = def { writerReferenceLinks = True,
writerEmailObfuscation = NoObfuscation,
- writerHTMLMathMethod = MathJax (defaultMathJaxURL ++
- "tex-mml-chtml.js"),
+ writerHTMLMathMethod = MathJax (defaultMathJaxURL <>
+ T.pack "tex-mml-chtml.js"),
writerHighlightStyle = Just pygments }
readerOpts :: ReaderOptions