Commit d232ce36 authored by Alexandre Delanoë's avatar Alexandre Delanoë

Code Design

parent b7a25acc
Pipeline #3474 failed with stage
......@@ -591,8 +591,7 @@ searchQuery selection { databases
, lang
, term
, node_id
, years } =
over SearchQuery (_ { databases = databases
, years } = over SearchQuery (_ { databases = databases
, datafield = datafield
, lang = lang
, node_id = node_id
......@@ -604,14 +603,14 @@ searchQuery selection { databases
, lang
, term
, node_id
, years } =
over SearchQuery (_ { databases = databases
, years } = over SearchQuery (_ { databases = databases
, datafield = datafield
, lang = lang
, node_id = node_id
, query = queryHAL term (Just imtOrgs) lang years
, selection = selection
}) defaultSearchQuery
searchQuery selection { databases, datafield, lang, term, node_id } =
over SearchQuery (_ { databases = databases
, datafield = datafield
......
......@@ -280,7 +280,7 @@ defaultSearchQuery = SearchQuery
, node_id : Nothing
, offset : Nothing
, order : Nothing
, selection : ListSelection.MyListsFirst
, selection : ListSelection.NoList -- MyListsFirst
}
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