@@ -41,12 +41,12 @@ app req respond = do
4141 text <- getParam "text" >>= checkLength . fromMaybe T.empty
4242 fromFormat <- fromMaybe "" <$> getParam "from"
4343 toFormat <- fromMaybe "" <$> getParam "to"
44− let reader = case getReader (T.unpack fromFormat) of
44+ let reader = case runPure $ getReader (T.unpack fromFormat) of
4545 Right (TextReader r, es) -> r readerOpts{
4646 readerExtensions = es }
4747 _ -> error $ "could not find reader for "
4848 ++ T.unpack fromFormat
49− let writer = case getWriter (T.unpack toFormat) of
49+ let writer = case runPure $ getWriter (T.unpack toFormat) of
5050 Right (TextWriter w, es) -> w writerOpts{
5151 writerExtensions = es }
5252 _ -> error $ "could not find writer for " ++