@@ -227,5 +227,6 @@ writeMedia dir mediabag subpath = do
227227-- returns the element unchanged otherwise.
228228adjustImagePath :: FilePath -> [FilePath] -> Inline -> Inline
229229adjustImagePath dir paths (Image attr lab (src, tit))
230− | unpack src `elem` paths = Image attr lab (pack dir <> "/" <> src, tit)
230+ | unpack src `elem` paths
231+ = Image attr lab (pack (normalise $ dir </> unpack src), tit)
231232adjustImagePath _ _ x = x