Skip to content

P
purescript-gargantext
Commit 6d8a6f1c authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Merge remote-tracking branch 'origin/441-dev-ngrams-table-sorting-fix' into dev-merge

parents 2733aad4 eade954a
Show whitespace changes
Inline Side-by-side
Showing with 5 additions and 2 deletions
src/Gargantext/Components/NgramsTable.purs
View file @ 6d8a6f1c
...@@ -604,10 +604,13 @@ loadedNgramsTableBodyCpt = here.component "loadedNgramsTableBody" cpt where ...@@ -604,10 +604,13 @@ loadedNgramsTableBodyCpt = here.component "loadedNgramsTableBody" cpt where
where where
colNames = TT.ColumnName <$> ["Show", "Select", "Map", "Stop", "Terms", "Score"] -- see convOrderBy colNames = TT.ColumnName <$> ["Show", "Select", "Map", "Stop", "Terms", "Score"] -- see convOrderBy
ngramsTableOrderWith :: Maybe (TT.OrderByDirection TT.ColumnName)
-> Seq.Seq NgramsElement
-> Seq.Seq NgramsElement
ngramsTableOrderWith orderBy = ngramsTableOrderWith orderBy =
case convOrderBy <$> orderBy of case convOrderBy <$> orderBy of
Just ScoreAsc -> sortWith \x -> x ^. _NgramsElement <<< _occurrences Just ScoreAsc -> sortWith \x -> x ^. _NgramsElement <<< _occurrences <<< to Set.size
Just ScoreDesc -> sortWith \x -> Down $ x ^. _NgramsElement <<< _occurrences Just ScoreDesc -> sortWith \x -> Down $ x ^. _NgramsElement <<< _occurrences <<< to Set.size
Just TermAsc -> sortWith \x -> x ^. _NgramsElement <<< _ngrams Just TermAsc -> sortWith \x -> x ^. _NgramsElement <<< _ngrams
Just TermDesc -> sortWith \x -> Down $ x ^. _NgramsElement <<< _ngrams Just TermDesc -> sortWith \x -> Down $ x ^. _NgramsElement <<< _ngrams
_ -> identity -- the server ordering is enough here _ -> identity -- the server ordering is enough here
......
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