From 00dc1e715e6317ab499c864137bb2a6bf7a75364 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 26 Jul 2012 22:59:56 -0700
Subject: Moved WriterOptions and associated types Shared -> Options.

---
 benchmark/benchmark-pandoc.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'benchmark/benchmark-pandoc.hs')

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
 
-- 
cgit v1.2.3