From 36a2df1d35a2ec717ec30cb9c12ab4a50f38d838 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 29 Sep 2019 21:36:39 -0700
Subject: [PATCH] Fix trypandoc with getReader/getWriter changes.
---
trypandoc/trypandoc.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/trypandoc/trypandoc.hs b/trypandoc/trypandoc.hs
index 3a08ffa33..f6c2cc3ce 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 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 " ++