diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-12-29 19:12:19 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-12-29 19:23:24 -0800 |
commit | 78425c90e39fac39df8da6bb8ee81fb4ffdf9588 (patch) | |
tree | ea65f704bcbdc5e9fba38f5f385ee104e3642b33 | |
parent | e20336904b9814e7f6be122ff4a757af4fa487d8 (diff) | |
download | pandoc-78425c90e39fac39df8da6bb8ee81fb4ffdf9588.tar.gz |
Fixed benchmark file to find documentation files.
-rw-r--r-- | benchmark/benchmark-pandoc.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs index 015d0135a..c5646a958 100644 --- a/benchmark/benchmark-pandoc.hs +++ b/benchmark/benchmark-pandoc.hs @@ -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 |