Fixed benchmark file to find documentation files.

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