From 9d62b3a79e7566cb2d32f8e4147a2237146a0c3a Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 28 Feb 2020 08:53:20 +0100 Subject: [PATCH] fix(allocations): show assignment green --- src/Handler/Allocation/Users.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Allocation/Users.hs b/src/Handler/Allocation/Users.hs index 5654c5dda..200f9a4a9 100644 --- a/src/Handler/Allocation/Users.hs +++ b/src/Handler/Allocation/Users.hs @@ -153,7 +153,7 @@ postAUsersR tid ssh ash = do assignedHeated' res = let maxAssign = min (res ^. resultAllocationUser . _entityVal . _allocationUserTotalCourses . to fromIntegral) (res ^. resultAppliedCourses) - assigned = res ^. resultAssignedCourses + assigned = maxAssign - res ^. resultAssignedCourses in cellAttrs <>~ [ ("class", "heated") , ("style", [st|--hotness: #{tshow (heat maxAssign assigned)}|]) ]