From a4d28cdd6d212646f63da316f8ca8ee102de727b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 8 Oct 2014 14:54:03 -0700 Subject: Fixed absolute URI detection in EPUB writer. Closes #1672. --- src/Text/Pandoc/Writers/EPUB.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index b9c20a2fe..8e38436c7 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -816,8 +816,8 @@ transformInline :: WriterOptions -> IO Inline transformInline opts mediaRef (Image lab (src,tit)) = do let oldsrc = case (unEscapeString src, writerSourceURL opts) of - (s, Just u) | not (isURI s) -> u s - (s, _) -> s + (s, Just u) | not (isURI src) -> u s + (s, _) -> s newsrc <- modifyMediaRef mediaRef oldsrc return $ Image lab (newsrc, tit) transformInline opts _ (x@(Math _ _)) -- cgit v1.2.3