diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-06-25 18:17:32 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-06-25 18:17:32 -0700 |
| commit | 3aa5733f30b6daf755a00d0c2a318fb55a177289 (patch) | |
| tree | 45e8ff1e14355823ea883fcb04d2ab5dc1a3a286 /benchmark/benchmark-pandoc.hs | |
| parent | 16d6005ed90ea1902b6caacf54676876037fda3b (diff) | |
Revised benchmark for new metadata.
Diffstat (limited to 'benchmark/benchmark-pandoc.hs')
| -rw-r--r-- | benchmark/benchmark-pandoc.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs index 482293ab0..60b543e1a 100644 --- a/benchmark/benchmark-pandoc.hs +++ b/benchmark/benchmark-pandoc.hs @@ -13,8 +13,7 @@ readerBench doc (name, reader) = _ -> error $ "Could not find writer for " ++ name inp = writer def{ writerWrapText = True } doc -- we compute the length to force full evaluation - getLength (Pandoc (Meta a b c) d) = - length a + length b + length c + length d + getLength (Pandoc (Meta _) d) = length d in bench (name ++ " reader") $ whnfIO $ getLength `fmap` (reader def{ readerSmart = True }) inp |