EPUB Reader: Fixed another normalisation problem..

This commit is contained in:
Matthew Pickering 2014-08-11 16:18:17 +01:00
parent a67e5e877d
commit 72b1470713

View file

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