small change in createIndexes

4b81f9d1 · Nicolas Pouillard · 9a6c8946 · 4b81f9d1
Unverified Commit 4b81f9d1 authored May 30, 2018 by Nicolas Pouillard
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

Index.hs src/Gargantext/Viz/Graph/Index.hs +3 -2

No files found.
--- a/src/Gargantext/Viz/Graph/Index.hs
+++ b/src/Gargantext/Viz/Graph/Index.hs
@@ -112,7 +112,8 @@ createIndexes = set2indexes . cooc2set
    set2indexes :: Ord t => Set t -> (Map t Index, Map Index t)
    set2indexes s = (M.fromList toIndex', M.fromList fromIndex')
      where
-        fromIndex' = zip [1..] (S.toList s)
-        toIndex'   = zip (S.toList s)  [1..]
+        fromIndex' = zip [0..] xs
+        toIndex'   = zip xs [0..]
+        xs         = S.toList s