git.iko.soy/typeable/pandoc
on master help sign in
Minor fixes to MediaWiki reader.
7326f0bJohn MacFarlane
src/Text/Pandoc/Readers/MediaWiki.hs+2−2
compare with master
unifiedsplit
@@ -261,7 +261,7 @@ linebreak = B.linebreak <$
261externalLink :: MWParser Inlines
261externalLink :: MWParser Inlines
262externalLink = try $ do
262externalLink = try $ do
263 char '['
263 char '['
264− (orig, src) <- uri
264+ (_, src) <- uri
265 skipMany1 spaceChar
265 skipMany1 spaceChar
266 lab <- manyTill inline (char ']')
266 lab <- manyTill inline (char ']')
267 let lab' = if null lab
267 let lab' = if null lab
@@ -271,7 +271,7 @@ externalLink = try $ do
271
271
272url :: MWParser Inlines
272url :: MWParser Inlines
273url = do
273url = do
274− (_, src) <- uri
274+ (orig, src) <- uri
275 return $ B.link src "" (B.str orig)
275 return $ B.link src "" (B.str orig)
276
276
277nowiki :: MWParser Inlines
277nowiki :: MWParser Inlines