haskell - 如何在我的 Haskel Yesod 项目中添加更新

Question

伙计们，我需要在我的 Haskell 项目中添加更新的建议。我正在使用Yesod。

那是我的代码的一部分，我列出了所有的动物，并为每一个动物提供了一个删除动物的按钮。我怎样才能像这样进行更新？

谢谢。

getListarAnimalR :: Handler Html
getListarAnimalR = do
             listaAnm <- runDB $ selectList [] [Asc AnimalsNome]
             defaultLayout $ [whamlet|
                 <h1> Animais cadastrados:
                 $forall Entity pid animals <- listaAnm
                     <a href=@{ChecarAnimalR pid}> #{animalsNome animals} 
                     <form method=post action=@{ChecarAnimalR pid}> 
                         <input type="submit" value="Deletar Animal"><br>
             |] >> toWidget [lucius|
                form  { display:inline; }
                input { background-color: #ecc; border:0;}
             |]


    postChecarAnimalR :: AnimalsId -> Handler Html
    postChecarAnimalR pid = do
         runDB $ delete pid
         redirect ListarAnimalR

formAnimal :: Form Animals
formAnimal = renderDivs $ Animals <$>
           areq textField "Nome: " Nothing <*>
           areq intField "Idade: " Nothing <*>
           areq (selectField racas) "Raca" Nothing