From 78425c90e39fac39df8da6bb8ee81fb4ffdf9588 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 29 Dec 2012 19:12:19 -0800
Subject: [PATCH] Fixed benchmark file to find documentation files.
---
benchmark/benchmark-pandoc.hs | 6 +++---
1 file 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