[NGRAMS] Ordering

parent 3d5af0f2
......@@ -697,7 +697,7 @@ ngramsTableSpec = simpleSpec performAction render
[ "Graph"
, "Stop"
, "Terms"
, "Occurences (nb)"
, "Score (Occurences)" -- see convOrderBy
]
, totalRecords: 47361 -- TODO
}
......@@ -740,7 +740,10 @@ loadNgramsTable { nodeId, listIds, termListFilter, termSizeFilter
})
(Just nodeId)
where
convOrderBy _ = DateAsc -- TODO
convOrderBy (T.ASC (T.ColumnName "Score (Occurrences)")) = ScoreAsc
convOrderBy (T.DESC (T.ColumnName "Score (Occurrences)")) = ScoreDesc
convOrderBy (T.ASC _) = TermAsc
convOrderBy (T.DESC _) = TermDesc
ngramsLoaderClass :: Loader.LoaderClass PageParams VersionedNgramsTable
ngramsLoaderClass = Loader.createLoaderClass "NgramsTableLoader" loadNgramsTable
......
......@@ -310,7 +310,8 @@ type Limit = Int
type Offset = Int
data OrderBy = DateAsc | DateDesc
| TitleAsc | TitleDesc
| ScoreDesc | ScoreAsc
| ScoreAsc | ScoreDesc
| TermAsc | TermDesc
derive instance genericOrderBy :: Generic OrderBy _
......
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