git.iko.soy/typeable/pandoc
on master help sign in
Minor fixes to MediaWiki reader.
commit7326f0bf1723075e2dc6a3bcb9c98924e40ada92 authorJohn MacFarlane <fiddlosopher@gmail.com> dateWed 12 Sep 2012, 09:29 (14 years ago) parent3d361b2
1 file changed+2−2
src/Text/Pandoc/Readers/MediaWiki.hs+2−2
src/Text/Pandoc/Readers/MediaWiki.hs+2−2
@@ -261,7 +261,7 @@ linebreak = B.linebreak <$
261261externalLink :: MWParser Inlines
262262externalLink = try $ do
263263 char '['
264− (orig, src) <- uri
264+ (_, src) <- uri
265265 skipMany1 spaceChar
266266 lab <- manyTill inline (char ']')
267267 let lab' = if null lab
@@ -271,7 +271,7 @@ externalLink = try $ do
271271
272272url :: MWParser Inlines
273273url = do
274− (_, src) <- uri
274+ (orig, src) <- uri
275275 return $ B.link src "" (B.str orig)
276276
277277nowiki :: MWParser Inlines