diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-08-05 08:28:28 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-05 08:28:28 -0700 |
commit | 1819bdfaed91670fef11b47d09e1de4d19034997 (patch) | |
tree | 5125cf32c818eaca177eea468f82495c643aebc5 /src/Text/Pandoc | |
parent | 2de2842bddf06847560f975933837923cba83db1 (diff) | |
parent | b04bb3b6d279cf50a4a8f67ccda00afd9c4a5a28 (diff) | |
download | pandoc-1819bdfaed91670fef11b47d09e1de4d19034997.tar.gz |
Merge pull request #1487 from mpickering/master
MediaBag: Improved normalisation when writing files
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/MediaBag.hs | 2 |
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 |