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