userUpdatePage :: Monad m => User -> m Html
userUpdatePage u = do
    v <- getForm "user" $ userUpdateForm $ Just u
    let v' = H.toHtml <$> v
    return $ userContainer $ formWrapper (userUpdateView v') userUpdateLink
userUpdatePage :: Monad m => User -> m Html
userUpdatePage u = do
    v <- getForm "user" $ userUpdateForm $ Just u
    let v' = H.toHtml <$> v
    return $ userContainer $ formWrapper (userUpdateView v') userUpdateLink
userUpdatePage u = do
    v <- getForm "user" $ userUpdateForm $ Just u
    let v' = H.toHtml <$> v
    return $ userContainer $ formWrapper (userUpdateView v') userUpdateLink