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

Apply 2 suggestion(s) to 2 file(s)

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-16 10:07:12 +00:00 committed by Gregor Kleen
parent 26d49711d3
commit 74219c632d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Exam/AutoOccurrence.hs
View File

@ -165,7 +165,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
occMappingRule = examOccurrenceMappingRule eaofMapping occMappingRule = examOccurrenceMappingRule eaofMapping
loadProp curr max' loadProp curr max'
| Just max'' <- max', max'' /= 0 | Just max'' <- assertM (/= 0) max'
= MsgProportion (toMessage curr) (toMessage max'') (toRational curr / toRational max'') = MsgProportion (toMessage curr) (toMessage max'') (toRational curr / toRational max'')
| otherwise | otherwise
= MsgProportionNoRatio (toMessage curr) $ maybe "∞" toMessage max' = MsgProportionNoRatio (toMessage curr) $ maybe "∞" toMessage max'