add a list parser param

package.yaml

@@ -54,6 +54,7 @@ library:
   - Gargantext.API.Ngrams
   - Gargantext.API.Ngrams.Tools
   - Gargantext.API.Ngrams.Types
+  - Gargantext.API.Ngrams.Prelude
   - Gargantext.API.Admin.Settings
   - Gargantext.API.Admin.EnvTypes
   - Gargantext.API.Admin.Types
@@ -73,6 +74,7 @@ library:
   - Gargantext.Database.Query.Table.Node
   - Gargantext.Database.Query.Table.Node.UpdateOpaleye
   - Gargantext.Database.Query.Table.NgramsPostag
+  - Gargantext.Database.Schema.Ngrams
   - Gargantext.Database.Prelude
   - Gargantext.Database.Admin.Trigger.Init
   - Gargantext.Database.Admin.Config

src/Gargantext/Core/Viz/Phylo/PhyloTools.hs

@@ -13,7 +13,7 @@ Portability : POSIX
 module Gargantext.Core.Viz.Phylo.PhyloTools where
 
 import Control.Lens hiding (Level)
-import Data.List (sort, concat, null, union, (++), tails, sortOn, nub, init, tail, partition, tails, nubBy, group)
+import Data.List (sort, concat, null, union, (++), tails, sortOn, nub, init, tail, partition, tails, nubBy, group, notElem)
 import Data.Map (Map, elems, fromList, unionWith, keys, member, (!), filterWithKey, fromListWith, empty, restrictKeys)
 import Data.Set (Set, disjoint)
 import Data.String (String)
@@ -157,7 +157,7 @@ toFstDate ds = snd
              $ head' "firstDate"
              $ sortOn fst
              $ map (\d ->
-                      let d' = read (filter (\c -> c /= '-') $ unpack d)::Int
+                      let d' = read (filter (\c -> notElem c ['U','T','C',' ',':','-']) $ unpack d)::Int
                        in (d',d)) ds
 
 toLstDate :: [Text] -> Text
@@ -166,12 +166,13 @@ toLstDate ds = snd
              $ reverse
              $ sortOn fst
              $ map (\d ->
-                      let d' = read (filter (\c -> c /= '-') $ unpack d)::Int
+                      let d' = read (filter (\c -> notElem c ['U','T','C',' ',':','-']) $ unpack d)::Int
                        in (d',d)) ds
 
 
 getTimeScale :: Phylo -> [Char]
 getTimeScale p = case (timeUnit $ getConfig p) of
+    Epoch _ _ _ -> "epoch"
     Year  _ _ _ -> "year"
     Month _ _ _ -> "month"
     Week  _ _ _ -> "week"
@@ -187,6 +188,7 @@ toTimeScale dates step =
 
 getTimeStep :: TimeUnit -> Int
 getTimeStep time = case time of
+    Epoch _ s _ -> s
     Year  _ s _ -> s
     Month _ s _ -> s
     Week  _ s _ -> s
@@ -194,6 +196,7 @@ getTimeStep time = case time of
 
 getTimePeriod :: TimeUnit -> Int
 getTimePeriod time = case time of
+    Epoch p _ _ -> p
     Year  p _ _ -> p
     Month p _ _ -> p
     Week  p _ _ -> p
@@ -201,6 +204,7 @@ getTimePeriod time = case time of
 
 getTimeFrame :: TimeUnit -> Int
 getTimeFrame time = case time of
+    Epoch _ _ f -> f
     Year  _ _ f -> f
     Month _ _ f -> f
     Week  _ _ f -> f
@@ -324,20 +328,22 @@ getPeriodPointers fil g =
     case fil of
         ToChilds  -> g ^. phylo_groupPeriodChilds
         ToParents -> g ^. phylo_groupPeriodParents
+        ToChildsMemory  -> undefined
+        ToParentsMemory -> undefined
 
 filterProximity :: Proximity -> Double -> Double -> Bool
 filterProximity proximity thr local =
     case proximity of
         WeightedLogJaccard _ -> local >= thr
         WeightedLogSim     _ -> local >= thr
-        Hamming -> undefined   
+        Hamming            _ -> undefined
 
 getProximityName :: Proximity -> String
 getProximityName proximity =
     case proximity of
         WeightedLogJaccard _ -> "WLJaccard"
         WeightedLogSim     _ -> "WeightedLogSim"
-        Hamming -> "Hamming"            
+        Hamming            _ -> "Hamming"
 
 ---------------
 -- | Phylo | --
@@ -349,9 +355,27 @@ addPointers fil pty pointers g =
         TemporalPointer -> case fil of
                                 ToChilds  -> g & phylo_groupPeriodChilds  .~ pointers
                                 ToParents -> g & phylo_groupPeriodParents .~ pointers
+                                ToChildsMemory  -> undefined
+                                ToParentsMemory -> undefined
         LevelPointer    -> case fil of
                                 ToChilds  -> g & phylo_groupLevelChilds   .~ pointers
                                 ToParents -> g & phylo_groupLevelParents  .~ pointers
+                                ToChildsMemory  -> undefined
+                                ToParentsMemory -> undefined
+
+toPointer' :: Double -> Pointer -> Pointer'
+toPointer' thr pt = (fst pt,(thr,snd pt))
+
+
+addMemoryPointers :: Filiation -> PointerType -> Double -> [Pointer] -> PhyloGroup -> PhyloGroup
+addMemoryPointers fil pty thr pointers g =
+    case pty of
+        TemporalPointer -> case fil of
+                                ToChilds  -> undefined
+                                ToParents -> undefined
+                                ToChildsMemory  -> g & phylo_groupPeriodMemoryChilds  .~ (concat [(g ^. phylo_groupPeriodMemoryChilds),(map (\pt -> toPointer' thr pt) pointers)])
+                                ToParentsMemory -> g & phylo_groupPeriodMemoryParents .~ (concat [(g ^. phylo_groupPeriodMemoryParents),(map (\pt -> toPointer' thr pt) pointers)])
+        LevelPointer    -> undefined
 
 
 getPeriodIds :: Phylo -> [(Date,Date)]
@@ -544,7 +568,7 @@ getSensibility :: Proximity -> Double
 getSensibility proxi = case proxi of
     WeightedLogJaccard s -> s
     WeightedLogSim     s -> s
-    Hamming -> undefined
+    Hamming            _ -> undefined
 
 ----------------
 -- | Branch | --