diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-12-28 21:21:36 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-12-28 21:21:36 -0800 |
commit | 12b792ba73996256002536bf540ad625d8d973d2 (patch) | |
tree | cf0248773848d52a894a7efd4e26c856101595d1 | |
parent | a8128831cf792db7d762413669730ec4f1dc8a97 (diff) |
Revised benchmark so it doesn't use FileTree constructor.
-rw-r--r-- | benchmark/benchmark-pandoc.hs | 9 |
1 files 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 -> |