From fa719d026464619dd51714620470998ab5d18e17 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 10 Jun 2017 23:39:49 +0200
Subject: Switched Writer types to use Text.

* XML.toEntities: changed type to Text -> Text.
* Shared.tabFilter -- fixed so it strips out CRs as before.
* Modified writers to take Text.
* Updated tests, benchmarks, trypandoc.

[API change]

Closes #3731.
---
 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 0dd88a61f..d8652079a 100644
--- a/trypandoc/trypandoc.hs
+++ b/trypandoc/trypandoc.hs
@@ -33,11 +33,11 @@ app req respond = do
                     _ -> error $ "could not find reader for "
                                   ++ T.unpack fromFormat
   let writer = case getWriter (T.unpack toFormat) of
-                    Right (StringWriter w) -> w writerOpts
+                    Right (TextWriter w) -> w writerOpts
                     _ -> error $ "could not find writer for " ++
                            T.unpack toFormat
   let result = case runPure $ reader (tabFilter 4 text) >>= writer of
-                    Right s   -> T.pack s
+                    Right s   -> s
                     Left  err -> error (show err)
   let output = encode $ object [ T.pack "html" .= result
                                , T.pack "name" .=
-- 
cgit v1.2.3