diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 19:57:48 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 21:09:07 +0000 |
| commit | 1a7a99161a6a41d8eba7ce02482eeaf0b0ba75d5 (patch) | |
| tree | f74f32feb3b2e9eb436dc4a076a549491e0f55e9 /tests/Tests/Readers/EPUB.hs | |
| parent | 70e0c4d41b94edcc611a652c2f02973aff667121 (diff) | |
| download | pandoc-1a7a99161a6a41d8eba7ce02482eeaf0b0ba75d5.tar.gz | |
Update tests
Diffstat (limited to 'tests/Tests/Readers/EPUB.hs')
| -rw-r--r-- | tests/Tests/Readers/EPUB.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Tests/Readers/EPUB.hs b/tests/Tests/Readers/EPUB.hs index 0d19a8400..bfdaa45b7 100644 --- a/tests/Tests/Readers/EPUB.hs +++ b/tests/Tests/Readers/EPUB.hs @@ -9,9 +9,10 @@ import Text.Pandoc.Readers.EPUB import Text.Pandoc.MediaBag (MediaBag, mediaDirectory) import Control.Applicative import System.FilePath (joinPath) +import Text.Pandoc.Error getMediaBag :: FilePath -> IO MediaBag -getMediaBag fp = snd . readEPUB def <$> BL.readFile fp +getMediaBag fp = snd . handleError . readEPUB def <$> BL.readFile fp testMediaBag :: FilePath -> [(String, String, Int)] -> IO () testMediaBag fp bag = do |