guys, need suggestions add update @ haskell project. i'm using yesod.
that's part of code list animals , each one, button delete animal. how can make update, way ?
thanks.
getlistaranimalr :: handler html getlistaranimalr = 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 = rundb $ delete pid redirect listaranimalr formanimal :: form animals formanimal = renderdivs $ animals <$> areq textfield "nome: " nothing <*> areq intfield "idade: " nothing <*> areq (selectfield racas) "raca" nothing
