diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2014-08-11 16:18:17 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2014-08-11 16:23:05 +0100 |
| commit | 72b147071364d6034f7cac634d23010a704627e5 (patch) | |
| tree | a128d17e424ddee2b0db7c2e0a0788abb65e44c4 /src/Text/Pandoc/Readers/EPUB.hs | |
| parent | a67e5e877dd87fcb19d6d2dcedb399cf2b5bf4f1 (diff) | |
EPUB Reader: Fixed another normalisation problem..
Diffstat (limited to 'src/Text/Pandoc/Readers/EPUB.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |