Skip to content

P
purescript-gargantext
Commit d232ce36 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Code Design

parent b7a25acc
Show whitespace changes
Inline Side-by-side
Showing with 25 additions and 26 deletions
src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchField.purs
View file @ d232ce36
...@@ -591,8 +591,7 @@ searchQuery selection { databases ...@@ -591,8 +591,7 @@ searchQuery selection { databases
, lang , lang
, term , term
, node_id , node_id
, years } = , years } = over SearchQuery (_ { databases = databases
over SearchQuery (_ { databases = databases
, datafield = datafield , datafield = datafield
, lang = lang , lang = lang
, node_id = node_id , node_id = node_id
...@@ -604,14 +603,14 @@ searchQuery selection { databases ...@@ -604,14 +603,14 @@ searchQuery selection { databases
, lang , lang
, term , term
, node_id , node_id
, years } = , years } = over SearchQuery (_ { databases = databases
over SearchQuery (_ { databases = databases
, datafield = datafield , datafield = datafield
, lang = lang , lang = lang
, node_id = node_id , node_id = node_id
, query = queryHAL term (Just imtOrgs) lang years , query = queryHAL term (Just imtOrgs) lang years
, selection = selection , selection = selection
}) defaultSearchQuery }) defaultSearchQuery
searchQuery selection { databases, datafield, lang, term, node_id } = searchQuery selection { databases, datafield, lang, term, node_id } =
over SearchQuery (_ { databases = databases over SearchQuery (_ { databases = databases
, datafield = datafield , datafield = datafield
......
src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs
View file @ d232ce36
...@@ -280,7 +280,7 @@ defaultSearchQuery = SearchQuery ...@@ -280,7 +280,7 @@ defaultSearchQuery = SearchQuery
, node_id : Nothing , node_id : Nothing
, offset : Nothing , offset : Nothing
, order : Nothing , order : Nothing
, selection : ListSelection.MyListsFirst , selection : ListSelection.NoList -- MyListsFirst
} }
performSearch :: Session -> Int -> SearchQuery -> AffRESTError GT.AsyncTaskWithType performSearch :: Session -> Int -> SearchQuery -> AffRESTError GT.AsyncTaskWithType
......
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