[PHYLO] backend POST/GET ok.

src/Gargantext/Viz/Phylo/API.hs

@@ -80,7 +80,7 @@ instance MimeRender SVG SVG where
 type GetPhylo =  QueryParam "listId"      ListId
               :> QueryParam "level"       Level
               :> QueryParam "minSizeBranch" MinSizeBranch
-              :> QueryParam "filiation"   Filiation
+   {-           :> QueryParam "filiation"   Filiation
               :> QueryParam "childs"      Bool
               :> QueryParam "depth"       Level
               :> QueryParam "metrics"    [Metric]
@@ -93,15 +93,16 @@ type GetPhylo =  QueryParam "listId"      ListId
               :> QueryParam "export"    ExportMode
               :> QueryParam "display"    DisplayMode
               :> QueryParam "verbose"     Bool
+    -}
               :> Get '[SVG] SVG
 
 -- | TODO
 -- Add real text processing
 -- Fix Filter parameters
 getPhylo :: PhyloId -> GargServer GetPhylo
-getPhylo phId _lId l msb _f _b _l' _ms _x _y _z _ts _s _o _e _d _b' = do
+--getPhylo phId _lId l msb _f _b _l' _ms _x _y _z _ts _s _o _e _d _b' = do
+getPhylo phId _lId l msb  = do
   phNode     <- getNodePhylo phId
-
   let
     level = maybe 1 identity l
     branc = maybe 2 identity msb
@@ -111,19 +112,19 @@ getPhylo phId _lId l msb _f _b _l' _ms _x _y _z _ts _s _o _e _d _b' = do
   pure (SVG p)
 ------------------------------------------------------------------------
 type PostPhylo =  QueryParam "listId" ListId
-               :> ReqBody '[JSON] PhyloQueryBuild
+               -- :> ReqBody '[JSON] PhyloQueryBuild
                :> (Post '[JSON] NodeId)
 
 postPhylo :: CorpusId -> UserId -> GargServer PostPhylo
-postPhylo n userId _lId _q = do
+postPhylo n userId _lId = do
   -- TODO get Reader settings
   -- s <- ask
   let
     -- _vrs = Just ("1" :: Text)
     -- _sft = Just (Software "Gargantext" "4")
     -- _prm = initPhyloParam vrs sft (Just q)
-  ph <- flowPhylo n
-  pId <- insertNodes [nodePhyloW (Just "Phylo") (Just $ HyperdataPhylo Nothing (Just ph)) n userId]
+  phy  <- flowPhylo n
+  pId <- insertNodes [nodePhyloW (Just "Phylo") (Just $ HyperdataPhylo Nothing (Just phy)) n userId]
   pure $ NodeId (fromIntegral pId)
 
 ------------------------------------------------------------------------

src/Gargantext/Viz/Phylo/Main.hs

@@ -18,7 +18,6 @@ Portability : POSIX
 module Gargantext.Viz.Phylo.Main
   where
 
-import Control.Monad.IO.Class (liftIO)
 import Data.GraphViz
 import Data.Maybe
 import Data.Text (Text)
@@ -38,7 +37,6 @@ import Gargantext.Viz.Phylo.LevelMaker
 import Gargantext.Viz.Phylo.Tools
 import Gargantext.Viz.Phylo.View.Export
 import Gargantext.Viz.Phylo.View.ViewMaker    -- TODO Just Maker is fine
-import Servant
 import qualified Data.ByteString as DB
 import qualified Data.List as List
 import qualified Data.Map  as Map
@@ -64,7 +62,7 @@ flowPhylo cId = do
     patterns = buildPatterns termList
     -- | To filter the Ngrams of a document based on the termList
     filterTerms :: Patterns -> (Date, Text) -> (Date, [Text])
-    filterTerms patterns (y,d) = (y,termsInText patterns d)
+    filterTerms patterns' (y,d) = (y,termsInText patterns' d)
       where
         --------------------------------------
         termsInText :: Patterns -> Text -> [Text]