diff --git a/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs b/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs index fd62463..4c09eed 100644 --- a/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs +++ b/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs @@ -19,6 +19,7 @@ import Datarekisteri.Frontend.Types import Datarekisteri.Frontend.FormFields import Data.Morpheus.Client import Datarekisteri.Core.Types +import Data.Maybe (fromJust) import Yesod hiding (emailField) import Yesod.Auth @@ -33,6 +34,7 @@ query ProfilePage($id: UserID) { homeplace birthdate phoneNumber + isMember } permissions } @@ -92,14 +94,18 @@ profileForm userID user extraHtml = do |] return (profileUpdateRes, widget) -profile :: UserID -> (Widget, Enctype) -> (Widget, Enctype) -> Widget +profile :: ProfilePageUser -> (Widget, Enctype) -> (Widget, Enctype) -> Widget profile user (profileWidget, profileEnctype) (passwordWidget, passwordEnctype) = do setTitle "Muokkaa profiilia" - passwordRoute <- handlerToWidget $ maybeAuthorized (UpdatePasswordR user) True + let userID = let ProfilePageUser {..} = user in id + passwordRoute <- handlerToWidget $ maybeAuthorized (UpdatePasswordR userID) True [whamlet|