diff options
| author | despresc <[email protected]> | 2019-11-07 13:59:20 -0500 |
|---|---|---|
| committer | despresc <[email protected]> | 2019-11-08 15:47:52 -0500 |
| commit | 0c6498bd9c2e7b4c5d4c189ee4e7b9758f3b262d (patch) | |
| tree | c1705e7b72303c21dd2ad76c6c2bacdeeabe3db9 | |
| parent | 1a2c78fff03d76487e40a58e46bec55d8c534a26 (diff) | |
Fix benchmarks
| -rw-r--r-- | benchmark/benchmark-pandoc.hs | 4 |
1 files 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" |