@@ -93,7 +93,7 @@ fetchImages mimes root arc (query iq -> links) =
9393 mapM_ (uncurry3 insertMedia) (mapMaybe getEntry links)
9494 where
9595 getEntry link =
96− let abslink = normalise (root </> link) in
96+ let abslink = normalise (unEscapeString (root </> link)) in
9797 (link , lookup link mimes, ) . fromEntry
9898 <$> findEntryByPath abslink arc
9999
@@ -264,7 +264,7 @@ findAttrE :: PandocMonad m => QName -> Element -> m String
264264findAttrE q e = mkE "findAttr" $ findAttr q e
265265
266266findEntryByPathE :: PandocMonad m => FilePath -> Archive -> m Entry
267−findEntryByPathE (normalise -> path) a =
267+findEntryByPathE (normalise . unEscapeString -> path) a =
268268 mkE ("No entry on path: " ++ path) $ findEntryByPath path a
269269
270270parseXMLDocE :: PandocMonad m => String -> m Element