fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(allocation-list): fix sorting

Browse Source
This commit is contained in:
Gregor Kleen 2019-12-06 17:22:09 +01:00
parent 80ff4ac2a7
commit 33d9bacc8a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Allocation/List.hs
View File

@ -89,7 +89,7 @@ getAllocationListR = do
dbtSorting = mconcat dbtSorting = mconcat
[ sortTerm $ queryAllocation . to (E.^. AllocationTerm) [ sortTerm $ queryAllocation . to (E.^. AllocationTerm)
, sortSchool $ queryAllocation . to (E.^. AllocationSchool) , sortSchoolShort $ queryAllocation . to (E.^. AllocationSchool)
, sortAllocationName $ queryAllocation . to (E.^. AllocationName) , sortAllocationName $ queryAllocation . to (E.^. AllocationName)
, singletonMap "available" . SortColumn $ view queryAvailable , singletonMap "available" . SortColumn $ view queryAvailable
, if , if