我正在尝试在我创建的Unique字段上创建外键约束。这是模型的TemplateHaskell:
User json
user_id Text
name Text
UniqueUserId user_id
deriving Show Eq
UserPicture
user_id Text
picture ByteString
UniqueUserPicture user_id
-- Foreign User UserPictureUser_id UserUser_id
deriving Show Eq
我怎样才能使user_id
中的UserPicture
引用user_id
中的User
?这样我就可以级联User
的删除,甚至可以更容易地将所有图片都提供给用户。
更新:好的,所以有必要将字段定义为主键。在这种情况下像这样:
User json
user_id Text
name Text
UniqueUserId user_id
Primary user_id
deriving Show Eq
UserPicture
user_id Text
picture ByteString
UniqueUserPicture user_id
Foreign User fkUser user_id
deriving Show Eq