diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-10-08 14:54:03 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-10-08 14:54:03 -0700 |
| commit | a4d28cdd6d212646f63da316f8ca8ee102de727b (patch) | |
| tree | 418e385a5009cebc4c287a3ca0c87d8a3ff9a47e /src | |
| parent | d60707eed046979a68b51f03a02ae6163c63a4ac (diff) | |
| download | pandoc-a4d28cdd6d212646f63da316f8ca8ee102de727b.tar.gz | |
Fixed absolute URI detection in EPUB writer. Closes #1672.
Diffstat (limited to 'src')
| -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 _ _)) |