Как обработать параметризованную форму Yesod из обработчика, где параметр недоступен?

Question

У меня есть следующий вид:.

userForm :: UserId -> Form UserDemographics 
userForm uid = renderDivs $ UserDemographics <$> 
    pure uid <*> 
    areq yearField "Year of birth" Nothing <*> 
    areq textField "Gender" Nothing <*> 
    areq countryField "Country of residence" Nothing <*> 
    areq boolField "Are you a computer programmer?" Nothing 

На моей странице, я использую generateFormPost $ userForm (entityKey userEnt) сделать форму с UserId залитого Но я хочу, чтобы обрабатывать входной сигнал с помощью AJAX, поэтому отдельное Handler получает результаты форма. Другой обработчик не имеет доступа к UserId. Как обрабатывать форму? Я попробовал это, который выдает ошибку:

postDemoFormR :: Handler RepJson 
postDemoFormR = do 
    ((formData, _), _) <- runFormPost $ userForm undefined 
    $(logDebug) $ pack $ show formData 
    return $ repJson() 

Я мог бы изменить тип userForm «s принять Maybe UserId вместо просто UserId или сделать поддельную UserId для вызова runFormPost но оба тех писаки. Есть ли простой, чистый способ сделать это?

Answer 1

Вы можете использовать hiddenField, но это почти наверняка не то, что вы действительно хотите (любой пользователь сможет подменить UserId, просто подав другое значение). Предполагая, что вы пытаетесь сделать, на самом деле говорите «кто является текущим пользователем», вам нужно каким-то образом безопасно определить это в вашем обработчике AJAX (например, requireAuthId).