snippet.hs

formAv :: Form Avaliacao
formAv = renderDivs $ Avaliacao <$>
    areq intField "Nota" Nothing <*>
    pure kludge <*>
    areq (selectField lv) "Livro:" Nothing <*>
    areq textField "Avaliação: " Nothing

kludge = case us of
    Just (Entity pid user) -> pid
    Nothing -> redirect LoginR

us = do 
    xy  <- lookupSession "_ID"
    case xy of
       Just x -> runDB $ selectFirst [UsuarioNome ==. x] []
       Nothing -> redirect LoginR

lv = do
    entidades <- runDB $ selectList [] [Asc LivroNm_Livro]
    optionsPairs $ fmap(\ent -> (livroNm_Livro $ entityVal ent, entityKey ent)) entidades