[FIX] Example Cleopatre Date hack

src/Gargantext/Core/Viz/Phylo/API/Tools.hs

@@ -149,12 +149,10 @@ toMonths y m d = fromIntegral $ cdMonths
                $ diffGregorianDurationClip (fromGregorian y    m d)
                                            (fromGregorian 0000 0 0)
 
-
 toDays :: Integer -> Int -> Int -> Date
 toDays y m d = fromIntegral
              $ diffDays (fromGregorian y m d) (fromGregorian 0000 0 0)
 
-
 toPhyloDate :: Int -> Int -> Int -> TimeUnit -> Date
 toPhyloDate y m d tu = case tu of
   Year  _ _ _ -> y
@@ -192,5 +190,3 @@ readJson :: FilePath -> IO Lazy.ByteString
 readJson path = Lazy.readFile path
 
 
-
-

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

@@ -108,7 +108,7 @@ config =
 
 docs :: [Document]
 docs = map (\(d,t)
-    -> Document d
+    -> Document (d+102)
                 ""
                 (filter (\n -> isRoots n (foundations ^. foundations_roots)) $ monoTexts t) 
                 Nothing