From 8748923faa7a13d1832dd27aa9cd8c41cca04776 Mon Sep 17 00:00:00 2001
From: parsonsmatt <parsonsmatt@gmail.com>
Date: Mon, 29 Mar 2021 13:20:03 -0600
Subject: [PATCH] sigh

---
 test/PostgreSQL/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/PostgreSQL/Test.hs b/test/PostgreSQL/Test.hs
index 379fc43..e53e0eb 100644
--- a/test/PostgreSQL/Test.hs
+++ b/test/PostgreSQL/Test.hs
@@ -766,9 +766,9 @@ testInclusion = do
         it "creates sane SQL (chained)" $ do
             let obj = object ["a" .= [object ["b" .= True]]]
                 obj' = object ["b" .= True, "c" .= Null]
-                encoded = encode obj'
+                encoded = BSL.toStrict $ encode obj'
             createSaneSQL
-                (jsonbVal obj ->. "a" <@. jsonbVal )
+                (jsonbVal obj ->. "a" <@. jsonbVal obj')
                 "SELECT ((? -> ?) <@ ?)\nFROM \"Json\"\n"
                 [ PersistLiteralEscaped "{\"a\":[{\"b\":true}]}"
                 , PersistText "a"