From 9aaee52ce12f3d80fdc36c4496fe3a1939e6feba Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Fri, 2 Nov 2018 12:20:43 +0100
Subject: [PATCH] BUGFIX: sort corrections by assigned time (undefined
 sortColumn)

---
 src/Handler/Corrections.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 7e4247d19..743bee3c1 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -238,6 +238,9 @@ makeCorrectionsTable whereClause dbtColonnade psValidator dbtProj' = do
       , ( "ratingtime"
         , SortColumn $ \((_ `E.InnerJoin` _ `E.InnerJoin` submission) `E.LeftOuterJoin` _) -> submission E.^. SubmissionRatingTime
         )
+      , ( "assignedtime"
+        , SortColumn $ \((_ `E.InnerJoin` _ `E.InnerJoin` submission) `E.LeftOuterJoin` _) -> submission E.^. SubmissionRatingAssigned
+        )	
       ]
     , dbtFilter    = Map.fromList
       [ ( "term"