esqueleto-3.5.3.0 (#292)

2021-09-30 11:59:30 -06:00 · 2021-09-30 11:59:30 -06:00 · c70799be09
commit c70799be09
parent ed4e98f96b
1 changed files with 2 additions and 2 deletions
--- a/test/Common/Test.hs
+++ b/test/Common/Test.hs
@ -2313,8 +2313,8 @@ testExperimentalFrom = do
      rows <- select $ do
        (persons :& profiles :& posts) <- Experimental.from $ q
        pure (persons ^. PersonId, profiles ^. ProfileId, posts ^. BlogPostId)
-      let result = coerce rows :: [(PersonId, ProfileId, BlogPostId)]
-      -- We don't care about eh result of the query, only that it
+      let result = rows :: [(Value PersonId, Value ProfileId, Value BlogPostId)]
+      -- We don't care about the result of the query, only that it
      -- rendered & executed.
      asserting noExceptions