[API][Pairs] search enabled again.

src/Gargantext/API/Node.hs

@@ -51,7 +51,7 @@ import Gargantext.API.Auth (withAccess, PathId(..))
 import Gargantext.API.Metrics
 import Gargantext.API.Ngrams (TabType(..), TableNgramsApi, apiNgramsTableCorpus, QueryParamR)
 import Gargantext.API.Ngrams.NTree (MyTree)
-import Gargantext.API.Search (SearchDocsAPI, searchDocs)
+import Gargantext.API.Search (SearchDocsAPI, searchDocs, SearchPairsAPI, searchPairs)
 import Gargantext.API.Table
 import Gargantext.API.Types
 import Gargantext.Core.Types (NodeTableResult)
@@ -131,7 +131,8 @@ type NodeAPI a = Get '[JSON] (Node a)
              :<|> "pairing"   :> PairingApi
 
              :<|> "category"  :> CatApi
-             :<|> "search"    :> SearchDocsAPI
+             :<|> "search"     :> SearchDocsAPI
+             :<|> "searchPair" :> SearchPairsAPI
 
              -- VIZ
              :<|> "metrics" :> ScatterAPI
@@ -193,7 +194,8 @@ nodeAPI p uId id = withAccess (Proxy :: Proxy (NodeAPI a)) Proxy uId (PathNode i
 
            :<|> catApi     id
 
-           :<|> searchDocs id
+           :<|> searchDocs  id
+           :<|> searchPairs id
 
            :<|> getScatter id
            :<|> getChart   id

src/Gargantext/API/Search.hs

@@ -79,27 +79,28 @@ instance ToSchema SearchPairedResults where
 -----------------------------------------------------------------------
 -- TODO-ACCESS: CanSearch? or is it part of CanGetNode
 -- TODO-EVENTS: No event, this is a read-only query.
-type SearchAPI results
-  = Summary "Search endpoint"
- :> ReqBody '[JSON] SearchQuery
- :> QueryParam "offset" Int
- :> QueryParam "limit"  Int
- :> QueryParam "order"  OrderBy
- :> Post '[JSON] results
+type SearchAPI results = Summary "Search endpoint"
+                       :> ReqBody '[JSON] SearchQuery
+                       :> QueryParam "offset" Int
+                       :> QueryParam "limit"  Int
+                       :> QueryParam "order"  OrderBy
+                       :> Post '[JSON] results
 
 type SearchDocsAPI  = SearchAPI SearchDocResults
-type SearchPairsAPI = 
-  Summary "" :> "list"  :> Capture "list"   ListId
-  :> SearchAPI SearchPairedResults
------------------------------------------------------------------------
-
-searchPairs :: NodeId -> GargServer SearchPairsAPI
-searchPairs pId lId (SearchQuery q) o l order =
-  SearchPairedResults <$> searchInCorpusWithContacts pId lId q o l order
-
 searchDocs :: NodeId -> GargServer SearchDocsAPI
 searchDocs nId (SearchQuery q) o l order =
   SearchDocResults <$> searchInCorpus nId False q o l order
   --SearchResults <$> searchInCorpusWithContacts nId q o l order
 
+-----------------------------------------------------------------------
+type SearchPairsAPI = Summary ""
+                    :> "list"
+                    :> Capture "list" ListId
+                    :> SearchAPI SearchPairedResults
+searchPairs :: NodeId -> GargServer SearchPairsAPI
+
+searchPairs pId lId (SearchQuery q) o l order =
+  SearchPairedResults <$> searchInCorpusWithContacts pId lId q o l order
+
+-----------------------------------------------------------------------