add persist test when has relation

User
    email Text
    UniqueUser email
    screenName Text
    deriving Show

Article
    author UserId Eq
    title   Text
    content Markdown
    slug Text
    createdAt  UTCTime default=CURRENT_TIMESTAMP
    UniqueSlug slug
    deriving Show

のようなモデルがあった時に、UserIdはDatabase.Persist.insert関数を実行した際に返ってくる型が必要。なので戦略的にはこの場合は：

Userを生成、userId <- insert $ ...
このuserIdをarticleAuthorに入れる、
という事が必要だったようだ。