2021-02-23 20:37:27 +03:00
|
|
|
-- | Planning T-SQL queries and subscriptions.
|
|
|
|
|
|
|
|
module Hasura.Backends.MSSQL.Plan where
|
|
|
|
-- TODO: Re-add the export list after cleaning up the module
|
2021-05-21 14:37:34 +03:00
|
|
|
-- ( planQuery
|
|
|
|
-- , planSubscription
|
2021-02-23 20:37:27 +03:00
|
|
|
-- ) where
|
|
|
|
|
|
|
|
import Hasura.Prelude hiding (first)
|
|
|
|
|
|
|
|
import qualified Data.Aeson as J
|
2021-05-21 14:37:34 +03:00
|
|
|
import Data.ByteString.Lazy (toStrict)
|
2021-02-23 20:37:27 +03:00
|
|
|
import qualified Data.HashMap.Strict as HM
|
|
|
|
import qualified Data.HashMap.Strict.InsOrd as OMap
|
|
|
|
import qualified Data.HashSet as Set
|
|
|
|
import qualified Data.Text as T
|
|
|
|
import qualified Database.ODBC.SQLServer as ODBC
|
|
|
|
import qualified Language.GraphQL.Draft.Syntax as G
|
|
|
|
|
|
|
|
import Control.Monad.Validate
|
|
|
|
import Data.Text.Extended
|
|
|
|
|
|
|
|
import qualified Hasura.GraphQL.Parser as GraphQL
|
|
|
|
import qualified Hasura.RQL.Types.Column as RQL
|
|
|
|
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
import Hasura.Backends.MSSQL.FromIr
|
|
|
|
import Hasura.Backends.MSSQL.Types
|
2021-05-11 18:18:31 +03:00
|
|
|
import Hasura.Base.Error
|
2021-06-11 06:26:50 +03:00
|
|
|
import Hasura.RQL.IR
|
2021-02-23 20:37:27 +03:00
|
|
|
import Hasura.SQL.Backend
|
|
|
|
import Hasura.Session
|
|
|
|
|
|
|
|
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Top-level planner
|
2021-02-23 20:37:27 +03:00
|
|
|
|
2021-05-21 14:37:34 +03:00
|
|
|
planQuery
|
2021-02-23 20:37:27 +03:00
|
|
|
:: MonadError QErr m
|
2021-05-21 14:37:34 +03:00
|
|
|
=> SessionVariables
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
-> QueryDB 'MSSQL (Const Void) (GraphQL.UnpreparedValue 'MSSQL)
|
2021-06-01 13:04:29 +03:00
|
|
|
-> m Select
|
2021-05-21 14:37:34 +03:00
|
|
|
planQuery sessionVariables queryDB = do
|
2021-06-01 13:04:29 +03:00
|
|
|
rootField <- traverseQueryDB (prepareValueQuery sessionVariables) queryDB
|
2021-06-08 06:50:24 +03:00
|
|
|
sel <-
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
runValidate (runFromIr (fromRootField rootField))
|
2021-02-23 20:37:27 +03:00
|
|
|
`onLeft` (throw400 NotSupported . tshow)
|
2021-06-01 13:04:29 +03:00
|
|
|
pure $
|
2021-06-08 06:50:24 +03:00
|
|
|
sel
|
2021-02-23 20:37:27 +03:00
|
|
|
{ selectFor =
|
2021-06-08 06:50:24 +03:00
|
|
|
case selectFor sel of
|
2021-02-23 20:37:27 +03:00
|
|
|
NoFor -> NoFor
|
2021-04-28 14:05:33 +03:00
|
|
|
JsonFor forJson ->
|
|
|
|
JsonFor forJson {jsonRoot =
|
|
|
|
case jsonRoot forJson of
|
|
|
|
NoRoot -> Root "root"
|
|
|
|
-- Keep whatever's there if already
|
|
|
|
-- specified. In the case of an
|
|
|
|
-- aggregate query, the root will
|
|
|
|
-- be specified "aggregate", for
|
|
|
|
-- example.
|
|
|
|
keep -> keep
|
|
|
|
}
|
2021-02-23 20:37:27 +03:00
|
|
|
}
|
|
|
|
|
2021-06-01 13:04:29 +03:00
|
|
|
-- | Prepare a value without any query planning; we just execute the
|
|
|
|
-- query with the values embedded.
|
|
|
|
prepareValueQuery
|
|
|
|
:: MonadError QErr m
|
|
|
|
=> SessionVariables
|
|
|
|
-> GraphQL.UnpreparedValue 'MSSQL
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
-> m Expression
|
2021-06-01 13:04:29 +03:00
|
|
|
prepareValueQuery sessionVariables =
|
|
|
|
{- History note:
|
|
|
|
This function used to be called 'planNoPlan', and was used for building sql
|
|
|
|
expressions for queries. That evolved differently, but this function is now
|
|
|
|
left as a *suggestion* for implementing support for mutations.
|
|
|
|
-}
|
|
|
|
\case
|
|
|
|
GraphQL.UVLiteral x -> pure x
|
|
|
|
GraphQL.UVSession -> pure $ ValueExpression $ ODBC.ByteStringValue $ toStrict $ J.encode sessionVariables
|
|
|
|
GraphQL.UVParameter _ RQL.ColumnValue{..} -> pure $ ValueExpression cvValue
|
|
|
|
GraphQL.UVSessionVar _typ sessionVariable -> do
|
|
|
|
value <- getSessionVariableValue sessionVariable sessionVariables
|
|
|
|
`onNothing` throw400 NotFound ("missing session variable: " <>> sessionVariable)
|
|
|
|
pure $ ValueExpression $ ODBC.TextValue value
|
|
|
|
|
2021-05-21 14:37:34 +03:00
|
|
|
planSubscription
|
2021-04-20 19:57:14 +03:00
|
|
|
:: MonadError QErr m
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
=> OMap.InsOrdHashMap G.Name (QueryDB 'MSSQL (Const Void) (GraphQL.UnpreparedValue 'MSSQL))
|
2021-04-20 19:57:14 +03:00
|
|
|
-> SessionVariables
|
|
|
|
-> m (Reselect, PrepareState)
|
2021-05-21 14:37:34 +03:00
|
|
|
planSubscription unpreparedMap sessionVariables = do
|
2021-04-20 19:57:14 +03:00
|
|
|
let (rootFieldMap, prepareState) =
|
|
|
|
runState
|
|
|
|
(traverse
|
2021-05-21 14:37:34 +03:00
|
|
|
(traverseQueryDB (prepareValueSubscription (getSessionVariablesSet sessionVariables)))
|
2021-04-20 19:57:14 +03:00
|
|
|
unpreparedMap)
|
|
|
|
emptyPrepareState
|
|
|
|
selectMap <-
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
runValidate (runFromIr (traverse fromRootField rootFieldMap))
|
2021-04-20 19:57:14 +03:00
|
|
|
`onLeft` (throw400 NotSupported . tshow)
|
|
|
|
pure (collapseMap selectMap, prepareState)
|
2021-02-23 20:37:27 +03:00
|
|
|
|
|
|
|
-- Plan a query without prepare/exec.
|
|
|
|
-- planNoPlanMap ::
|
|
|
|
-- OMap.InsOrdHashMap G.Name (SubscriptionRootFieldMSSQL (GraphQL.UnpreparedValue 'MSSQL))
|
|
|
|
-- -> Either PrepareError Reselect
|
|
|
|
-- planNoPlanMap _unpreparedMap =
|
|
|
|
-- let rootFieldMap = runIdentity $
|
|
|
|
-- traverse (traverseQueryRootField (pure . prepareValueNoPlan)) unpreparedMap
|
|
|
|
-- selectMap <-
|
|
|
|
-- first
|
|
|
|
-- FromIrError
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
-- (runValidate (runFromIr (traverse fromRootField rootFieldMap)))
|
2021-02-23 20:37:27 +03:00
|
|
|
-- pure (collapseMap selectMap)
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Converting a root field into a T-SQL select statement
|
|
|
|
|
|
|
|
-- | Collapse a set of selects into a single select that projects
|
|
|
|
-- these as subselects.
|
|
|
|
collapseMap :: OMap.InsOrdHashMap G.Name Select
|
|
|
|
-> Reselect
|
|
|
|
collapseMap selects =
|
|
|
|
Reselect
|
|
|
|
{ reselectFor =
|
|
|
|
JsonFor ForJson {jsonCardinality = JsonSingleton, jsonRoot = NoRoot}
|
|
|
|
, reselectWhere = Where mempty
|
|
|
|
, reselectProjections =
|
|
|
|
map projectSelect (OMap.toList selects)
|
|
|
|
}
|
|
|
|
where
|
|
|
|
projectSelect :: (G.Name, Select) -> Projection
|
2021-06-08 06:50:24 +03:00
|
|
|
projectSelect (name, sel) =
|
2021-02-23 20:37:27 +03:00
|
|
|
ExpressionProjection
|
|
|
|
(Aliased
|
2021-06-08 06:50:24 +03:00
|
|
|
{ aliasedThing = SelectExpression sel
|
2021-02-23 20:37:27 +03:00
|
|
|
, aliasedAlias = G.unName name
|
|
|
|
})
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Session variables
|
|
|
|
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
globalSessionExpression :: Expression
|
2021-02-23 20:37:27 +03:00
|
|
|
globalSessionExpression =
|
|
|
|
ValueExpression (ODBC.TextValue "current_setting('hasura.user')::json")
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Resolving values
|
|
|
|
|
|
|
|
data PrepareError
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
= FromIrError (NonEmpty Error)
|
2021-02-23 20:37:27 +03:00
|
|
|
|
|
|
|
data PrepareState = PrepareState
|
2021-04-20 19:57:14 +03:00
|
|
|
{ positionalArguments :: ![RQL.ColumnValue 'MSSQL]
|
2021-02-23 20:37:27 +03:00
|
|
|
, namedArguments :: !(HashMap G.Name (RQL.ColumnValue 'MSSQL))
|
|
|
|
, sessionVariables :: !(Set.HashSet SessionVariable)
|
|
|
|
}
|
|
|
|
|
|
|
|
emptyPrepareState :: PrepareState
|
2021-04-20 19:57:14 +03:00
|
|
|
emptyPrepareState = PrepareState
|
|
|
|
{ positionalArguments = mempty
|
|
|
|
, namedArguments = mempty
|
|
|
|
, sessionVariables = mempty
|
|
|
|
}
|
2021-02-23 20:37:27 +03:00
|
|
|
|
2021-05-21 14:37:34 +03:00
|
|
|
|
2021-02-23 20:37:27 +03:00
|
|
|
-- | Prepare a value for multiplexed queries.
|
2021-05-21 14:37:34 +03:00
|
|
|
prepareValueSubscription
|
2021-04-20 19:57:14 +03:00
|
|
|
:: Set.HashSet SessionVariable
|
|
|
|
-> GraphQL.UnpreparedValue 'MSSQL
|
server: IR for DB-DB joins
### Description
This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.
To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.
Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.
The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions
https://github.com/hasura/graphql-engine-mono/pull/1580
Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-18 02:12:11 +03:00
|
|
|
-> State PrepareState Expression
|
2021-05-21 14:37:34 +03:00
|
|
|
prepareValueSubscription globalVariables =
|
2021-02-23 20:37:27 +03:00
|
|
|
\case
|
|
|
|
GraphQL.UVLiteral x -> pure x
|
2021-05-21 14:37:34 +03:00
|
|
|
|
2021-04-20 19:57:14 +03:00
|
|
|
GraphQL.UVSession -> do
|
|
|
|
modify' (\s -> s {sessionVariables = sessionVariables s <> globalVariables})
|
2021-05-21 14:37:34 +03:00
|
|
|
pure $ resultVarExp (RootPath `FieldPath` "session")
|
|
|
|
|
2021-02-23 20:37:27 +03:00
|
|
|
GraphQL.UVSessionVar _typ text -> do
|
|
|
|
modify' (\s -> s {sessionVariables = text `Set.insert` sessionVariables s})
|
2021-05-21 14:37:34 +03:00
|
|
|
pure $ resultVarExp (sessionDot $ toTxt text)
|
|
|
|
|
2021-04-20 19:57:14 +03:00
|
|
|
GraphQL.UVParameter mVariableInfo columnValue ->
|
2021-02-23 20:37:27 +03:00
|
|
|
case fmap GraphQL.getName mVariableInfo of
|
|
|
|
Nothing -> do
|
2021-05-10 13:17:54 +03:00
|
|
|
currentIndex <- (toInteger . length) <$> gets positionalArguments
|
2021-04-20 19:57:14 +03:00
|
|
|
modify' (\s -> s {
|
|
|
|
positionalArguments = positionalArguments s <> [columnValue] })
|
2021-05-21 14:37:34 +03:00
|
|
|
pure (resultVarExp (syntheticIx currentIndex))
|
2021-02-23 20:37:27 +03:00
|
|
|
Just name -> do
|
|
|
|
modify
|
|
|
|
(\s ->
|
|
|
|
s
|
|
|
|
{ namedArguments =
|
2021-04-20 19:57:14 +03:00
|
|
|
HM.insert name columnValue (namedArguments s)
|
2021-02-23 20:37:27 +03:00
|
|
|
})
|
2021-05-21 14:37:34 +03:00
|
|
|
pure $ resultVarExp (queryDot $ G.unName name)
|
|
|
|
|
|
|
|
where
|
|
|
|
resultVarExp :: JsonPath -> Expression
|
|
|
|
resultVarExp =
|
|
|
|
JsonValueExpression $
|
|
|
|
ColumnExpression $
|
|
|
|
FieldName
|
|
|
|
{ fieldNameEntity = rowAlias
|
|
|
|
, fieldName = resultVarsAlias
|
|
|
|
}
|
|
|
|
|
|
|
|
queryDot :: Text -> JsonPath
|
|
|
|
queryDot name = RootPath `FieldPath` "query" `FieldPath` name
|
|
|
|
|
|
|
|
syntheticIx :: Integer -> JsonPath
|
|
|
|
syntheticIx i = (RootPath `FieldPath` "synthetic" `IndexPath` i)
|
|
|
|
|
|
|
|
sessionDot :: Text -> JsonPath
|
|
|
|
sessionDot name = RootPath `FieldPath` "session" `FieldPath` name
|
2021-02-23 20:37:27 +03:00
|
|
|
|
|
|
|
|
|
|
|
resultIdAlias :: T.Text
|
|
|
|
resultIdAlias = "result_id"
|
|
|
|
|
|
|
|
resultVarsAlias :: T.Text
|
|
|
|
resultVarsAlias = "result_vars"
|
|
|
|
|
|
|
|
resultAlias :: T.Text
|
|
|
|
resultAlias = "result"
|
|
|
|
|
|
|
|
rowAlias :: T.Text
|
|
|
|
rowAlias = "row"
|