diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-07-18 21:51:11 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-07-18 21:51:11 -0700 |
| commit | 93e096fe1d23bf60a7ca7fa39fa6e730336338eb (patch) | |
| tree | 7bf1f0fe5eec89e79137ea04198b2ec2e0bdc5a2 | |
| parent | 7c980f39bf1cff941d3e78056fd69e0b371833e3 (diff) | |
| download | pandoc-93e096fe1d23bf60a7ca7fa39fa6e730336338eb.tar.gz | |
Fixed warning.
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 $ |