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: Revised benchmark so it doesn't use FileTree constructor.

---
 benchmark/benchmark-pandoc.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'benchmark')

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 ->
-- 
cgit v1.2.3