Revised benchmark so it doesn't use FileTree constructor.

2017-12-28 21:21:36 -08:00 · 2017-12-28 21:21:36 -08:00 · 12b792ba73
commit 12b792ba73
parent a8128831cf
1 changed files with 5 additions and 4 deletions
--- 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 ->