Skip to content

haskell-gargantext
haskell-gargantext
Commit 6666e537 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Merge remote-tracking branch 'origin/506-dev-tree-search-fix' into dev

parents 04d06fb0 21f6d0f9
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Database/Query/Tree.hs
View file @ 6666e537
...@@ -153,8 +153,8 @@ tree_flat :: (HasTreeError err, HasNodeError err) ...@@ -153,8 +153,8 @@ tree_flat :: (HasTreeError err, HasNodeError err)
-> Cmd err [NodeTree] -> Cmd err [NodeTree]
tree_flat r nodeTypes q = do tree_flat r nodeTypes q = do
mainRoot <- findNodes r Private nodeTypes mainRoot <- findNodes r Private nodeTypes
publicRoots <- findNodes r PublicDirect nodeTypes publicRoots <- findNodes r Public nodeTypes
sharedRoots <- findNodes r SharedDirect nodeTypes sharedRoots <- findNodes r Shared nodeTypes
let ret = map toNodeTree (mainRoot <> sharedRoots <> publicRoots) let ret = map toNodeTree (mainRoot <> sharedRoots <> publicRoots)
case q of case q of
Just v -> pure $ filter (\(NodeTree {_nt_name}) -> Text.isInfixOf (Text.toLower v) (Text.toLower _nt_name)) ret Just v -> pure $ filter (\(NodeTree {_nt_name}) -> Text.isInfixOf (Text.toLower v) (Text.toLower _nt_name)) ret
......
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