@@ -99,7 +99,7 @@ writeMedia :: Bool -> FilePath -> (FilePath, BL.ByteString) -> IO ()
9999writeMedia verbose dir (subpath, bs) = do
100100 -- we join and split to convert a/b/c to a\b\c on Windows;
101101 -- in zip containers all paths use /
102− let fullpath = dir </> joinPath (splitPath subpath)
102+ let fullpath = dir </> normalise subpath
103103 createDirectoryIfMissing True $ takeDirectory fullpath
104104 when verbose $ UTF8.hPutStrLn stderr $ "pandoc: extracting " ++ fullpath
105105 BL.writeFile fullpath bs