getEditProfileR :: Handler RepHtml 
getEditProfileR = do
    (Entity _ u)         <- requireAuth
    ((_, form), enctype) <- runFormPost $ profileForm u

    defaultLayout $ do
        setTitle "Edit profile"
        $(widgetFile "profile/edit")
getEditProfileR :: Handler RepHtml
getEditProfileR = do
    (Entity _ u)         <- requireAuth
    ((_, form), enctype) <- runFormPost $ profileForm u

    defaultLayout $ do
        setTitle "Edit profile"
        $(widgetFile "profile/edit")
getEditProfileR = do
    (Entity _ u)         <- requireAuth
    ((_, form), enctype) <- runFormPost $ profileForm u

    defaultLayout $ do
        setTitle "Edit profile"
        $(widgetFile "profile/edit")