From 7f9e950d8da52dd2333843d7fd85d000c4a1cbe3 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 29 Jul 2017 20:54:25 +0200
Subject: Class: Removed unnecessary withMedia, improved haddocks.

---
 test/Tests/Readers/EPUB.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'test/Tests')

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
-- 
cgit v1.2.3