1 files changed, 7 insertions, 7 deletions

diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs
index 1400b5846..a7c7fc482 100644
--- a/src/Text/Pandoc/Writers/MediaWiki.hs
+++ b/src/Text/Pandoc/Writers/MediaWiki.hs
@@ -362,7 +362,7 @@ inlineToMediaWiki _ Apostrophe = return "’"
 
 inlineToMediaWiki _ Ellipses = return "…"
 
-inlineToMediaWiki _ (Code str) =
+inlineToMediaWiki _ (Code _ str) =
   return $ "<tt>" ++ (escapeString str) ++ "</tt>"
 
 inlineToMediaWiki _ (Str str) = return $ escapeString str
@@ -380,12 +380,12 @@ inlineToMediaWiki _ Space = return " "
 
 inlineToMediaWiki opts (Link txt (src, _)) = do
   label <- inlineListToMediaWiki opts txt
-  if txt == [Code src] -- autolink
-     then return src
-     else if isURI src
-             then return $ "[" ++ src ++ " " ++ label ++ "]"
-             else return $ "[[" ++ src' ++ "|" ++ label ++ "]]"
-                   where src' = case src of
+  case txt of
+     [Code _ s] | s == src -> return src
+     _  -> if isURI src
+              then return $ "[" ++ src ++ " " ++ label ++ "]"
+              else return $ "[[" ++ src' ++ "|" ++ label ++ "]]"
+                     where src' = case src of
                                      '/':xs -> xs  -- with leading / it's a
                                      _      -> src -- link to a help page
 inlineToMediaWiki opts (Image alt (source, tit)) = do