From 33d9bacc8aa3e412e88251a76a389d19fd148210 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Fri, 6 Dec 2019 17:22:09 +0100
Subject: [PATCH] fix(allocation-list): fix sorting

---
 src/Handler/Allocation/List.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Allocation/List.hs b/src/Handler/Allocation/List.hs
index 9d52233ed..558d4c889 100644
--- a/src/Handler/Allocation/List.hs
+++ b/src/Handler/Allocation/List.hs
@@ -89,7 +89,7 @@ getAllocationListR = do
 
     dbtSorting = mconcat
       [ sortTerm $ queryAllocation . to (E.^. AllocationTerm)
-      , sortSchool $ queryAllocation . to (E.^. AllocationSchool)
+      , sortSchoolShort $ queryAllocation . to (E.^. AllocationSchool)
       , sortAllocationName $ queryAllocation . to (E.^. AllocationName)
       , singletonMap "available" . SortColumn $ view queryAvailable
       , if