Skip to content

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

[FACET] Order by Date Asc by default.

parent a1bda6a4
Hide whitespace changes
Inline Side-by-side
Showing with 11 additions and 8 deletions
src/Gargantext/Database/Facet.hs
View file @ cccbe872
...@@ -259,14 +259,17 @@ filterWith :: (PGOrd date, PGOrd title, PGOrd score) => ...@@ -259,14 +259,17 @@ filterWith :: (PGOrd date, PGOrd title, PGOrd score) =>
filterWith o l order q = limit' l $ offset' o $ orderBy (orderWith order) q filterWith o l order q = limit' l $ offset' o $ orderBy (orderWith order) q
orderWith :: (PGOrd b1, PGOrd b2, PGOrd b3) => Maybe OrderBy -> Order (Facet id (Column b1) (Column b2) hyperdata (Column b3) score) orderWith :: (PGOrd b1, PGOrd b2, PGOrd b3)
orderWith order = case order of => Maybe OrderBy
(Just DateAsc) -> asc facetDoc_created -> Order (Facet id (Column b1) (Column b2) hyperdata (Column b3) score)
orderWith (Just DateAsc) = asc facetDoc_created
orderWith (Just DateDesc) = desc facetDoc_created
(Just TitleAsc) -> asc facetDoc_title orderWith (Just TitleAsc) = asc facetDoc_title
(Just TitleDesc) -> desc facetDoc_title orderWith (Just TitleDesc) = desc facetDoc_title
(Just ScoreAsc) -> asc facetDoc_favorite orderWith (Just ScoreAsc) = asc facetDoc_favorite
(Just ScoreDesc) -> desc facetDoc_favorite orderWith (Just ScoreDesc) = desc facetDoc_favorite
_ -> desc facetDoc_created
orderWith _ = asc facetDoc_created
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