@@ -942,8 +942,8 @@ transformTag tag@(TagOpen name attr)
942942 newsrc <- modifyMediaRef src
943943 newposter <- modifyMediaRef poster
944944 let attr' = filter (\(x,_) -> x /= "src" && x /= "poster") attr ++
945− [("src", newsrc) | not (null newsrc)] ++
946− [("poster", newposter) | not (null newposter)]
945+ [("src", "../" ++ newsrc) | not (null newsrc)] ++
946+ [("poster", "../" ++ newposter) | not (null newposter)]
947947 return $ TagOpen name attr'
948948transformTag tag = return tag
949949