@@ -24,12 +24,12 @@ import qualified GHC.Generics as GHC
2424
2525type Schema =
2626 '[ "users" :::
27− '[ "pk_id" ::: 'PrimaryKey '["id"] ] :=>
27+ '[ "pk_users" ::: 'PrimaryKey '["id"] ] :=>
2828 '[ "id" ::: 'Def :=> 'NotNull 'PGint4
2929 , "name" ::: 'NoDef :=> 'NotNull 'PGtext
3030 ]
3131 , "emails" :::
32− '[ "pk_id" ::: 'PrimaryKey '["id"]
32+ '[ "pk_emails" ::: 'PrimaryKey '["id"]
3333 , "fk_user_id" ::: 'ForeignKey '["user_id"] "users" '["id"]
3434 ] :=>
3535 '[ "id" ::: 'Def :=> 'NotNull 'PGint4
@@ -43,13 +43,13 @@ setup =
4343 createTable #users
4444 ( serial `As` #id :*
4545 (text & notNull) `As` #name :* Nil )
46− ( primaryKey (Column #id :* Nil) `As` #pk_id :* Nil )
46+ ( primaryKey (Column #id :* Nil) `As` #pk_users :* Nil )
4747 >>>
4848 createTable #emails
4949 ( serial `As` #id :*
5050 (int & notNull) `As` #user_id :*
5151 text `As` #email :* Nil )
52− ( primaryKey (Column #id :* Nil) `As` #pk_id :*
52+ ( primaryKey (Column #id :* Nil) `As` #pk_emails :*
5353 foreignKey (Column #user_id :* Nil) #users (Column #id :* Nil)
5454 OnDeleteCascade OnUpdateCascade `As` #fk_user_id :* Nil )
5555