[phylo] chunkAlongV for speed boost when there are large number of periods

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

@@ -146,8 +146,9 @@ findBounds dates =
 toPeriods :: [Date] -> Int -> Int -> [(Date,Date)]
 toPeriods dates p s =
     let (start,end) = findBounds dates
-    in map (\dates' -> (head' "toPeriods" dates', last' "toPeriods" dates'))
-     $ chunkAlong p s [start .. end]
+    in map (\dates' -> (Vector.head dates', Vector.last dates'))
+     $ Vector.toList
+     $ chunkAlongV p s $ Vector.fromList [start .. end]
 
 
 toFstDate :: [Text] -> Text