my first yesod sample. (JSON, relation)