aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-06-10 21:10:52 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-06-10 21:10:52 +0200
commit25bfa26554a0236ce21cef036609651cdcbc44aa (patch)
tree79f157360abe63af2e6dad89765b61a70719edd9
parentf43504f9f4cad4368ea9e8834d97f3ad87ac1494 (diff)
downloadpandoc-25bfa26554a0236ce21cef036609651cdcbc44aa.tar.gz
Fixed weigh-pandoc for Text readers.
-rw-r--r--Makefile5
-rw-r--r--benchmark/weigh-pandoc.hs5
-rw-r--r--pandoc.cabal1
3 files changed, 8 insertions, 3 deletions
diff --git a/Makefile b/Makefile
index 46ca7de9d..65cf3146e 100644
--- a/Makefile
+++ b/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
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
diff --git a/pandoc.cabal b/pandoc.cabal
index 5ba020326..8d336097d 100644
--- a/pandoc.cabal
+++ b/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