@@ -68,10 +68,11 @@ main = do
6868 movie <- B.readFile "test/movie.jpg"
6969 time <- Data.Time.getCurrentTime
7070 let setupFakeFiles = modifyPureState $ \st -> st{ stFiles =
71− FileTree $ Map.fromList [
72− ("lalune.jpg", FileInfo time lalune),
73− ("movie.jpg", FileInfo time movie)
74− ]}
71+ insertInFileTree "lalune.jpg"
72+ (FileInfo time lalune) $
73+ insertInFileTree "movie.jpg"
74+ (FileInfo time movie) mempty
75+ }
7576 let opts = def
7677 let doc = either (error . show) id $ runPure $ readMarkdown opts inp
7778 let readers' = [(n, \o d ->