diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index 42863ef86..e625931fc 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -126,7 +126,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
   let readPicEntry entries (oldsrc, newsrc) = do
         res <- fetchItem sourceDir oldsrc
         case res of
-             Left e        -> do
+             Left _        -> do
               warn $ "Could not find image `" ++ oldsrc ++ "', skipping..."
               return entries
              Right (img,_) -> return $