diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2014-08-05 11:02:23 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2014-08-05 11:02:23 +0100 |
| commit | b04bb3b6d279cf50a4a8f67ccda00afd9c4a5a28 (patch) | |
| tree | 5125cf32c818eaca177eea468f82495c643aebc5 /src/Text/Pandoc/MediaBag.hs | |
| parent | 2de2842bddf06847560f975933837923cba83db1 (diff) | |
MediaBag: Improved normalisation when writing files
Diffstat (limited to 'src/Text/Pandoc/MediaBag.hs')
| -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 |