Fixed absolute URI detection in EPUB writer. Closes #1672.

2014-10-08 14:54:03 -07:00 · 2014-10-08 14:54:03 -07:00 · a4d28cdd6d
commit a4d28cdd6d
parent d60707eed0
1 changed files with 2 additions and 2 deletions
--- 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 _ _))