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

esqueleto-3.5.3.0 (#292)

Browse Source
This commit is contained in:
Matt Parsons 2021-09-30 11:59:30 -06:00 committed by GitHub
parent ed4e98f96b
commit c70799be09
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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/Common/Test.hs
View File

@ -2313,8 +2313,8 @@ testExperimentalFrom = do
rows <- select $ do rows <- select $ do
(persons :& profiles :& posts) <- Experimental.from $ q (persons :& profiles :& posts) <- Experimental.from $ q
pure (persons ^. PersonId, profiles ^. ProfileId, posts ^. BlogPostId) pure (persons ^. PersonId, profiles ^. ProfileId, posts ^. BlogPostId)
let result = coerce rows :: [(PersonId, ProfileId, BlogPostId)] let result = rows :: [(Value PersonId, Value ProfileId, Value BlogPostId)]
-- We don't care about eh result of the query, only that it -- We don't care about the result of the query, only that it
-- rendered & executed. -- rendered & executed.
asserting noExceptions asserting noExceptions