on dev help sign in
type expressions

* tsvector * tsquery

commit353c498617b04cd0d2d81fc50f9cad27cf1eed18 authorEitan Chatav <eitan@Eitans-MacBook-Pro.local> dateTue 12 Mar 2019, 11:14 (8 years ago) parent9d2923f
1 file changed+6
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+6
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+6
@@ -211,6 +211,8 @@ module Squeal.PostgreSQL.Expression
211211 , jsonb
212212 , vararray
213213 , fixarray
214+ , tsvector
215+ , tsquery
214216 -- * Re-export
215217 , (&)
216218 , NP (..)
@@ -2148,6 +2150,10 @@ fixarray ty = UnsafeTypeExpression $
21482150 $ hcmap (SOP.Proxy @KnownNat)
21492151 (K . fromString . show . natVal)
21502152 (hpure SOP.Proxy :: NP SOP.Proxy ns)
2153+tsvector :: TypeExpression schemas (nullity 'PGtsvector)
2154+tsvector = UnsafeTypeExpression "tsvector"
2155+tsquery :: TypeExpression schemas (nullity 'PGtsquery)
2156+tsquery = UnsafeTypeExpression "tsquery"
21512157
21522158-- | `pgtype` is a demoted version of a `PGType`
21532159class PGTyped schemas (ty :: NullityType) where