haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sigh

Browse Source
This commit is contained in:
parsonsmatt 2021-03-29 13:20:03 -06:00
parent 086dfb1f1e
commit 8748923faa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/PostgreSQL/Test.hs
View File

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