Merge branch '68-dev-garg-v3-csv-parser' of ssh://gitlab.iscpif.fr:20022/gargantext...
[gargantext.git] / src / Gargantext / Core / Viz / Phylo / PhyloExample.hs
index 42da1f9a71e6817d5091a9a53ef6c346ca036720..c530192e77cda75ca8deb20198adf82daeff02b8 100644 (file)
@@ -109,8 +109,12 @@ config =
 
 docs :: [Document]
 docs = map (\(d,t)
-    -> Document d ( filter (\n -> isRoots n (foundations ^. foundations_roots)) 
-                  $ monoTexts t)) corpus
+    -> Document d
+                ""
+                (filter (\n -> isRoots n (foundations ^. foundations_roots)) $ monoTexts t) 
+                Nothing
+                []
+            ) corpus
 
 
 foundations :: PhyloFoundations