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

Fix trypandoc with getReader/getWriter changes.

Browse source
This commit is contained in:
John MacFarlane 2019-09-29 21:36:39 -07:00
parent ebea74dc35
commit 36a2df1d35
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
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 getReader (T.unpack fromFormat) of
let reader = case runPure $ getReader (T.unpack fromFormat) of
Right (TextReader r, es) -> r readerOpts{
readerExtensions = es }
_ -> error $ "could not find reader for "
++ T.unpack fromFormat
let writer = case getWriter (T.unpack toFormat) of
let writer = case runPure $ getWriter (T.unpack toFormat) of
Right (TextWriter w, es) -> w writerOpts{
writerExtensions = es }
_ -> error $ "could not find writer for " ++