html - Haskell Yesod フォームを使用してデータベースにデータを投稿する

Question

Yesod のデータベース (sqlite) に新しいデータを追加する方法を知りたいです。私はこれまでにモデルを持っています:

Payment
   timestamp UTCTime
   from UserId
   to UserId
   amount Int

ユーザーがログインすると、自分のスペースに移動して新しいフォームに入力し、postPaymentsR に送信できます。

 getUserR :: UserId -> Handler Html
 getUserR userId = do
    user <- runDB $ get404 userId
    mauth <- maybeAuthId
    case mauth of
       Just _ -> defaultLayout $ do
        setTitle $ toHtml $ userIdent user
        [whamlet|
            <h1> #{userIdent user}
            <form method=post action=@{PaymentsR}>
                <p>Enter new payment:
                <input type=text name=payment>
                <p>From user:
                <input type=text name=user>
                <input type=submit value="Add">
        |]      
       Nothing -> defaultLayout $ do
        setTitle $ toHtml $ userIdent user
        [whamlet|
            <h1> #{userIdent user}
        |]

そして今、このデータを Payment に投稿する必要があります。runDB $ insert paymentTo UserIdent などを使用してみましたが、うまくいかないようです。何か案は？ありがとう