@@ -126,7 +126,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
126 let readPicEntry entries (oldsrc, newsrc) = do
126 let readPicEntry entries (oldsrc, newsrc) = do
127 res <- fetchItem sourceDir oldsrc
127 res <- fetchItem sourceDir oldsrc
128 case res of
128 case res of
129− Left e -> do
129+ Left _ -> do
130 warn $ "Could not find image `" ++ oldsrc ++ "', skipping..."
130 warn $ "Could not find image `" ++ oldsrc ++ "', skipping..."
131 return entries
131 return entries
132 Right (img,_) -> return $
132 Right (img,_) -> return $