Commit 50a9eb26 authored by Karen Konou's avatar Karen Konou

[GQL] Add image field ot user info

parent 4a095f89
Pipeline #3157 passed with stage
in 91 minutes and 21 seconds
......@@ -67,6 +67,7 @@ data UserInfo = UserInfo
, ui_cwTouchPhone :: Maybe Text
, ui_cwTouchMail :: Maybe Text -- TODO: Remove. userLight_email should be used instead
, ui_cwDescription :: Maybe Text
, ui_cwImagePath :: Maybe Text
}
deriving (Generic, GQLType, Show)
......@@ -185,7 +186,8 @@ toUser (UserLight { .. }, u_hyperdata) =
--, ui_cwTouchMail = u_hyperdata ^. ui_cwTouchMailL
, ui_cwTouchMail = Just userLight_email
, ui_cwTouchPhone = u_hyperdata ^. ui_cwTouchPhoneL
, ui_cwDescription = u_hyperdata ^. ui_cwDescriptionL }
, ui_cwDescription = u_hyperdata ^. ui_cwDescriptionL
, ui_cwImagePath = u_hyperdata ^. ui_cwImagePathL }
sharedL :: Traversal' HyperdataUser HyperdataContact
sharedL = hu_shared . _Just
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment