summaryrefslogtreecommitdiff
path: root/benchmark/benchmark-pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-03-30 00:06:40 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-03-30 00:06:40 -0700
commitc2cb64379ec24eadc43d8f4a48bf3b19b4e33624 (patch)
treebc727c594b0d7915e838a8e66caeb33d99783c74 /benchmark/benchmark-pandoc.hs
parentccb828894b6c9aae056a6861c20c4d6807035d9f (diff)
benchmark - removed kludge we needed before CommonMark writer.
Diffstat (limited to 'benchmark/benchmark-pandoc.hs')
-rw-r--r--benchmark/benchmark-pandoc.hs7
1 files changed, 1 insertions, 6 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 5c0dab460..3fc70331f 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -34,12 +34,7 @@ readerBench doc (name, reader) =
let inp = writer def{ writerWrapText = True} doc
in return $ bench (name ++ " reader") $ nfIO $
(fmap handleError <$> reader def{ readerSmart = True }) inp
- _ | name == "commonmark" ->
- let inp = writeMarkdown def{ writerWrapText = True} doc
- in return $ bench (name ++ " reader") $ nfIO $
- (fmap handleError <$> reader def{ readerSmart = True }) inp
- | otherwise -> trace ("\nCould not find writer for " ++ name ++
- "\n") Nothing
+ _ -> trace ("\nCould not find writer for " ++ name ++ "\n") Nothing
writerBench :: Pandoc
-> (String, WriterOptions -> Pandoc -> String)