From 4ae61bdf8fb35ab82ef9fffe05817bb4323fde45 Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Sun, 10 Aug 2014 00:12:09 +0100
Subject: EPUB: Fixed another mediabag related regression..

---
 src/Text/Pandoc/Readers/EPUB.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/EPUB.hs b/src/Text/Pandoc/Readers/EPUB.hs
index fd5980f0a..cb5f684b2 100644
--- a/src/Text/Pandoc/Readers/EPUB.hs
+++ b/src/Text/Pandoc/Readers/EPUB.hs
@@ -62,7 +62,7 @@ archiveToEPUB os archive = do
       foldM' (\a b -> ((a <>) . bottomUp (prependHash escapedSpine))
         `liftM` parseSpineElem root b) mempty spine
   let ast = coverDoc <> (Pandoc meta bs)
-  let mediaBag = fetchImages (M.elems items) archive ast
+  let mediaBag = fetchImages (M.elems items) root archive ast
   return $ (ast, mediaBag)
   where
     os' = os {readerParseRaw = True}
@@ -86,16 +86,18 @@ archiveToEPUB os archive = do
 -- paths should be absolute when this function is called
 -- renameImages should do this
 fetchImages :: [(FilePath, MIME)]
+            -> FilePath -- ^ Root
             -> Archive
             -> Pandoc
             -> MediaBag
-fetchImages mimes arc (query iq -> links) =
+fetchImages mimes root arc (query iq -> links) =
     foldr (uncurry3 insertMedia) mempty
       (mapMaybe getEntry links)
   where
     getEntry link =
+        let abslink = root </> link in
         (link , lookup link mimes, ) . fromEntry
-          <$> findEntryByPath link arc
+          <$> findEntryByPath abslink arc
 
 iq :: Inline -> [FilePath]
 iq (Image _ (url, _)) = [url]
-- 
cgit v1.2.3