graphql-engine/server/src-lib/Hasura/Backends/Postgres/Instances/LogicalModels.hs
Gil Mizrahi b761add3c4 rename naqi to logimo part 1
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/8037
GitOrigin-RevId: 4839410ba836d4b69fd1ee30875bca9b46decc66
2023-02-21 13:46:44 +00:00

54 lines
1.6 KiB
Haskell

-- | Validate logical models against postgres-like flavors.
module Hasura.Backends.Postgres.Instances.LogicalModels
( validateLogicalModel,
)
where
import Data.Aeson (toJSON)
import Data.Environment qualified as Env
import Data.Text.Extended (toTxt)
import Database.PG.Query qualified as PG
import Hasura.Backends.Postgres.Connection qualified as PG
import Hasura.Backends.Postgres.Connection.Connect (withPostgresDB)
import Hasura.Base.Error
import Hasura.NativeQuery.Metadata
import Hasura.Prelude
import Hasura.SQL.Backend
-- | Prepare a logical model query against a postgres-like database to validate it.
validateLogicalModel ::
(MonadIO m, MonadError QErr m) =>
Env.Environment ->
PG.PostgresConnConfiguration ->
NativeQueryInfo ('Postgres pgKind) ->
m ()
validateLogicalModel env connConf model = do
let name = getLogicalModelName $ nqiRootFieldName model
let code :: Text
code = fold $ flip evalState (1 :: Int) do
for (getInterpolatedQuery $ nqiCode model) \case
IIText t -> pure t
IIVariable _v -> do
i <- get
modify (+ 1)
pure $ "$" <> tshow i
result <-
liftIO $
withPostgresDB env connConf $
PG.rawQE
( \e ->
(err400 ValidationFailed "Failed to validate query")
{ qeInternal = Just $ ExtraInternal $ toJSON e
}
)
(PG.fromText $ "PREPARE _logimo_vali_" <> toTxt name <> " AS " <> code)
[]
False
case result of
-- running the query failed
Left err ->
throwError err
-- running the query succeeded
Right () ->
pure ()