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

In rebasePath, check for absolute paths two ways.

Browse source 
isAbsolute from FilePath doesn't return True on Windows
for paths beginning with `/`, so we check that separately.
This commit is contained in:
John MacFarlane 2021-05-29 14:41:28 -07:00
parent c210b98366
commit 0d7103de7e
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -1924,7 +1924,10 @@ rebasePath :: SourcePos -> Text -> Text
rebasePath pos path = do rebasePath pos path = do
let fp = sourceName pos let fp = sourceName pos
isFragment = T.take 1 path == "#" isFragment = T.take 1 path == "#"
in if T.null path || isFragment || isAbsolute (T.unpack path) || isURI path -- check for leading / because on Windows this won't be
-- recognized as absolute by isAbsolute
isAbsolutePath = isAbsolute (T.unpack path) || T.take 1 path == "/"
in if T.null path || isFragment || isAbsolutePath || isURI path
then path then path
else else
case takeDirectory fp of case takeDirectory fp of