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"