cosmo0920/Ahblog — pull request #5 by cosmo0920 (2013-07-23 16:59:03+00:00)
Title: 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に入れる、
という事が必要だったようだ。