From 25bfa26554a0236ce21cef036609651cdcbc44aa Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 10 Jun 2017 21:10:52 +0200
Subject: Fixed weigh-pandoc for Text readers.

---
 benchmark/weigh-pandoc.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'benchmark')

diff --git a/benchmark/weigh-pandoc.hs b/benchmark/weigh-pandoc.hs
index b4462d747..35296f925 100644
--- a/benchmark/weigh-pandoc.hs
+++ b/benchmark/weigh-pandoc.hs
@@ -1,5 +1,6 @@
 import Weigh
 import Text.Pandoc
+import Data.Text (Text, pack)
 
 main :: IO ()
 main = do
@@ -26,11 +27,11 @@ main = do
 weighWriter :: Pandoc -> String -> (Pandoc -> String) -> Weigh ()
 weighWriter doc name writer = func (name ++ " writer") writer doc
 
-weighReader :: Pandoc -> String -> (String -> Pandoc) -> Weigh ()
+weighReader :: Pandoc -> String -> (Text -> Pandoc) -> Weigh ()
 weighReader doc name reader = do
   case lookup name writers of
        Just (StringWriter writer) ->
-         let inp = either (error . show) id $ runPure $ writer def{ writerWrapText = WrapAuto} doc
+         let inp = either (error . show) pack $ runPure $ writer def{ writerWrapText = WrapAuto} doc
          in func (name ++ " reader") reader inp
        _ -> return () -- no writer for reader
 
-- 
cgit v1.2.3