[NGRAMS] Ordering

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