From 7326f0bf1723075e2dc6a3bcb9c98924e40ada92 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 12 Sep 2012 09:29:00 -0700
Subject: Minor fixes to MediaWiki reader.

---
 src/Text/Pandoc/Readers/MediaWiki.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index f3adbe72e..89c295141 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -261,7 +261,7 @@ linebreak = B.linebreak <$
 externalLink :: MWParser Inlines
 externalLink = try $ do
   char '['
-  (orig, src) <- uri
+  (_, src) <- uri
   skipMany1 spaceChar
   lab <- manyTill inline (char ']')
   let lab' = if null lab
@@ -271,7 +271,7 @@ externalLink = try $ do
 
 url :: MWParser Inlines
 url = do
-  (_, src) <- uri
+  (orig, src) <- uri
   return $ B.link src "" (B.str orig)
 
 nowiki :: MWParser Inlines
-- 
cgit v1.2.3