on dev help sign in
type expressions
353c498Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+6
@@ -211,6 +211,8 @@ module Squeal.PostgreSQL.Expression
211 , jsonb
211 , jsonb
212 , vararray
212 , vararray
213 , fixarray
213 , fixarray
214+ , tsvector
215+ , tsquery
214 -- * Re-export
216 -- * Re-export
215 , (&)
217 , (&)
216 , NP (..)
218 , NP (..)
@@ -2148,6 +2150,10 @@ fixarray ty = UnsafeTypeExpression $
2148 $ hcmap (SOP.Proxy @KnownNat)
2150 $ hcmap (SOP.Proxy @KnownNat)
2149 (K . fromString . show . natVal)
2151 (K . fromString . show . natVal)
2150 (hpure SOP.Proxy :: NP SOP.Proxy ns)
2152 (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"
2151
2157
2152-- | `pgtype` is a demoted version of a `PGType`
2158-- | `pgtype` is a demoted version of a `PGType`
2153class PGTyped schemas (ty :: NullityType) where
2159class PGTyped schemas (ty :: NullityType) where