3e005aa · typeable/pandoc

git.iko.soy/typeable/pandoc

Fixed benchmark for new API.

commit3e005aa413fdedb39f434015954c33721ff9c001 authorJohn MacFarlane <jgm@berkeley.edu> dateMon 14 Dec 2015, 20:34 (11 years ago) parenta6d810a

1 file changed+2−2

unifiedsplit

benchmark/benchmark-pandoc.hs+2−2

@@ -28,7 +28,7 @@ readerBench :: Pandoc

2828readerBench doc (name, reader) =

2929 case lookup name writers of

3030 Just (PureStringWriter writer) ->

31− let inp = writer def{ writerWrapText = True} doc

31+ let inp = writer def{ writerWrapText = WrapAuto} doc

3232 in return $ bench (name ++ " reader") $ nfIO $

3333 (fmap handleError <$> reader def{ readerSmart = True }) inp

3434 _ -> trace ("\nCould not find writer for " ++ name ++ "\n") Nothing

@@ -37,7 +37,7 @@ writerBench :: Pandoc

3737 -> (String, WriterOptions -> Pandoc -> String)

3838 -> Benchmark

3939writerBench doc (name, writer) = bench (name ++ " writer") $ nf

40− (writer def{ writerWrapText = True }) doc

40+ (writer def{ writerWrapText = WrapAuto }) doc

4141

4242main :: IO ()

4343main = do