Remove redundant parens

tomjaguarpaw · Jan 18, 2024 · 2b116ab · 2b116ab
1 parent 637ba49
commit 2b116ab
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Test/Test.hs b/Test/Test.hs
@@ -1462,7 +1462,7 @@ testUnnest = do
 
 testSetAggregate :: Test
 testSetAggregate = do
-  xit "set aggregate (percentile_cont)" $ testH query (`shouldBe` [expectation])
+  it "set aggregate (percentile_cont)" $ testH query (`shouldBe` [expectation])
   where query :: Select (Field O.SqlFloat8)
         query = O.aggregate median (O.values as)
 

diff --git a/src/Opaleye/Internal/Aggregate.hs b/src/Opaleye/Internal/Aggregate.hs
@@ -146,7 +146,7 @@ aggregateU agg (c0, t0) = (c1, primQ')
 extractAggregateFields
   :: Traversable t
   => T.Tag
-  -> (t HPQ.PrimExpr)
+  -> t HPQ.PrimExpr
   -> PM.PM [((HPQ.Symbol,
               t HPQ.Symbol),
               PQ.Bindings HPQ.PrimExpr)]