6e6b96a · squeal · git.iko.soy

better type in test

commit6e6b96aec5104487a0fac5cf16399193dfc93d38 authorEitan Chatav <eitan.chatav@gmail.com> dateWed 5 Dec 2018, 09:43 (8 years ago) parente1e7e84

1 file changed+4−3

unifiedsplit

squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+4−3

@@ -243,12 +243,13 @@ type OrdersConstraints =

243243:}

244244

245245>>> type NamesColumns = '["id" ::: 'NoDef :=> 'NotNull 'PGint4, "name" ::: 'NoDef :=> 'NotNull 'PGtext]

246−>>> type NamesConstraints = '["pk_customers" ::: PrimaryKey '["id"]]

246+>>> type CustomersConstraints = '["pk_customers" ::: PrimaryKey '["id"]]

247+>>> type ShippersConstraints = '["pk_shippers" ::: PrimaryKey '["id"]]

247248>>> :{

248249type OrdersSchema =

249250 '[ "orders" ::: 'Table (OrdersConstraints :=> OrdersColumns)

250− , "customers" ::: 'Table (NamesConstraints :=> NamesColumns)

251− , "shippers" ::: 'Table (NamesConstraints :=> NamesColumns) ]

251+ , "customers" ::: 'Table (CustomersConstraints :=> NamesColumns)

252+ , "shippers" ::: 'Table (ShippersConstraints :=> NamesColumns) ]

252253:}

253254

254255>>> :{