From a4d28cdd6d212646f63da316f8ca8ee102de727b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 8 Oct 2014 14:54:03 -0700
Subject: [PATCH] Fixed absolute URI detection in EPUB writer. Closes #1672.
---
src/Text/Pandoc/Writers/EPUB.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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 _ _))