From 12b792ba73996256002536bf540ad625d8d973d2 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 28 Dec 2017 21:21:36 -0800
Subject: [PATCH] Revised benchmark so it doesn't use FileTree constructor.
---
benchmark/benchmark-pandoc.hs | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index a667a6f81..645801c85 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -68,10 +68,11 @@ main = do
movie <- B.readFile "test/movie.jpg"
time <- Data.Time.getCurrentTime
let setupFakeFiles = modifyPureState $ \st -> st{ stFiles =
- FileTree $ Map.fromList [
- ("lalune.jpg", FileInfo time lalune),
- ("movie.jpg", FileInfo time movie)
- ]}
+ insertInFileTree "lalune.jpg"
+ (FileInfo time lalune) $
+ insertInFileTree "movie.jpg"
+ (FileInfo time movie) mempty
+ }
let opts = def
let doc = either (error . show) id $ runPure $ readMarkdown opts inp
let readers' = [(n, \o d ->