nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

sort users by ident

Browse source
This commit is contained in:
nek0 2019-11-01 00:00:41 +01:00
parent 173c4f4ee7
commit 49d0aa9528
1 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Model/User.hs
View file

@ -68,14 +68,16 @@ userSelect
-> MateHandler [UserSummary]
userSelect ref conn = do
today <- utctDay <$> liftIO getCurrentTime
users <- liftIO $ runSelect conn (case ref of
AllUsers -> selectTable userTable
ActiveUsers -> keepWhen (\(_, _, _, ts, _, _) ->
users <- liftIO $ runSelect conn (
orderBy (asc (\(_, ident, _, _, _, _) -> ident)) (
keepWhen (\(_, _, _, ts, _, _) -> case ref of
AllUsers ->
C.constant True
ActiveUsers ->
ts .>= C.constant (addDays (-30) today)
) <<< queryTable userTable
OldUsers -> keepWhen (\(_, _, _, ts, _, _) ->
ts .<= C.constant (addDays (-30) today)
) <<< queryTable userTable
OldUsers ->
ts .< C.constant (addDays (-30) today)
) <<< selectTable userTable)
) :: MateHandler
[ ( Int
, Text