Fixed weigh-pandoc for Text readers.

Makefile

@@ -18,6 +18,9 @@ test:
 bench:
 	stack bench
 
+weigh:
+	stack build --flag 'pandoc:weigh-pandoc' && stack exec weigh-pandoc
+
 reformat:
 	for f in $(sourcefiles); do echo $$f; stylish-haskell -i $$f ; done
 
@@ -62,4 +65,4 @@ download_stats:
 clean:
 	stack clean
 
-.PHONY: deps quick full install clean test bench changes_github macospkg dist prof download_stats reformat lint
+.PHONY: deps quick full install clean test bench changes_github macospkg dist prof download_stats reformat lint weigh

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
 

pandoc.cabal

@@ -507,6 +507,7 @@ Executable weigh-pandoc
   if flag(weigh-pandoc)
      Build-Depends:   pandoc,
                       base >= 4.2 && < 5,
+                      text,
                       weigh >= 0.0 && < 0.1,
                       mtl >= 2.2 && < 2.3
      Buildable:       True