git.iko.soy/typeable/pandoc
on master help sign in
Text.Pandoc.Parsing.uri: allow `&` and `=` as word characters.

This fixes a bug where pandoc would stop parsing a URI with an empty attribute: for example, `&a=&b=` wolud stop at `a`. (The uri parser tries to guess which punctuation characters are part of the URI and which might be punctuation after it.) Closes #4068.

commit508aab0bd555b4ca7632a78957ebb91c758f0a7e authorJohn MacFarlane <jgm@berkeley.edu> dateTue 14 Nov 2017, 22:05 (9 years ago) parent22d69c8
2 files changed+10−1
compare with master
unifiedsplit
src/Text/Pandoc/Parsing.hs+1−1 test/command/4068.md+9
src/Text/Pandoc/Parsing.hs+1−1
@@ -563,7 +563,7 @@ uri = try $ do
563563 -- http://en.wikipedia.org/wiki/State_of_emergency_(disambiguation)
564564 -- as a URL, while NOT picking up the closing paren in
565565 -- (http://wikipedia.org). So we include balanced parens in the URL.
566− let isWordChar c = isAlphaNum c || c `elem` "#$%*+/@\\_-"
566+ let isWordChar c = isAlphaNum c || c `elem` "#$%*+/@\\_-&="
567567 let wordChar = satisfy isWordChar
568568 let percentEscaped = try $ char '%' >> skipMany1 (satisfy isHexDigit)
569569 let entity = () <$ characterReference
test/command/4068.mdnew file+9
@@ -0,0 +1,9 @@
1+```
2+pandoc -f mediawiki -t native
3+[https://domain.com/script.php?a=1&b=2&c=&d=4 open productname bugs]
4+
5+[http://domain.com?a=. open productname bugs]
6+^D
7+[Para [Link ("",[],[]) [Str "open",Space,Str "productname",Space,Str "bugs"] ("https://domain.com/script.php?a=1&b=2&c=&d=4","")]
8+,Para [Str "[",Link ("",[],[]) [Str "http://domain.com?a="] ("http://domain.com?a=",""),Str ".",Space,Str "open",Space,Str "productname",Space,Str "bugs]"]]
9+```