From 2d6910cd753d25be4a5f99017aaee2d968caf53a Mon Sep 17 00:00:00 2001 From: Kei Hibino Date: Mon, 27 Mar 2017 00:47:14 +0900 Subject: [PATCH] relational-query: apply deprecation of ColumnSQL. --- .../src/Database/Relational/Query/Monad/Aggregate.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/relational-query/src/Database/Relational/Query/Monad/Aggregate.hs b/relational-query/src/Database/Relational/Query/Monad/Aggregate.hs index 778f5476..751bad06 100644 --- a/relational-query/src/Database/Relational/Query/Monad/Aggregate.hs +++ b/relational-query/src/Database/Relational/Query/Monad/Aggregate.hs @@ -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