circuithub/rel8
1
1
Fork 0
mirror of https://github.com/circuithub/rel8.git synced 2024-09-11 16:05:41 +03:00
Code Issues Projects Releases Wiki Activity

Implement lit for Array

Browse Source
This commit is contained in:
Ollie Charles 2021-03-02 16:43:33 +00:00
parent 9ccae597b9
commit 3c0b3f9bf7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Rel8.hs
View File

@ -1840,6 +1840,14 @@ instance Serializable a b => Serializable (Array a) (Seq b) where
pgArrayToZipList :: forall x. PGArray x -> ZipList x
pgArrayToZipList (PGArray a) = ZipList a
lit xs = Array $ fromColumns $ htabulate f
where
exprs :: [Columns a Expr]
exprs = toList $ toColumns . lit <$> xs
f :: forall x. HField (Columns a) x -> C Expr x
f i = MkC $ fromPrimExpr $ Opaleye.ArrayExpr $ toPrimExpr . toColumn . flip hfield i <$> exprs
instance Table Expr a => AggregateTable (Array a) where
aggregator = Opaleye.Aggregator $ Opaleye.PackMap go