khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-07 13:46:41 +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-27 00:47:14 +09:00
parent b07fc709a6
commit 2d6910cd75
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
relational-query/src/Database/Relational/Query/Monad/Aggregate.hs
View File

@ -32,7 +32,6 @@ import Data.Monoid ((<>))
import Language.SQL.Keyword (Keyword(..))
import qualified Language.SQL.Keyword as SQL
import Database.Relational.Query.Internal.SQL (showsColumnSQL)
import Database.Relational.Query.Internal.BaseSQL (Duplication, OrderingTerm, composeOrderBy)
import Database.Relational.Query.Internal.GroupingSQL (AggregateColumnRef, AggregateElem, composePartitionBy)
@ -97,7 +96,7 @@ over :: SqlProjectable (Projection c)
-> Projection c a
wp `over` win =
Projection.unsafeFromSqlTerms
[ showsColumnSQL c <> OVER <> SQL.paren (composePartitionBy pt <> composeOrderBy ot)
[ c <> OVER <> SQL.paren (composePartitionBy pt <> composeOrderBy ot)
| c <- Projection.columns wp
] where (((), ot), pt) = extractWindow win