diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs
index 3954c62a6..f047baf1c 100644
--- a/src/Text/Pandoc/Writers/MediaWiki.hs
+++ b/src/Text/Pandoc/Writers/MediaWiki.hs
@@ -129,7 +129,6 @@ blockToMediaWiki b@(RawBlock f str)
 blockToMediaWiki HorizontalRule = return "\n-----\n"
 
 blockToMediaWiki (Header level (ident,_,_) inlines) = do
-  opts <- gets stOptions
   let autoId = T.replace " " "_" $ stringify inlines
   contents <- inlineListToMediaWiki inlines
   let eqs = T.replicate level "="