From 36a2df1d35a2ec717ec30cb9c12ab4a50f38d838 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 29 Sep 2019 21:36:39 -0700 Subject: Fix trypandoc with getReader/getWriter changes. --- trypandoc/trypandoc.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'trypandoc') 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 " ++ -- cgit v1.2.3