Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Revert "T.P.Class.IO.adjustImagePath: avoid double slash."

Browse source 
This reverts commit 3dcb526b9b.
This commit is contained in:
John MacFarlane 2022-02-04 09:29:49 -08:00
parent 3dcb526b9b
commit 40b174c770
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Class/IO.hs
View file

@ -53,7 +53,6 @@ import Network.URI (unEscapeString)
import System.Directory (createDirectoryIfMissing) import System.Directory (createDirectoryIfMissing)
import System.Environment (getEnv) import System.Environment (getEnv)
import System.FilePath ((</>), takeDirectory, normalise) import System.FilePath ((</>), takeDirectory, normalise)
import qualified System.FilePath.Posix as Posix
import System.IO (stderr) import System.IO (stderr)
import System.IO.Error import System.IO.Error
import System.Random (StdGen) import System.Random (StdGen)
@ -235,6 +234,6 @@ adjustImagePath dir mediabag (Image attr lab (src, tit)) =
case lookupMedia (T.unpack src) mediabag of case lookupMedia (T.unpack src) mediabag of
Nothing -> Image attr lab (src, tit) Nothing -> Image attr lab (src, tit)
Just item -> Just item ->
let fullpath = dir Posix.</> mediaPath item let fullpath = dir <> "/" <> mediaPath item
in Image attr lab (T.pack fullpath, tit) in Image attr lab (T.pack fullpath, tit)
adjustImagePath _ _ x = x adjustImagePath _ _ x = x