fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(allocations): show assignment green

Browse Source
This commit is contained in:
Gregor Kleen 2020-02-28 08:53:20 +01:00
parent 50442a02d1
commit 9d62b3a79e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Allocation/Users.hs
View File

@ -153,7 +153,7 @@ postAUsersR tid ssh ash = do
assignedHeated' res assignedHeated' res
= let maxAssign = min (res ^. resultAllocationUser . _entityVal . _allocationUserTotalCourses . to fromIntegral) = let maxAssign = min (res ^. resultAllocationUser . _entityVal . _allocationUserTotalCourses . to fromIntegral)
(res ^. resultAppliedCourses) (res ^. resultAppliedCourses)
assigned = res ^. resultAssignedCourses assigned = maxAssign - res ^. resultAssignedCourses
in cellAttrs <>~ [ ("class", "heated") in cellAttrs <>~ [ ("class", "heated")
, ("style", [st|--hotness: #{tshow (heat maxAssign assigned)}|]) , ("style", [st|--hotness: #{tshow (heat maxAssign assigned)}|])
] ]