Apply 2 suggestion(s) to 2 file(s)
This commit is contained in:
parent
26d49711d3
commit
74219c632d
@ -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'
|
||||
|
||||
@ -18,7 +18,7 @@ $newline never
|
||||
<tr>
|
||||
<td>
|
||||
<td>
|
||||
<td .explanation> _{MsgExamRoomCapacityTip}
|
||||
<td .explanation>_{MsgExamRoomCapacityTip}
|
||||
<td>
|
||||
<td>
|
||||
<td>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user