Skip to content

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

[FOREST][SEARCH] fix types for search with datafield.

parent 360cb569
Show whitespace changes
Inline Side-by-side
Showing with 107 additions and 138 deletions
src/Gargantext/Components/Forest/Tree/Node/Box.purs
View file @ 7aa76f18
...@@ -318,7 +318,7 @@ panelAction d {id,name,nodeType,action, session} p = case action of ...@@ -318,7 +318,7 @@ panelAction d {id,name,nodeType,action, session} p = case action of
(Just Download) -> R.fragment [ H.p {} [H.text $ "Soon, you will be able to dowload your file here"]] (Just Download) -> R.fragment [ H.p {} [H.text $ "Soon, you will be able to dowload your file here"]]
(Just SearchBox) -> R.fragment [ H.p {} [ H.text $ "Search and create a private corpus with the search query as corpus name." ] (Just SearchBox) -> R.fragment [ H.p {} [ H.text $ "Search and create a private corpus with the search query as corpus name." ]
, searchBar {session, databases:allDatabases, langs:allLangs, node_id: (Just id)} , searchBar {session, datafield:Nothing, langs:allLangs, node_id: (Just id)}
] ]
(Just Delete) -> case nodeType of (Just Delete) -> case nodeType of
NodeUser -> R.fragment [ H.div {} [H.text "Yes, we are RGPD compliant! But you can not delete User Node yet (we are still on development). Thanks for your comprehensin."]] NodeUser -> R.fragment [ H.div {} [H.text "Yes, we are RGPD compliant! But you can not delete User Node yet (we are still on development). Thanks for your comprehensin."]]
......
src/Gargantext/Components/Search/SearchBar.purs
View file @ 7aa76f18
...@@ -21,7 +21,7 @@ import Gargantext.Components.Search.SearchField (Search, searchField) ...@@ -21,7 +21,7 @@ import Gargantext.Components.Search.SearchField (Search, searchField)
import Gargantext.Sessions (Session) import Gargantext.Sessions (Session)
type Props = ( session :: Session type Props = ( session :: Session
, databases :: Array Database , datafield :: Maybe DataField
, langs :: Array Lang , langs :: Array Lang
, node_id :: Maybe Int , node_id :: Maybe Int
) )
...@@ -32,10 +32,10 @@ searchBar props = R.createElement searchBarCpt props [] ...@@ -32,10 +32,10 @@ searchBar props = R.createElement searchBarCpt props []
searchBarCpt :: R.Component Props searchBarCpt :: R.Component Props
searchBarCpt = R.hooksComponent "G.C.Node.SearchBar.searchBar" cpt searchBarCpt = R.hooksComponent "G.C.Node.SearchBar.searchBar" cpt
where where
cpt {session, databases, langs, node_id} _ = do cpt {session, datafield, langs, node_id} _ = do
search <- R.useState' Nothing search <- R.useState' Nothing
onSearchChange session search onSearchChange session search
pure $ H.div {} [ searchField {databases, langs, search, node_id}] pure $ H.div {} [ searchField {databases:allDatabases, langs, search, node_id}]
onSearchChange :: Session -> R.State (Maybe Search) -> R.Hooks Unit onSearchChange :: Session -> R.State (Maybe Search) -> R.Hooks Unit
...@@ -46,9 +46,8 @@ onSearchChange session (search /\ setSearch) = ...@@ -46,9 +46,8 @@ onSearchChange session (search /\ setSearch) =
launchAff_ $ do launchAff_ $ do
liftEffect $ do liftEffect $ do
log2 "Searching db: " $ show q.database -- log2 "Searching datafield: " $ show q.database
log2 "Searching term: " q.term log2 "Searching term: " q.term
log2 "Searching filters: " q.filters
log2 "Searching lang: " q.lang log2 "Searching lang: " q.lang
r <- (performSearch session $ searchQuery q) :: Aff Unit r <- (performSearch session $ searchQuery q) :: Aff Unit
...@@ -57,19 +56,13 @@ onSearchChange session (search /\ setSearch) = ...@@ -57,19 +56,13 @@ onSearchChange session (search /\ setSearch) =
log2 "Return:" r log2 "Return:" r
modalShow "addCorpus" modalShow "addCorpus"
searchQuery {database: Nothing, lang, term} = searchQuery {datafield: Nothing, lang, term} =
over SearchQuery (_ {query=term}) defaultSearchQuery over SearchQuery (_ {query=term}) defaultSearchQuery
searchQuery {database: Just db, lang, term, filters, node_id} = searchQuery {datafield: datafield, lang, term, node_id} =
over SearchQuery (_ { databases=[db] over SearchQuery (_ { datafield=datafield
, lang=lang , lang=lang
, query=term , query=term
, filters=filters'
, node_id=node_id , node_id=node_id
} }
) defaultSearchQuery ) defaultSearchQuery
where
filters' = toInt filters
toInt (Just (HAL_StructId {structIds})) = Set.toUnfoldable structIds
toInt (Just (HAL_IMT {imtOrgs, structIds})) = nub $ (concat $ map imtStructId $ Set.toUnfoldable imtOrgs) <> (Set.toUnfoldable structIds)
toInt _ = []
src/Gargantext/Components/Search/SearchField.purs
View file @ 7aa76f18
...@@ -21,21 +21,15 @@ select :: forall props. ...@@ -21,21 +21,15 @@ select :: forall props.
select = R.createElement "select" select = R.createElement "select"
type Search = { datafield :: Maybe DataField type Search = { datafield :: Maybe DataField
, database :: Maybe Database
, term :: String , term :: String
, lang :: Maybe Lang , lang :: Maybe Lang
, org :: Maybe Org
, filters :: Maybe HAL_Filters
, node_id :: Maybe Int , node_id :: Maybe Int
} }
defaultSearch :: Search defaultSearch :: Search
defaultSearch = { datafield: Just Gargantext defaultSearch = { datafield: Just Gargantext
, database: Just PubMed
, term: "" , term: ""
, lang: Just EN , lang: Just EN
, org : Nothing
, filters: Nothing
, node_id: Nothing , node_id: Nothing
} }
...@@ -58,10 +52,7 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged ...@@ -58,10 +52,7 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged
let search = maybe defaultSearch identity (fst props.search) let search = maybe defaultSearch identity (fst props.search)
term@(curTerm /\ _) <- R.useState' search.term term@(curTerm /\ _) <- R.useState' search.term
df@(curDf /\ setDf) <- R.useState' (Just Gargantext :: Maybe DataField) df@(curDf /\ setDf) <- R.useState' (Just Gargantext :: Maybe DataField)
db@(curDb /\ setDb) <- R.useState' (Nothing :: Maybe Database)
lang@(curLg /\ _) <- R.useState' (Nothing :: Maybe Lang) lang@(curLg /\ _) <- R.useState' (Nothing :: Maybe Lang)
org@(curOrg /\ setOrg) <- R.useState' (Nothing :: Maybe Org)
filters@(curFilters /\ setFilters) <- R.useState' (Nothing :: Maybe HAL_Filters)
fi <- R.useState' "" fi <- R.useState' ""
pure $ pure $
div { className: "search-field-group" } div { className: "search-field-group" }
...@@ -76,64 +67,76 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged ...@@ -76,64 +67,76 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged
div {}[] div {}[]
else else
div {} [ dataFieldNav df dataFields div {} [ dataFieldNav df dataFields
, if curDf == Just (External Nothing) , if isExternal curDf
then databaseInput df db filters org props.databases then databaseInput df props.databases
else div {} [] else div {} []
, if isHAL curDb , if isHAL curDf
then orgInput org allOrgs then orgInput df allOrgs
else div {} [] else div {} []
, if isHAL curDb , if isIMT curDf
then
if curOrg == (Just IMT)
then then
R.fragment R.fragment
[ ul {} $ map ( \org' -> li {} [ ul {} $ map ( \org -> li {}
[ input { type: "checkbox" [ input { type: "checkbox"
, checked: isInFilters org' curFilters , checked: isIn org curDf
, on: {change: \_ -> (setFilters , on: {change: \_ -> (setDf
$ const $ const
$ updateFilter org' curFilters) $ updateFilter org curDf)
} }
} }
, if org' == All_IMT , if org == All_IMT
then i {} [text $ " " <> show org'] then i {} [text $ " " <> show org]
else text $ " " <> show org' else text $ " " <> show org
] ]
) allIMTorgs ) allIMTorgs
, filterInput fi , filterInput fi
] ]
else else div {} []
if curOrg == (Just CNRS)
, if isCNRS curDf
then then
R.fragment [ div {} [], filterInput fi] R.fragment [ div {} [], filterInput fi]
else else
div {} [] div {} []
else
div {} []
] ]
] ]
, submitButton node_id db term lang org filters props.search , submitButton node_id df term lang props.search
] ]
hasChanged p p' = (fst p.search /= fst p'.search) hasChanged p p' = (fst p.search /= fst p'.search)
|| (p.databases /= p'.databases ) || (p.databases /= p'.databases )
|| (p.langs /= p'.langs ) || (p.langs /= p'.langs )
-- || (fst p.filters /= fst p'.filters ) -- || (fst p.filters /= fst p'.filters )
isHAL :: Maybe Database -> Boolean
isHAL (Just HAL) = true isExternal :: Maybe DataField -> Boolean
isExternal (Just (External _)) = true
isExternal _ = false
isHAL :: Maybe DataField -> Boolean
isHAL (Just (External (Just (HAL _)))) = true
isHAL _ = false isHAL _ = false
isInFilters :: IMT_org -> Maybe HAL_Filters -> Boolean isIMT :: Maybe DataField -> Boolean
isInFilters org (Just (HAL_IMT { imtOrgs })) = Set.member org imtOrgs isIMT (Just ( External ( Just ( HAL ( Just ( IMT _)))))) = true
isInFilters _ _ = false isIMT _ = false
updateFilter :: IMT_org -> Maybe HAL_Filters -> Maybe HAL_Filters isCNRS :: Maybe DataField -> Boolean
updateFilter org (Just (HAL_IMT {imtOrgs})) = isCNRS (Just ( External ( Just ( HAL ( Just ( CNRS _)))))) = true
Just $ HAL_IMT { imtOrgs: imtOrgs' isCNRS _ = false
, structIds: Set.empty
}
isIn :: IMT_org -> Maybe DataField -> Boolean
isIn org (Just (External (Just (HAL (Just (IMT imtOrgs)))))) = Set.member org imtOrgs
isIn _ _ = false
updateFilter :: IMT_org -> Maybe DataField -> Maybe DataField
updateFilter org (Just (External (Just (HAL (Just (IMT imtOrgs)))))) =
(Just (External (Just (HAL (Just $ IMT imtOrgs')))))
where where
imtOrgs' = if Set.member org imtOrgs imtOrgs' = if Set.member org imtOrgs
then then
...@@ -145,15 +148,12 @@ updateFilter org (Just (HAL_IMT {imtOrgs})) = ...@@ -145,15 +148,12 @@ updateFilter org (Just (HAL_IMT {imtOrgs})) =
then Set.fromFoldable allIMTorgs then Set.fromFoldable allIMTorgs
else Set.insert org imtOrgs else Set.insert org imtOrgs
updateFilter org _ = Just $ HAL_IMT { imtOrgs: imtOrgs' updateFilter org _ = (Just (External (Just (HAL (Just (IMT imtOrgs'))))))
, structIds: Set.empty
}
where where
imtOrgs' = if org == All_IMT imtOrgs' = if org == All_IMT
then Set.fromFoldable allIMTorgs then Set.fromFoldable allIMTorgs
else Set.fromFoldable [org] else Set.fromFoldable [org]
------------------------------------------------------------------------ ------------------------------------------------------------------------
langList :: R.State (Maybe Lang) -> Array Lang -> R.Element langList :: R.State (Maybe Lang) -> Array Lang -> R.Element
langList (lang /\ setLang) langs = langList (lang /\ setLang) langs =
...@@ -200,38 +200,39 @@ dataFieldNav (df /\ setDf) datafields = ...@@ -200,38 +200,39 @@ dataFieldNav (df /\ setDf) datafields =
------------------------------------------------------------------------ ------------------------------------------------------------------------
databaseInput :: R.State (Maybe DataField) databaseInput :: R.State (Maybe DataField)
-> R.State (Maybe Database)
-> R.State (Maybe HAL_Filters)
-> R.State (Maybe Org)
-> Array Database -> Array Database
-> R.Element -> R.Element
databaseInput (df /\ setDf) (db /\ setDB) (_ /\ setFilters) (_ /\ setOrg) dbs = databaseInput (df /\ setDf) dbs =
div { className: "form-group" } div { className: "form-group" }
[ div {className: "text-primary center"} [text "in database"] [ div {className: "text-primary center"} [text "in database"]
, R2.select { className: "form-control" , R2.select { className: "form-control"
, on: { change: \e -> (setDB , on: { change: \e -> setDf
$ const $ const
$ Just
$ External
$ readDatabase $ readDatabase
$ e .. "target" .. "value") $ e .. "target" .. "value"
*> (setOrg $ const Nothing)
*> (setFilters $ const Nothing)
*> (setDf $ const $ Just $ External db)
} }
} (liItem <$> dbs) } (liItem <$> dbs)
, div {className:"center"} [ text $ maybe "" doc db ] , div {className:"center"} [ text $ maybe "" doc db ]
] ]
where where
db = case df of
(Just (External (Just x))) -> Just x
_ -> Nothing
liItem :: Database -> R.Element liItem :: Database -> R.Element
liItem db = option {className : "text-primary center"} [ text (show db) ] liItem db = option {className : "text-primary center"} [ text (show db) ]
orgInput :: R.State (Maybe Org) -> Array Org -> R.Element orgInput :: R.State (Maybe DataField) -> Array Org -> R.Element
orgInput (org /\ setOrg) orgs = orgInput (curDf /\ setDf) orgs =
div { className: "form-group" } div { className: "form-group" }
[ div {className: "text-primary center"} [text "filter with organization: "] [ div {className: "text-primary center"} [text "filter with organization: "]
, R2.select { className: "form-control" , R2.select { className: "form-control"
, on: { change: \e -> setOrg , on: { change: \e -> setDf
$ const $ const
$ Just $ External $ Just $ HAL
$ readOrg $ readOrg
$ e .. "target" .. "value" $ e .. "target" .. "value"
} }
...@@ -271,14 +272,12 @@ searchInput (term /\ setTerm) = ...@@ -271,14 +272,12 @@ searchInput (term /\ setTerm) =
submitButton :: Maybe Int submitButton :: Maybe Int
-> R.State (Maybe Database) -> R.State (Maybe DataField)
-> R.State String -> R.State String
-> R.State (Maybe Lang) -> R.State (Maybe Lang)
-> R.State (Maybe Org)
-> R.State (Maybe HAL_Filters)
-> R.State (Maybe Search) -> R.State (Maybe Search)
-> R.Element -> R.Element
submitButton node_id (database /\ _) (term /\ _) (lang /\ _) (org/\_) (filters /\ _) (_ /\ setSearch) = div { className : "panel-footer" } submitButton node_id (datafield /\ _) (term /\ _) (lang /\ _) (_ /\ setSearch) = div { className : "panel-footer" }
[ button { className: "btn btn-primary" [ button { className: "btn btn-primary"
, type: "button" , type: "button"
, on: {click: doSearch} , on: {click: doSearch}
...@@ -288,4 +287,4 @@ submitButton node_id (database /\ _) (term /\ _) (lang /\ _) (org/\_) (filters / ...@@ -288,4 +287,4 @@ submitButton node_id (database /\ _) (term /\ _) (lang /\ _) (org/\_) (filters /
doSearch = \_ -> do doSearch = \_ -> do
case term of case term of
"" -> setSearch $ const Nothing "" -> setSearch $ const Nothing
_ -> setSearch $ const $ Just {datafield: Nothing, database, lang, filters, term, org, node_id} _ -> setSearch $ const $ Just {datafield, term, lang, node_id}
src/Gargantext/Components/Search/Types.purs
View file @ 7aa76f18
module Gargantext.Components.Search.Types where module Gargantext.Components.Search.Types where
import Prelude (class Eq, class Show, show, ($), (<>), map) import Prelude (class Eq, class Show, show, ($), (<>), map, (&&), (==))
import Data.Set (Set) import Data.Set (Set)
import Data.Ord import Data.Ord
import Data.Set as Set import Data.Set as Set
...@@ -62,7 +62,7 @@ dataFields :: Array DataField ...@@ -62,7 +62,7 @@ dataFields :: Array DataField
dataFields = [ Gargantext dataFields = [ Gargantext
, Web , Web
, External Nothing , External Nothing
, Files -- , Files
] ]
data DataField = Gargantext data DataField = Gargantext
...@@ -82,19 +82,19 @@ instance docDataField :: Doc DataField where ...@@ -82,19 +82,19 @@ instance docDataField :: Doc DataField where
doc Web = "All the web crawled with meta-search-engine SearX" doc Web = "All the web crawled with meta-search-engine SearX"
doc Files = "Zip files with formats.." doc Files = "Zip files with formats.."
-- derive instance eqDataField :: Eq DataField
instance eqDataField :: Eq DataField where instance eqDataField :: Eq DataField where
eq Gargantext Gargantext = true eq Gargantext Gargantext = true
eq (External _) (External _) = true eq (External _) (External _) = true
eq Web Web = true eq Web Web = true
eq Files Files = true
eq _ _ = false eq _ _ = false
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- | Database search specifications -- | Database search specifications
allDatabases :: Array Database allDatabases :: Array Database
allDatabases = [ PubMed allDatabases = [ PubMed
, HAL , HAL Nothing
, IsTex , IsTex
, Isidore , Isidore
--, Web --, Web
...@@ -104,7 +104,7 @@ allDatabases = [ PubMed ...@@ -104,7 +104,7 @@ allDatabases = [ PubMed
data Database = All_Databases data Database = All_Databases
| PubMed | PubMed
| HAL | HAL (Maybe Org)
| IsTex | IsTex
| Isidore | Isidore
-- | News -- | News
...@@ -113,7 +113,7 @@ data Database = All_Databases ...@@ -113,7 +113,7 @@ data Database = All_Databases
instance showDatabase :: Show Database where instance showDatabase :: Show Database where
show All_Databases= "All Databases" show All_Databases= "All Databases"
show PubMed = "PubMed" show PubMed = "PubMed"
show HAL = "HAL" show (HAL _)= "HAL"
show IsTex = "IsTex" show IsTex = "IsTex"
show Isidore= "Isidore" show Isidore= "Isidore"
-- show News = "News" -- show News = "News"
...@@ -122,7 +122,7 @@ instance showDatabase :: Show Database where ...@@ -122,7 +122,7 @@ instance showDatabase :: Show Database where
instance docDatabase :: Doc Database where instance docDatabase :: Doc Database where
doc All_Databases = "All databases" doc All_Databases = "All databases"
doc PubMed = "All Medical publications" doc PubMed = "All Medical publications"
doc HAL = "All open science (archives ouvertes)" doc (HAL _) = "All open science (archives ouvertes)"
doc IsTex = "All Elsevier enriched by CNRS/INIST" doc IsTex = "All Elsevier enriched by CNRS/INIST"
doc Isidore = "All (French) Social Sciences" doc Isidore = "All (French) Social Sciences"
-- doc News = "Web filtered by News" -- doc News = "Web filtered by News"
...@@ -131,7 +131,7 @@ instance docDatabase :: Doc Database where ...@@ -131,7 +131,7 @@ instance docDatabase :: Doc Database where
readDatabase :: String -> Maybe Database readDatabase :: String -> Maybe Database
readDatabase "All Databases" = Just All_Databases readDatabase "All Databases" = Just All_Databases
readDatabase "PubMed" = Just PubMed readDatabase "PubMed" = Just PubMed
readDatabase "HAL" = Just HAL readDatabase "HAL" = Just $ HAL Nothing
readDatabase "IsTex" = Just IsTex readDatabase "IsTex" = Just IsTex
readDatabase "Isidore"= Just Isidore readDatabase "Isidore"= Just Isidore
-- readDatabase "Web" = Just Web -- readDatabase "Web" = Just Web
...@@ -141,65 +141,45 @@ readDatabase _ = Nothing ...@@ -141,65 +141,45 @@ readDatabase _ = Nothing
derive instance eqDatabase :: Eq Database derive instance eqDatabase :: Eq Database
instance encodeJsonDatabase :: EncodeJson Database where instance encodeJsonDatabase :: EncodeJson Database where
encodeJson a = encodeJson (show a) encodeJson a = encodeJson (show a)
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- | Database Filter specifications -- | Organization specifications
-- filter by organization
allOrgs :: Array Org allOrgs :: Array Org
allOrgs = [ All_Orgs allOrgs = [ All_Orgs
, IMT , IMT $ Set.fromFoldable []
, CNRS , CNRS $ Set.fromFoldable []
] ]
data Org = All_Orgs data Org = All_Orgs
| CNRS | CNRS (Set StructId)
| IMT | Others (Set StructId)
| Others | IMT (Set IMT_org)
type StructId = Int
instance showOrg :: Show Org where instance showOrg :: Show Org where
show All_Orgs = "All_Orgs" show All_Orgs = "All_Orgs"
show CNRS = "CNRS" show (CNRS _) = "CNRS"
show IMT = "IMT" show (IMT _) = "IMT"
show Others = "Others" show (Others _) = "Others"
readOrg :: String -> Maybe Org readOrg :: String -> Maybe Org
readOrg "All_Orgs" = Just $ All_Orgs readOrg "All_Orgs" = Just $ All_Orgs
readOrg "CNRS" = Just $ CNRS readOrg "CNRS" = Just $ CNRS $ Set.fromFoldable []
readOrg "IMT" = Just $ IMT readOrg "IMT" = Just $ IMT $ Set.fromFoldable []
readOrg "Others" = Just $ Others readOrg "Others" = Just $ Others $ Set.fromFoldable []
readOrg _ = Nothing readOrg _ = Nothing
instance eqOrg :: Eq Org derive instance eqOrg :: Eq Org
where
eq All_Orgs All_Orgs = true
eq CNRS CNRS = true
eq IMT IMT = true
eq Others Others = true
eq _ _ = false
instance encodeJsonOrg :: EncodeJson Org where instance encodeJsonOrg :: EncodeJson Org where
encodeJson a = encodeJson (show a) encodeJson a = encodeJson (show a)
------------------------------------------------------------------------ ------------------------------------------------------------------------
type StructId = Int
data HAL_Filters = HAL_StructId { structIds :: Set StructId}
| HAL_IMT { imtOrgs :: Set IMT_org
, structIds :: Set StructId
}
instance eqHAL_Filters :: Eq HAL_Filters
where
eq (HAL_StructId _) (HAL_StructId _) = true
eq (HAL_IMT _ ) (HAL_IMT _) = true
eq _ _ = false
allIMTorgs :: Array IMT_org allIMTorgs :: Array IMT_org
allIMTorgs = [All_IMT] <> allIMTSubOrgs allIMTorgs = [All_IMT] <> allIMTSubOrgs
...@@ -326,9 +306,8 @@ instance showSearchOrder :: Show SearchOrder where ...@@ -326,9 +306,8 @@ instance showSearchOrder :: Show SearchOrder where
------------------------------------------------------------------------ ------------------------------------------------------------------------
newtype SearchQuery = SearchQuery newtype SearchQuery = SearchQuery
{ query :: String { query :: String
, databases :: Array Database , datafield :: Maybe DataField
, lang :: Maybe Lang , lang :: Maybe Lang
, filters :: (Array Int)
, node_id :: Maybe Int , node_id :: Maybe Int
, files_id :: Array String , files_id :: Array String
, offset :: Maybe Int , offset :: Maybe Int
...@@ -341,10 +320,9 @@ derive instance newtypeSearchQuery :: Newtype SearchQuery _ ...@@ -341,10 +320,9 @@ derive instance newtypeSearchQuery :: Newtype SearchQuery _
defaultSearchQuery :: SearchQuery defaultSearchQuery :: SearchQuery
defaultSearchQuery = SearchQuery defaultSearchQuery = SearchQuery
{ query: "" { query: ""
, databases: allDatabases , datafield: Nothing
, lang : Nothing , lang : Nothing
, node_id : Nothing , node_id : Nothing
, filters : []
, files_id : [] , files_id : []
, offset: Nothing , offset: Nothing
, limit: Nothing , limit: Nothing
...@@ -366,12 +344,11 @@ instance searchQueryToQuery :: ToQuery SearchQuery where ...@@ -366,12 +344,11 @@ instance searchQueryToQuery :: ToQuery SearchQuery where
[ QP.keyFromString k /\ Just (QP.valueFromString $ show v) ] [ QP.keyFromString k /\ Just (QP.valueFromString $ show v) ]
instance encodeJsonSearchQuery :: EncodeJson SearchQuery where instance encodeJsonSearchQuery :: EncodeJson SearchQuery where
encodeJson (SearchQuery {query, databases, node_id, files_id, filters, lang}) encodeJson (SearchQuery {query, datafield, node_id, lang})
= "query" := query = "query" := query
~> "databases" := databases ~> "datafield" := "" -- fromMaybe "" datafield
~> "node_id" := fromMaybe 0 node_id ~> "node_id" := fromMaybe 0 node_id
~> "files_id" := files_id -- ~> "files_id" := files_id
~> "filters" := filters
~> "lang" := maybe "EN" show lang ~> "lang" := maybe "EN" show lang
~> jsonEmptyObject ~> jsonEmptyObject
......
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