diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/EPUB.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/Tests/Readers/EPUB.hs b/test/Tests/Readers/EPUB.hs index 5da5d33d3..201fd10a5 100644 --- a/test/Tests/Readers/EPUB.hs +++ b/test/Tests/Readers/EPUB.hs @@ -11,7 +11,9 @@ import Text.Pandoc.Readers.EPUB getMediaBag :: FilePath -> IO MediaBag getMediaBag fp = do bs <- BL.readFile fp - snd <$> (P.runIOorExplode $ P.withMediaBag $ readEPUB def bs) + P.runIOorExplode $ do + readEPUB def bs + P.getMediaBag testMediaBag :: FilePath -> [(String, String, Int)] -> IO () testMediaBag fp bag = do |