Skip to content

haskell-gargantext
haskell-gargantext
Commit bc952407 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[ngrams] sort based on duplicates elimination 

Related to purescript-gargantext#441
parent 519d41f4
Pipeline #3500 passed with stage
    in 92 minutes and 33 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    src/Gargantext/API/Ngrams.hs
    View file @ bc952407
    ...@@ -576,8 +576,8 @@ getTableNgrams _nType nId tabType listId limit_ offset ...@@ -576,8 +576,8 @@ getTableNgrams _nType nId tabType listId limit_ offset
    sortOnOrder Nothing = sortOnOrder (Just ScoreDesc) sortOnOrder Nothing = sortOnOrder (Just ScoreDesc)
    sortOnOrder (Just TermAsc) = List.sortOn $ view ne_ngrams sortOnOrder (Just TermAsc) = List.sortOn $ view ne_ngrams
    sortOnOrder (Just TermDesc) = List.sortOn $ Down . view ne_ngrams sortOnOrder (Just TermDesc) = List.sortOn $ Down . view ne_ngrams
    sortOnOrder (Just ScoreAsc) = List.sortOn $ view (ne_occurrences . to length) sortOnOrder (Just ScoreAsc) = List.sortOn $ view (ne_occurrences . to List.nub . to length)
    sortOnOrder (Just ScoreDesc) = List.sortOn $ Down . view (ne_occurrences . to length) sortOnOrder (Just ScoreDesc) = List.sortOn $ Down . view (ne_occurrences . to List.nub . to length)
    --------------------------------------- ---------------------------------------
    -- | Filter the given `tableMap` with the search criteria. -- | Filter the given `tableMap` with the search criteria.
    ......
    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