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
119
Issues
119
List
Board
Labels
Milestones
Merge Requests
7
Merge Requests
7
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
21f6d0f9
Commit
21f6d0f9
authored
Jun 21, 2023
by
Karen Konou
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[Tree search] Search in shared folders
parent
334d2b2d
Pipeline
#4253
passed with stages
in 113 minutes and 35 seconds
Changes
1
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
Tree.hs
src/Gargantext/Database/Query/Tree.hs
+2
-2
No files found.
src/Gargantext/Database/Query/Tree.hs
View file @
21f6d0f9
...
...
@@ -153,8 +153,8 @@ tree_flat :: (HasTreeError err, HasNodeError err)
->
Cmd
err
[
NodeTree
]
tree_flat
r
nodeTypes
q
=
do
mainRoot
<-
findNodes
r
Private
nodeTypes
publicRoots
<-
findNodes
r
Public
Direct
nodeTypes
sharedRoots
<-
findNodes
r
Shared
Direct
nodeTypes
publicRoots
<-
findNodes
r
Public
nodeTypes
sharedRoots
<-
findNodes
r
Shared
nodeTypes
let
ret
=
map
toNodeTree
(
mainRoot
<>
sharedRoots
<>
publicRoots
)
case
q
of
Just
v
->
pure
$
filter
(
\
(
NodeTree
{
_nt_name
})
->
Text
.
isInfixOf
(
Text
.
toLower
v
)
(
Text
.
toLower
_nt_name
))
ret
...
...
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