mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-21 06:21:39 +03:00
2e7e6fd98a
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/5048 GitOrigin-RevId: f666a10c6af5feda9d761d3ffee5c77695361fdf
42 lines
1.6 KiB
Haskell
42 lines
1.6 KiB
Haskell
-- | Postgres Translate Column
|
|
--
|
|
-- Translate column values to Postgres-specific SQL expressions.
|
|
module Hasura.Backends.Postgres.Translate.Column
|
|
( toTxtValue,
|
|
toJSONableExp,
|
|
)
|
|
where
|
|
|
|
import Hasura.Backends.Postgres.SQL.DML
|
|
import Hasura.Backends.Postgres.SQL.Types
|
|
import Hasura.Backends.Postgres.SQL.Value
|
|
import Hasura.Backends.Postgres.Types.Column
|
|
import Hasura.GraphQL.Schema.Options qualified as Options
|
|
import Hasura.Prelude
|
|
import Hasura.RQL.Types.Column
|
|
import Hasura.SQL.Backend
|
|
|
|
toTxtValue :: ColumnValue ('Postgres pgKind) -> SQLExp
|
|
toTxtValue ColumnValue {..} =
|
|
withScalarTypeAnn ty . withConstructorFn ty $ txtEncoder cvValue
|
|
where
|
|
ty = unsafePGColumnToBackend cvType
|
|
|
|
-- | Formats each columns to appropriate SQL expression
|
|
toJSONableExp :: Options.StringifyNumbers -> ColumnType ('Postgres pgKind) -> Bool -> SQLExp -> SQLExp
|
|
toJSONableExp stringifyNum colType asText expression
|
|
-- If it's a numeric column greater than a 32-bit integer, we have to stringify it as JSON spec doesn't support >32-bit integers
|
|
| asText || (isScalarColumnWhere isBigNum colType && (case stringifyNum of Options.StringifyNumbers -> True; Options.Don'tStringifyNumbers -> False)) =
|
|
expression `SETyAnn` textTypeAnn
|
|
-- If the column is either a `Geometry` or `Geography` then apply the `ST_AsGeoJSON` function to convert it into GeoJSON format
|
|
| isScalarColumnWhere isGeoType colType =
|
|
SEFnApp
|
|
"ST_AsGeoJSON"
|
|
[ expression,
|
|
SEUnsafe "15", -- max decimal digits
|
|
SEUnsafe "4" -- to print out crs
|
|
]
|
|
Nothing
|
|
`SETyAnn` jsonTypeAnn
|
|
| otherwise = expression
|