postEditProfileR :: Handler RepHtml
postEditProfileR = do
    (Entity uid u)    <- requireAuth
    ((res, _   ), _ ) <- runFormPost $ profileForm u
    case res of
        FormSuccess ef -> saveProfile uid ef
        _              -> return ()

    getEditProfileR
postEditProfileR :: Handler RepHtml
postEditProfileR = do
    (Entity uid u)    <- requireAuth
    ((res, _   ), _ ) <- runFormPost $ profileForm u
    case res of
        FormSuccess ef -> saveProfile uid ef
        _              -> return ()

    getEditProfileR
postEditProfileR = do
    (Entity uid u)    <- requireAuth
    ((res, _   ), _ ) <- runFormPost $ profileForm u
    case res of
        FormSuccess ef -> saveProfile uid ef
        _              -> return ()

    getEditProfileR