khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-06 04:16:21 +03:00
Code Issues Projects Releases Wiki Activity

relational-query: formatted.

Browse Source
This commit is contained in:
Kei Hibino 2017-02-12 22:27:56 +09:00
parent 3e41647188
commit ce5354b9b6
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
relational-query/src/Database/Relational/Query/Internal/Sub.hs
View File

@ -62,16 +62,6 @@ data Qualified a =
Qualified Qualifier a
deriving (Show, Functor, Foldable, Traversable)
-- | Projection structure unit with single column width
data ProjectionUnit
= RawColumn ColumnSQL -- ^ used in immediate value or unsafe operations
| SubQueryRef (Qualified Int) -- ^ normalized sub-query reference T<n> with Int index
| Scalar SubQuery -- ^ scalar sub-query
deriving Show
-- | Untyped projection. Forgot record type.
type UntypedProjection = [ProjectionUnit]
-- | node attribute for product.
data NodeAttr = Just' | Maybe deriving Show
@ -102,6 +92,16 @@ type ProductBuilder = Node QueryRestrictionBuilder
type JoinProduct = Maybe QueryProductTree
-- | Projection structure unit with single column width
data ProjectionUnit
= RawColumn ColumnSQL -- ^ used in immediate value or unsafe operations
| SubQueryRef (Qualified Int) -- ^ normalized sub-query reference T<n> with Int index
| Scalar SubQuery -- ^ scalar sub-query
deriving Show
-- | Untyped projection. Forgot record type.
type UntypedProjection = [ProjectionUnit]
-- | Phantom typed projection. Projected into Haskell record type 't'.
newtype Projection c t =
Projection