EPUB Reader: Fixed another normalisation problem..
commit72b147071364d6034f7cac634d23010a704627e5
authorMatthew Pickering <matthewtpickering@gmail.com>
dateMon 11 Aug 2014, 16:18 (12 years ago)
parenta67e5e8
src/Text/Pandoc/Readers/EPUB.hs+1−1
@@ -95,7 +95,7 @@ fetchImages mimes root arc (query iq -> links) =
9595 (mapMaybe getEntry links)
9696 where
9797 getEntry link =
98− let abslink = root </> link in
98+ let abslink = normalise (root </> link) in
9999 (link , lookup link mimes, ) . fromEntry
100100 <$> findEntryByPath abslink arc
101101