summaryrefslogtreecommitdiff
path: root/benchmark/benchmark-pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-07-26 22:59:56 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-07-26 22:59:56 -0700
commit00dc1e715e6317ab499c864137bb2a6bf7a75364 (patch)
tree3e11052509df347bc6fa7f386f0a0d431816919a /benchmark/benchmark-pandoc.hs
parent6d7f0a1b816c405fb48bcf9736db17a0a7d49995 (diff)
Moved WriterOptions and associated types Shared -> Options.
Diffstat (limited to 'benchmark/benchmark-pandoc.hs')
-rw-r--r--benchmark/benchmark-pandoc.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 9e28dd30f..8c0c70a9b 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -11,7 +11,7 @@ readerBench doc (name, reader) =
let writer = case lookup name writers of
Just (PureStringWriter w) -> w
_ -> error $ "Could not find writer for " ++ name
- inp = writer defaultWriterOptions{ writerWrapText = True
+ inp = writer def{ writerWrapText = True
, writerLiterateHaskell =
"+lhs" `isSuffixOf` name } doc
-- we compute the length to force full evaluation
@@ -26,7 +26,7 @@ writerBench :: Pandoc
-> (String, WriterOptions -> Pandoc -> String)
-> Benchmark
writerBench doc (name, writer) = bench (name ++ " writer") $ nf
- (writer defaultWriterOptions{
+ (writer def{
writerWrapText = True
, writerLiterateHaskell = "+lhs" `isSuffixOf` name }) doc