diff options
author | John MacFarlane <jgm@berkeley.edu> | 2019-09-29 21:36:39 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-09-29 21:36:39 -0700 |
commit | 36a2df1d35a2ec717ec30cb9c12ab4a50f38d838 (patch) | |
tree | 728530a1025b15fbddfaa0127263795a21813702 | |
parent | ebea74dc35ec39c9fdbba8b100edd7b25a0f1ddc (diff) | |
download | pandoc-36a2df1d35a2ec717ec30cb9c12ab4a50f38d838.tar.gz |
Fix trypandoc with getReader/getWriter changes.
-rw-r--r-- | trypandoc/trypandoc.hs | 4 |
1 files 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 " ++ |