4c43824 · typeable/pandoc

src/Text/Pandoc/Readers/Markdown.hs+1−3

@@ -349,10 +349,8 @@ referenceKey = try $ do

349 char ':'

350 skipSpaces >> optional newline >> skipSpaces >> notFollowedBy (char '[')

351 let sourceURL = liftM unwords $ many $ try $ do

352− notFollowedBy' referenceTitle

353− skipMany spaceChar

354− optional $ newline >> notFollowedBy blankline

355 skipMany spaceChar

352 skipMany spaceChar

353+ notFollowedBy' referenceTitle

356 notFollowedBy' (() <$ reference)

354 notFollowedBy' (() <$ reference)

357 many1 $ notFollowedBy space >> litChar

355 many1 $ notFollowedBy space >> litChar

358 let betweenAngles = try $ char '<' >>

356 let betweenAngles = try $ char '<' >>

tests/markdown-reader-more.native+4−1

@@ -136,4 +136,7 @@

136,Para [Link [Str "link"] ("/hithere)","")]

137,Para [Link [Str "linky"] ("hi_(there_(nested))","")]

138,Header 2 ("reference-link-fallbacks",[],[]) [Str "Reference",Space,Str "link",Space,Str "fallbacks"]

139−,Para [Str "[",Emph [Str "not",Space,Str "a",Space,Str "link"],Str "]",Space,Str "[",Emph [Str "nope"],Str "]\8230"]]

139+,Para [Str "[",Emph [Str "not",Space,Str "a",Space,Str "link"],Str "]",Space,Str "[",Emph [Str "nope"],Str "]\8230"]

140+,Header 2 ("empty-reference-links",[],[]) [Str "Empty",Space,Str "reference",Space,Str "links"]

141+,Para [Str "bar"]

142+,Para [Link [Str "foo2"] ("","")]]

tests/markdown-reader-more.txt+8

@@ -235,3 +235,11 @@ Empty cells

235## Reference link fallbacks

236

237[*not a link*] [*nope*]...

238+

239+## Empty reference links

240+

241+[foo2]:

242+

243+bar

244+

245+[foo2]