Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fix trypandoc for Text changes.

Browse source
This commit is contained in:
John MacFarlane 2019-11-22 09:45:10 -08:00
parent 415ddbe228
commit e19ce31639
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
trypandoc/trypandoc.hs
View file

@ -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