[Tree] fix Search.Ajax.search return type

src/Gargantext/Components/Search/Ajax.purs

@@ -14,7 +14,7 @@ import URI.Query as Q
 searchUrl :: SearchQuery -> String
 searchUrl q = urlPlease Back $ "new" <> Q.print (toQuery q)
 
-search :: forall a. DecodeJson a => SearchQuery -> Aff a
+search :: SearchQuery -> Aff Int
 search q = do
   let url = searchUrl q
   liftEffect $ log2 "url:" url

src/Gargantext/Pages/Layout/Specs/SearchBar.purs

@@ -54,7 +54,7 @@ onSearchChange (search /\ setSearch) =
       launchAff $ do
         liftEffect $ log2 "Searching db: " $ show q.database
         liftEffect $ log2 "Searching term: " q.term
-        (r :: Unit) <- Ajax.search (searchQuery q)
+        r <- Ajax.search (searchQuery q)
         liftEffect $ log2 "Return:" r
         liftEffect $ modalShow "addCorpus"
     searchQuery {database: Nothing, term} = over SearchQuery (_ {query=term}) defaultSearchQuery