@@ -816,8 +816,8 @@ transformInline :: WriterOptions
816 -> IO Inline
816 -> IO Inline
817transformInline opts mediaRef (Image lab (src,tit)) = do
817transformInline opts mediaRef (Image lab (src,tit)) = do
818 let oldsrc = case (unEscapeString src, writerSourceURL opts) of
818 let oldsrc = case (unEscapeString src, writerSourceURL opts) of
819− (s, Just u) | not (isURI s) -> u </> s
819+ (s, Just u) | not (isURI src) -> u </> s
820− (s, _) -> s
820+ (s, _) -> s
821 newsrc <- modifyMediaRef mediaRef oldsrc
821 newsrc <- modifyMediaRef mediaRef oldsrc
822 return $ Image lab (newsrc, tit)
822 return $ Image lab (newsrc, tit)
823transformInline opts _ (x@(Math _ _))
823transformInline opts _ (x@(Math _ _))