on dev help sign in
stack upgrade
03dd8d2Eitan Chatav
circle.yml+2
@@ -3,6 +3,8 @@ dependencies:
3 - "~/.stack"
3 - "~/.stack"
4 - ".stack-work"
4 - ".stack-work"
5 override:
5 override:
6+ - stack upgrade
7+ - stack update
6 - stack setup
8 - stack setup
7 - stack test --no-run-tests
9 - stack test --no-run-tests
8test:
10test:
squeal-postgresql/src/Squeal/PostgreSQL/Statement.hs+2−2
@@ -77,7 +77,7 @@ instance (HasColumn column columns ty, tables ~ '[table ::: columns])
77
77
78instance (HasTable table tables columns, HasColumn column columns ty)
78instance (HasTable table tables columns, HasColumn column columns ty)
79 => IsTableColumn table column (Expression params tables 'Ungrouped ty) where
79 => IsTableColumn table column (Expression params tables 'Ungrouped ty) where
80− table &. column = UnsafeExpression $
80+ table ! column = UnsafeExpression $
81 renderAlias table <> "." <> renderAlias column
81 renderAlias table <> "." <> renderAlias column
82
82
83def :: Expression params '[] grouping ('Optional (nullity ty))
83def :: Expression params '[] grouping ('Optional (nullity ty))
@@ -468,7 +468,7 @@ instance
468 , HasColumn column columns ty
468 , HasColumn column columns ty
469 , GroupedBy table column bys
469 , GroupedBy table column bys
470 ) => IsTableColumn table column
470 ) => IsTableColumn table column
471− (Expression params tables ('Grouped bys) ty) where (&.) = getGroup2
471+ (Expression params tables ('Grouped bys) ty) where (!) = getGroup2
472
472
473unsafeAggregate
473unsafeAggregate
474 :: ByteString
474 :: ByteString