diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-26 22:59:56 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-26 22:59:56 -0700 |
| commit | 00dc1e715e6317ab499c864137bb2a6bf7a75364 (patch) | |
| tree | 3e11052509df347bc6fa7f386f0a0d431816919a /benchmark | |
| parent | 6d7f0a1b816c405fb48bcf9736db17a0a7d49995 (diff) | |
Moved WriterOptions and associated types Shared -> Options.
Diffstat (limited to 'benchmark')
| -rw-r--r-- | benchmark/benchmark-pandoc.hs | 4 |
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 |