diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-07-09 14:14:19 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-07-09 14:14:19 -0700 |
commit | 477a67061f06827b7e807319404cc277a417e9d0 (patch) | |
tree | 64066e5999ea4ae234dcdd4e923b4c3ea7778aea /src/Text/Pandoc/Class | |
parent | ae22b1e977cfb1357bb21fabc227e76a6adb0599 (diff) | |
download | pandoc-477a67061f06827b7e807319404cc277a417e9d0.tar.gz |
Always use / when adding directory to image path with extractMedia.
Even on Windows.
May help with #7431.
Diffstat (limited to 'src/Text/Pandoc/Class')
-rw-r--r-- | src/Text/Pandoc/Class/IO.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Class/IO.hs b/src/Text/Pandoc/Class/IO.hs index 169074860..f4cfc8682 100644 --- a/src/Text/Pandoc/Class/IO.hs +++ b/src/Text/Pandoc/Class/IO.hs @@ -226,6 +226,6 @@ adjustImagePath dir mediabag (Image attr lab (src, tit)) = case lookupMedia (T.unpack src) mediabag of Nothing -> Image attr lab (src, tit) Just item -> - let fullpath = dir </> mediaPath item + let fullpath = dir <> "/" <> mediaPath item in Image attr lab (T.pack fullpath, tit) adjustImagePath _ _ x = x |