@@ -24,12 +24,12 @@ import qualified GHC.Generics as GHC
25type Schema =
25type Schema =
26 '[ "users" :::
26 '[ "users" :::
27− '[ "pk_id" ::: 'PrimaryKey '["id"] ] :=>
27+ '[ "pk_users" ::: 'PrimaryKey '["id"] ] :=>
28 '[ "id" ::: 'Def :=> 'NotNull 'PGint4
28 '[ "id" ::: 'Def :=> 'NotNull 'PGint4
29 , "name" ::: 'NoDef :=> 'NotNull 'PGtext
29 , "name" ::: 'NoDef :=> 'NotNull 'PGtext
31 , "emails" :::
31 , "emails" :::
32− '[ "pk_id" ::: 'PrimaryKey '["id"]
32+ '[ "pk_emails" ::: 'PrimaryKey '["id"]
33 , "fk_user_id" ::: 'ForeignKey '["user_id"] "users" '["id"]
33 , "fk_user_id" ::: 'ForeignKey '["user_id"] "users" '["id"]
35 '[ "id" ::: 'Def :=> 'NotNull 'PGint4
35 '[ "id" ::: 'Def :=> 'NotNull 'PGint4
@@ -43,13 +43,13 @@ setup =
43 createTable #users
43 createTable #users
44 ( serial `As` #id :*
44 ( serial `As` #id :*
45 (text & notNull) `As` #name :* Nil )
45 (text & notNull) `As` #name :* Nil )
46− ( primaryKey (Column #id :* Nil) `As` #pk_id :* Nil )
46+ ( primaryKey (Column #id :* Nil) `As` #pk_users :* Nil )
48 createTable #emails
48 createTable #emails
49 ( serial `As` #id :*
49 ( serial `As` #id :*
50 (int & notNull) `As` #user_id :*
50 (int & notNull) `As` #user_id :*
51 text `As` #email :* Nil )
51 text `As` #email :* Nil )
52− ( primaryKey (Column #id :* Nil) `As` #pk_id :*
52+ ( primaryKey (Column #id :* Nil) `As` #pk_emails :*
53 foreignKey (Column #user_id :* Nil) #users (Column #id :* Nil)
53 foreignKey (Column #user_id :* Nil) #users (Column #id :* Nil)
54 OnDeleteCascade OnUpdateCascade `As` #fk_user_id :* Nil )
54 OnDeleteCascade OnUpdateCascade `As` #fk_user_id :* Nil )