diff options
| -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 -> |