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
152
Issues
152
List
Board
Labels
Milestones
Merge Requests
9
Merge Requests
9
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
gargantext
haskell-gargantext
Commits
d9f74432
Commit
d9f74432
authored
Jun 02, 2022
by
Alexandre Delanoë
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[TOOL] Team Management: delete membershipe
parent
3fa76e98
Pipeline
#2893
failed with stage
in 44 minutes and 39 seconds
Changes
1
Pipelines
3
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
7 deletions
+4
-7
Share.hs
src/Gargantext/Database/Action/Share.hs
+4
-7
No files found.
src/Gargantext/Database/Action/Share.hs
View file @
d9f74432
...
...
@@ -47,11 +47,8 @@ data ShareNodeWith = ShareNodeWith_User { snwu_nodetype :: NodeType
,
snwn_node_id
::
NodeId
}
------------------------------------------------------------------------
todo
::
a
todo
=
undefined
deleteMemberShip
::
HasNodeError
err
=>
[
SharedFolderId
]
->
Cmd
err
Int
deleteMemberShip
=
todo
deleteMemberShip
::
HasNodeError
err
=>
[(
SharedFolderId
,
TeamNodeId
)]
->
Cmd
err
[
Int
]
deleteMemberShip
xs
=
mapM
(
\
(
s
,
t
)
->
deleteNodeNode
s
t
)
xs
------------------------------------------------------------------------
...
...
@@ -68,9 +65,9 @@ membersOf nId = runOpaQuery (membersOfQuery nId)
membersOfQuery
::
TeamNodeId
->
SelectArr
()
(
Column
(
Nullable
SqlText
),
Column
(
Nullable
SqlInt4
))
membersOfQuery
(
NodeId
sharedFolder
Id
)
=
proc
()
->
do
membersOfQuery
(
NodeId
team
Id
)
=
proc
()
->
do
(
nn
,
(
n
,
u
))
<-
nodeNode_node_User
-<
()
restrict
-<
nn
^.
nn_node2_id
.==
sqlInt4
sharedFolder
Id
restrict
-<
nn
^.
nn_node2_id
.==
sqlInt4
team
Id
returnA
-<
(
user_username
u
,
n
^.
node_id
)
...
...
delanoe
@anoe
mentioned in issue
purescript-gargantext#396 (closed)
·
Jun 02, 2022
mentioned in issue
purescript-gargantext#396 (closed)
mentioned in issue purescript-gargantext#396
Toggle commit list
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