From 72b147071364d6034f7cac634d23010a704627e5 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Mon, 11 Aug 2014 16:18:17 +0100 Subject: EPUB Reader: Fixed another normalisation problem.. --- src/Text/Pandoc/Readers/EPUB.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/EPUB.hs b/src/Text/Pandoc/Readers/EPUB.hs index f900c0adc..d4eef3556 100644 --- a/src/Text/Pandoc/Readers/EPUB.hs +++ b/src/Text/Pandoc/Readers/EPUB.hs @@ -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 -- cgit v1.2.3