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