@@ -95,7 +95,7 @@ fetchImages mimes root arc (query iq -> links) =
95 (mapMaybe getEntry links)
95 (mapMaybe getEntry links)
97 getEntry link =
97 getEntry link =
98− let abslink = root </> link in
98+ let abslink = normalise (root </> link) in
99 (link , lookup link mimes, ) . fromEntry
99 (link , lookup link mimes, ) . fromEntry
100 <$> findEntryByPath abslink arc
100 <$> findEntryByPath abslink arc