Steve ChavezandGitHub
0fbb116dd2
* refactor: move ApiRequest a top-level module * refactor: rename DbStructure to SchemaCache * refactor: GucHeader inside Response * refactor: admin app to Workers
46 lines
1.4 KiB
Haskell
46 lines
1.4 KiB
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
module PostgREST.Plan.ReadPlan
|
|
( ReadPlanTree
|
|
, ReadPlan(..)
|
|
, fstFieldNames
|
|
) where
|
|
|
|
import Data.Tree (Tree (..))
|
|
|
|
import PostgREST.ApiRequest.Types (Alias, Depth, Hint,
|
|
JoinCondition, JoinType,
|
|
LogicTree, NodeName,
|
|
OrderTerm, SelectItem)
|
|
import PostgREST.RangeQuery (NonnegRange)
|
|
import PostgREST.SchemaCache.Identifiers (FieldName,
|
|
QualifiedIdentifier)
|
|
import PostgREST.SchemaCache.Relationship (Relationship)
|
|
|
|
|
|
import Protolude
|
|
|
|
type ReadPlanTree = Tree ReadPlan
|
|
|
|
data ReadPlan = ReadPlan
|
|
{ select :: [SelectItem]
|
|
, from :: QualifiedIdentifier
|
|
, fromAlias :: Maybe Alias
|
|
-- ^ A table alias is used in case of self joins
|
|
, where_ :: [LogicTree]
|
|
, joinConditions :: [JoinCondition]
|
|
, order :: [OrderTerm]
|
|
, range_ :: NonnegRange
|
|
, nodeName :: NodeName
|
|
, nodeRel :: Maybe Relationship
|
|
, nodeAlias :: Maybe Alias
|
|
, nodeHint :: Maybe Hint
|
|
, nodeJoinType :: Maybe JoinType
|
|
, nodeDepth :: Depth
|
|
}
|
|
deriving (Eq)
|
|
|
|
-- First level FieldNames(e.g get a,b from /table?select=a,b,other(c,d))
|
|
fstFieldNames :: ReadPlanTree -> [FieldName]
|
|
fstFieldNames (Node ReadPlan{select} _) =
|
|
fst . (\(f, _, _, _, _) -> f) <$> select
|