diff options
Diffstat (limited to 'pandoc-lua-engine/test/Tests/Lua/Reader.hs')
| -rw-r--r-- | pandoc-lua-engine/test/Tests/Lua/Reader.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pandoc-lua-engine/test/Tests/Lua/Reader.hs b/pandoc-lua-engine/test/Tests/Lua/Reader.hs index 16474bd91..15ad685b4 100644 --- a/pandoc-lua-engine/test/Tests/Lua/Reader.hs +++ b/pandoc-lua-engine/test/Tests/Lua/Reader.hs @@ -27,8 +27,8 @@ tests = input <- BL.readFile "bytestring.bin" doc <- runIOorExplode $ readCustom "bytestring-reader.lua" >>= \case - ByteStringReader f -> f def input - TextReader {} -> error "Expected a bytestring reader" + (ByteStringReader f, _) -> f def input + (TextReader {}, _) -> error "Expected a bytestring reader" let bytes = mconcat $ map (B.str . T.singleton . chr) [0..255] doc @?= B.doc (B.plain bytes) ] |