diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-12-01 12:47:05 -0500 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:40 +0100 |
| commit | 5ede57122ce61d1504e81c6429ff26c38490aee6 (patch) | |
| tree | 1bfb24bda19ee17aa63f795e949b6f65545263fb /tests/Tests/Readers/EPUB.hs | |
| parent | 3574b98f81c2c24f7ef31f8251ba88792a2c06f0 (diff) | |
| download | pandoc-5ede57122ce61d1504e81c6429ff26c38490aee6.tar.gz | |
Update all tests to use new readers and error structure.
Diffstat (limited to 'tests/Tests/Readers/EPUB.hs')
| -rw-r--r-- | tests/Tests/Readers/EPUB.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/Tests/Readers/EPUB.hs b/tests/Tests/Readers/EPUB.hs index 2ad36eba6..9190671c3 100644 --- a/tests/Tests/Readers/EPUB.hs +++ b/tests/Tests/Readers/EPUB.hs @@ -7,10 +7,12 @@ import Test.Framework.Providers.HUnit import qualified Data.ByteString.Lazy as BL import Text.Pandoc.Readers.EPUB import Text.Pandoc.MediaBag (MediaBag, mediaDirectory) -import Text.Pandoc.Error +import qualified Text.Pandoc.Class as P getMediaBag :: FilePath -> IO MediaBag -getMediaBag fp = snd . handleError . readEPUB def <$> BL.readFile fp +getMediaBag fp = do + bs <- BL.readFile fp + snd <$> (P.runIOorExplode $ P.withMediaBag $ readEPUB def bs) testMediaBag :: FilePath -> [(String, String, Int)] -> IO () testMediaBag fp bag = do |