Skip to content

H
haskell-gargantext
Commit 3cf08bbe authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] lists size

parent 4a19e6f4
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Core/Text/List.hs
View file @ 3cf08bbe
...@@ -265,8 +265,8 @@ buildNgramsTermsList user uCid mCid groupParams (nt, _mapListSize)= do ...@@ -265,8 +265,8 @@ buildNgramsTermsList user uCid mCid groupParams (nt, _mapListSize)= do
splitAt' max' n' = (both (HashMap.fromList)) . (List.splitAt (round $ n' * max')) splitAt' max' n' = (both (HashMap.fromList)) . (List.splitAt (round $ n' * max'))
sortOn f = (List.sortOn (Down . (view (gts'_score . f)) . snd)) . HashMap.toList sortOn f = (List.sortOn (Down . (view (gts'_score . f)) . snd)) . HashMap.toList
monoInc_size n = splitAt' n $ monoSize * inclSize / 2 monoInc_size n = splitAt' n $ monoSize * inclSize / 4
multExc_size n = splitAt' n $ multSize * exclSize / 2 multExc_size n = splitAt' n $ multSize * exclSize / 4
(mapMonoScoredInclHead, monoScoredInclTail) = monoInc_size mapSize $ (sortOn scored_genInc) monoScoredIncl (mapMonoScoredInclHead, monoScoredInclTail) = monoInc_size mapSize $ (sortOn scored_genInc) monoScoredIncl
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment