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

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

View File

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

View File

@ -18,7 +18,7 @@ $newline never
<tr>
<td>
<td>
<td .explanation> _{MsgExamRoomCapacityTip}
<td .explanation>_{MsgExamRoomCapacityTip}
<td>
<td>
<td>