on dev help sign in
fix renderOver
1724322Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+2−1
@@ -451,8 +451,9 @@ instance RenderSQL (Selection commons schemas params grp from row) where
451 renderOver
451 renderOver
452 :: Aliased (WindowFunction commons schemas params grp from) field
452 :: Aliased (WindowFunction commons schemas params grp from) field
453 -> ByteString
453 -> ByteString
454− renderOver winFn = renderAliased renderSQL winFn
454+ renderOver (winFn `As` col) = renderSQL winFn
455 <+> "OVER" <+> parenthesized (renderSQL winDef)
455 <+> "OVER" <+> parenthesized (renderSQL winDef)
456+ <+> "AS" <+> renderSQL col
456 in
457 in
457 renderCommaSeparated renderOver winFns
458 renderCommaSeparated renderOver winFns
458
459