Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Christian Merten
haskell-gargantext
Commits
50a9eb26
Commit
50a9eb26
authored
Sep 09, 2022
by
Karen Konou
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[GQL] Add image field ot user info
parent
4a095f89
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
UserInfo.hs
src/Gargantext/API/GraphQL/UserInfo.hs
+3
-1
No files found.
src/Gargantext/API/GraphQL/UserInfo.hs
View file @
50a9eb26
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment