aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2014-08-05 11:02:23 +0100
committerMatthew Pickering <matthewtpickering@gmail.com>2014-08-05 11:02:23 +0100
commitb04bb3b6d279cf50a4a8f67ccda00afd9c4a5a28 (patch)
tree5125cf32c818eaca177eea468f82495c643aebc5 /src/Text/Pandoc
parent2de2842bddf06847560f975933837923cba83db1 (diff)
downloadpandoc-b04bb3b6d279cf50a4a8f67ccda00afd9c4a5a28.tar.gz
MediaBag: Improved normalisation when writing files
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/MediaBag.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/MediaBag.hs b/src/Text/Pandoc/MediaBag.hs
index 667089f55..b19804b5f 100644
--- a/src/Text/Pandoc/MediaBag.hs
+++ b/src/Text/Pandoc/MediaBag.hs
@@ -99,7 +99,7 @@ writeMedia :: Bool -> FilePath -> (FilePath, BL.ByteString) -> IO ()
writeMedia verbose dir (subpath, bs) = do
-- we join and split to convert a/b/c to a\b\c on Windows;
-- in zip containers all paths use /
- let fullpath = dir </> joinPath (splitPath subpath)
+ let fullpath = dir </> normalise subpath
createDirectoryIfMissing True $ takeDirectory fullpath
when verbose $ UTF8.hPutStrLn stderr $ "pandoc: extracting " ++ fullpath
BL.writeFile fullpath bs