diff --git a/Test/Test.hs b/Test/Test.hs
index 9e9825ce..07cd608e 100644
--- 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
index c017c666..4964eff1 100644
--- 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)]