diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 4 |
1 files 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 _ _)) |