[ELEVE] main specs more generic.

f9d25b86 · Alexandre Delanoë · 513b860e · f9d25b86
Commit f9d25b86 authored Sep 24, 2019 by Alexandre Delanoë
Show whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

Eleve.hs src/Gargantext/Text/Terms/Eleve.hs +4 -1

No files found.
--- a/src/Gargantext/Text/Terms/Eleve.hs
+++ b/src/Gargantext/Text/Terms/Eleve.hs
@@ -375,7 +375,10 @@ mainEleve' n x y = mainEleveWith x' n y
    x' = buildTries n (fmap toToken x)

 -- | This function should take the longest possible chain of:
-- mainEleve'' n x y = maxChainWith [mainEleve' n x y, mainEleve' n x x]
+-- mainEleve'' n x y = maxChainSizeOf [ mainEleve' n x y
+--                                    , mainEleve' n x x
+--                                    , mainEleve' n y y
+--                                    ]
 mainEleve'' :: Int -> [[Text]] -> [[Text]] -> [[[Text]]]
 mainEleve'' = undefined