12 lines
398 B
Plaintext
12 lines
398 B
Plaintext
$newline never
|
|
<ul>
|
|
$forall (Entity _ Course{courseTerm, courseSchool, courseName}, E.Value mbRating, E.Value mbVeto, E.Value active) <- courses
|
|
<li :not active:.allocation-course--inactive>
|
|
#{courseTerm} - #{courseSchool} - #{courseName}
|
|
$case (mbRating, mbVeto)
|
|
$of (_, Just True)
|
|
, _{MsgApplicationVeto}
|
|
$of (Just g, _)
|
|
, _{g}
|
|
$of _
|