From 0c6498bd9c2e7b4c5d4c189ee4e7b9758f3b262d Mon Sep 17 00:00:00 2001 From: despresc Date: Thu, 7 Nov 2019 13:59:20 -0500 Subject: Fix benchmarks --- benchmark/benchmark-pandoc.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs index 8968cad3e..e99032872 100644 --- a/benchmark/benchmark-pandoc.hs +++ b/benchmark/benchmark-pandoc.hs @@ -20,7 +20,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA import Prelude import Text.Pandoc import Text.Pandoc.MIME -import Text.Pandoc.Error (PandocError(..)) +-- import Text.Pandoc.Error (PandocError(..)) TODO text: restore import Control.Monad.Except (throwError) import qualified Text.Pandoc.UTF8 as UTF8 import qualified Data.ByteString as B @@ -53,7 +53,7 @@ readerBench doc name = _ -> throwError $ PandocSomeError $ "not a text format: " ++ name -getImages :: IO [(FilePath, MimeType, BL.ByteString)] +getImages :: IO [(FilePath, String, BL.ByteString)] -- TODO text: replace String with MimeType getImages = do ll <- BL.readFile "test/lalune.jpg" mv <- BL.readFile "test/movie.jpg" -- cgit v1.2.3