@@ -7,7 +7,7 @@ import System.Environment (getArgs)
77import Data.Monoid
88
99readerBench :: Pandoc
10− -> (String, ReaderOptions -> String -> Pandoc)
10+ -> (String, ReaderOptions -> String -> IO Pandoc)
1111 -> Benchmark
1212readerBench doc (name, reader) =
1313 let writer = case lookup name writers of
@@ -17,8 +17,8 @@ readerBench doc (name, reader) =
1717 -- we compute the length to force full evaluation
1818 getLength (Pandoc (Meta a b c) d) =
1919 length a + length b + length c + length d
20− in bench (name ++ " reader") $ whnf (getLength .
21− reader def{ readerSmart = True }) inp
20+ in bench (name ++ " reader") $ whnfIO $ getLength `fmap`
21+ (reader def{ readerSmart = True }) inp
2222
2323writerBench :: Pandoc
2424 -> (String, WriterOptions -> Pandoc -> String)