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

fetchItem: don't treat UNC paths as protocol-relative URLs.

Browse source 
These are paths beginning `//?/UNC/...`.  Closes #5127.
This commit is contained in:
John MacFarlane 2019-03-22 11:22:21 -07:00
parent b3473df417
commit 97acf152e0
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -569,7 +569,8 @@ downloadOrRead s = do
case parseURIReference' s' of case parseURIReference' s' of
Just u' -> openURL $ show $ u' `nonStrictRelativeTo` u Just u' -> openURL $ show $ u' `nonStrictRelativeTo` u
Nothing -> openURL s' -- will throw error Nothing -> openURL s' -- will throw error
(Nothing, s'@('/':'/':_)) -> -- protocol-relative URI (Nothing, s'@('/':'/':c:_)) | c /= '?' -> -- protocol-relative URI
-- we exclude //? because of //?UNC/ on Windows
case parseURIReference' s' of case parseURIReference' s' of
Just u' -> openURL $ show $ u' `nonStrictRelativeTo` httpcolon Just u' -> openURL $ show $ u' `nonStrictRelativeTo` httpcolon
Nothing -> openURL s' -- will throw error Nothing -> openURL s' -- will throw error