diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-07-29 20:54:25 +0200 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-07-30 07:43:55 -0700 |
commit | 7f9e950d8da52dd2333843d7fd85d000c4a1cbe3 (patch) | |
tree | eacaaea2c3d2a8f9522b7673e76c9f79b54c1c74 /test/Tests/Readers | |
parent | 200b5fb60ce1372da592dafd0a2f587f0083d72f (diff) |
Class: Removed unnecessary withMedia, improved haddocks.
Diffstat (limited to 'test/Tests/Readers')
-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 |