Fix test

circuithub · Apr 11, 2021 · 7bb4246 · 7bb4246
1 parent 4b420e8
commit 7bb4246
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -694,8 +694,8 @@ testSelectArray = databasePropertyTest "Can SELECT Arrays (with aggregation)" \t
   rows <- forAll $ Gen.list (Range.linear 1 10) Gen.bool
 
   transaction \connection -> do
-    selected <- liftIO $ Rel8.select connection $ Rel8.aggregate do
-      Rel8.listAgg <$> Rel8.values (map Rel8.lit rows)
+    selected <- liftIO $ Rel8.select connection $ Rel8.aggregate (Rel8.listAgg id) do
+      Rel8.values (map Rel8.lit rows)
 
     selected === [foldMap pure rows]