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