diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-10-30 11:02:00 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-10-30 11:02:00 -0700 |
| commit | 8b3be07ae8566f29cbf73062d87c9dd44f99f566 (patch) | |
| tree | f662aee321bebbdf8d963ec2c24554f729105cfe /pandoc-lua-engine/test/Tests/Lua | |
| parent | 55b8d0abee2086be12d7dc33f7848f74482ee7e8 (diff) | |
hlint suggestions.
Diffstat (limited to 'pandoc-lua-engine/test/Tests/Lua')
| -rw-r--r-- | pandoc-lua-engine/test/Tests/Lua/Writer.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/pandoc-lua-engine/test/Tests/Lua/Writer.hs b/pandoc-lua-engine/test/Tests/Lua/Writer.hs index 18274d124..c9a0d478c 100644 --- a/pandoc-lua-engine/test/Tests/Lua/Writer.hs +++ b/pandoc-lua-engine/test/Tests/Lua/Writer.hs @@ -51,11 +51,10 @@ tests = , goldenVsString "bytestring writer" "bytestring.bin" - (runIOorExplode $ do - txt <- writeCustom "bytestring.lua" >>= \case + (runIOorExplode $ + writeCustom "bytestring.lua" >>= \case (ByteStringWriter f, _, _) -> f def mempty - _ -> error "Expected a bytestring writer" - pure txt) + _ -> error "Expected a bytestring writer") , goldenVsString "template" "writer-template.out.txt" |