sigh

2021-03-29 13:20:03 -06:00 · 2021-03-29 13:20:03 -06:00 · 8748923faa
commit 8748923faa
parent 086dfb1f1e
1 changed files with 2 additions and 2 deletions
--- 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"