[PHYLO.API] REST GET.

src/Gargantext/API/Node.hs

@@ -143,8 +143,11 @@ type NodeAPI a = Get '[JSON] (Node a)
              :<|> "list"      :> TableNgramsApi
              :<|> "listGet"   :> TableNgramsApiGet
              :<|> "pairing"   :> PairingApi
-
+             
+             -- VIZ
              :<|> "chart"     :> ChartApi
+             :<|> "phylo"     :> PhyloAPI
+             
              :<|> "favorites" :> FavApi
              :<|> "documents" :> DocsApi
              :<|> "search":> Summary "Node Search"
@@ -188,6 +191,8 @@ nodeAPI p uId id
            :<|> getPairing       id
 
            :<|> getChart id
+           :<|> phyloAPI id
+           
            :<|> favApi   id
            :<|> delDocs  id
            :<|> searchIn id
@@ -311,6 +316,15 @@ graphAPI nId = do
   liftIO $ set graph_metadata (Just metadata) <$> cooc2graph myCooc
 
 
+type PhyloAPI = Summary "Phylo API"
+              :> QueryParam "param" PhyloQueryView
+              :> Get '[JSON] PhyloView
+
+phyloAPI :: NodeId -> GargServer PhyloAPI
+phyloAPI n q = pure $ getPhylo n q
+
+
+
 instance HasNodeError ServantErr where
   _NodeError = prism' mk (const Nothing) -- $ panic "HasNodeError ServantErr: not a prism")
     where

src/Gargantext/Viz/Phylo/API.hs

@@ -21,7 +21,7 @@ import Gargantext.Prelude
 import Gargantext.Viz.Phylo
 import Gargantext.Viz.Phylo.Example
 
-getPhylo :: PhyloId -> PhyloQueryView -> PhyloView
+getPhylo :: PhyloId -> Maybe PhyloQueryView -> PhyloView
 getPhylo _phyloId _phyloQueryView = phyloView
 
 postPhylo :: CorpusId -> Maybe ListId -> PhyloQueryBuild -> Phylo