[FIX] adding database to query.

src/Gargantext/Components/Search/SearchField.purs

@@ -60,8 +60,7 @@ searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) hasChanged
 databaseInput :: R.State (Maybe Database) -> Array Database -> R.Element
 databaseInput (db /\ setDB) dbs =
   div { className: "input-group-btn search-panel dropdown" }
-      [
-        dropdownBtn db
+      [ dropdownBtn db
       , ul {className: "dropdown-menu", role: "menu"} (liItem <$> dbs)
       ]
   where

src/Gargantext/Components/Search/Types.purs

 module Gargantext.Components.Search.Types where
 
 import Control.Monad.Cont.Trans (lift)
-import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
+import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>), encodeJson)
 import Data.Maybe (Maybe(..), fromMaybe, maybe)
+import Data.Array (head)
 import Data.Newtype (class Newtype)
 import Data.Tuple (Tuple)
 import Data.Tuple.Nested ((/\))
@@ -36,6 +37,10 @@ readDatabase _ = Nothing
 
 derive instance eqDatabase :: Eq Database
 
+instance encodeJsonDatabase :: EncodeJson Database where
+  encodeJson a = encodeJson (show a)
+
+
 allDatabases :: Array Database
 allDatabases = [All, HAL, IsTex, PubMed]
 
@@ -85,8 +90,9 @@ instance searchQueryToQuery :: ToQuery SearchQuery where
             [ QP.keyFromString k /\ Just (QP.valueFromString $ show v) ]
 
 instance encodeJsonSearchQuery :: EncodeJson SearchQuery where
-  encodeJson (SearchQuery {query, corpus_id, files_id})
+  encodeJson (SearchQuery {query, databases, corpus_id, files_id})
     =   "query"      := query
+    ~> "databases"   := databases
     ~>  "corpus_id"  := fromMaybe 0 corpus_id
     ~>  "files_id"   := files_id
     ~> jsonEmptyObject