From 1e6f6e429667be60794b5d334744a31658dce555 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Wed, 16 Jun 2021 23:15:01 +0200
Subject: [PATCH] chore: fix tests

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

diff --git a/src/Handler/Allocation/UserForm.hs b/src/Handler/Allocation/UserForm.hs
index 8618f3458..48ca7ca7d 100644
--- a/src/Handler/Allocation/UserForm.hs
+++ b/src/Handler/Allocation/UserForm.hs
@@ -220,7 +220,7 @@ courseParticipantForm courses csrf = do
                       )
   let linesWidget = Map.intersectionWith (,) courses lines'
         & Map.elems
-        & sortBy (comparing . view $ _1 . _1)
+        & sortOn (view $ _1 . _1)
         & view (folded . _2 . _2)
   return ( forM lines' $ view _1
          , $(widgetFile "allocation/user-course-participant-form/layout")