khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-02 08:12:49 +03:00
Code Issues Projects Releases Wiki Activity

relational-query: apply deprecation of ColumnSQL.

Browse Source
This commit is contained in:
Kei Hibino 2017-03-26 17:08:21 +09:00
parent db938770e8
commit 259dd5213e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,7 +36,7 @@ import Data.Traversable (Traversable)
import Database.Relational.Query.Internal.Config (Config)
import Database.Relational.Query.Internal.ContextType (Flat, Aggregated)
import Database.Relational.Query.Internal.SQL (ColumnSQL)
import Database.Relational.Query.Internal.SQL (StringSQL)
import Database.Relational.Query.Internal.BaseSQL (Duplication (..), OrderingTerm)
import Database.Relational.Query.Internal.GroupingSQL (AggregateElem)
import Database.Relational.Query.Internal.UntypedTable (Untyped)
@ -119,7 +119,7 @@ type JoinProduct = Maybe QueryProductTree
-- | Projection structure unit with single column width
data ProjectionUnit
= RawColumn ColumnSQL -- ^ used in immediate value or unsafe operations
= RawColumn StringSQL -- ^ 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
@ -145,7 +145,7 @@ projectionWidth :: Projection c r -> Int
projectionWidth = length . untypeProjection
-- | Unsafely generate 'Projection' from SQL string list.
projectFromColumns :: [ColumnSQL] -- ^ SQL string list specifies columns
projectFromColumns :: [StringSQL] -- ^ SQL string list specifies columns
-> Projection c r -- ^ Result 'Projection'
projectFromColumns = typedProjection . map RawColumn