Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fixed benchmark file to find documentation files.

Browse source
This commit is contained in:
John MacFarlane 2012-12-29 19:12:19 -08:00
parent e20336904b
commit 78425c90e3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
benchmark/benchmark-pandoc.hs
View file

@ -1,5 +1,5 @@
import Text.Pandoc
import Text.Pandoc.Shared (readDataFileUTF8, normalize)
import Text.Pandoc.Shared (normalize)
import Criterion.Main
import Criterion.Config
import Text.JSON.Generic
@ -35,8 +35,8 @@ main :: IO ()
main = do
args <- getArgs
(conf,_) <- parseArgs defaultConfig{ cfgSamples = Last $ Just 20 } defaultOptions args
inp <- readDataFileUTF8 (Just ".") "README"
inp2 <- readDataFileUTF8 (Just ".") "tests/testsuite.txt"
inp <- readFile "README"
inp2 <- readFile "tests/testsuite.txt"
let opts = def{ readerSmart = True }
let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2)
let readerBs = map (readerBench doc) readers