From 93e096fe1d23bf60a7ca7fa39fa6e730336338eb Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 18 Jul 2013 21:51:11 -0700
Subject: [PATCH] Fixed warning.
---
src/Text/Pandoc/Writers/EPUB.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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 $