aboutsummaryrefslogtreecommitdiff
path: root/trypandoc
diff options
context:
space:
mode:
Diffstat (limited to 'trypandoc')
-rw-r--r--trypandoc/trypandoc.hs8
1 files 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