yesodで全てのモデルにcreatedAt, updatedAtを作りたかった話User email Text name Text createdAt UTCTime updatedAt UTCTime のように, それぞれのモデルに生成時間と更新時間を付けたい. 役に立つことがあるかもしれない 全てのモデルにつけることで一貫性を保ちたい 問題 単純にFormを userForm :: Form User userForm = renderBootstrap3 BootstrapBasicForm $ User <$> areq emailField "email" Nothing <*> areq textField "name" Nothing <*> lift (liftIO getCurrentTime) <*> lift (liftIO getCurrentTime) <* bootstrapSubmit ("submit" :: BootstrapSubm
