$newline never
\<!doctype html>
<html>
  <head>
    <meta charset="UTF-8">
    <style>
      h1 {
        font-size: 1.25em;
        font-variant: small-caps;
        font-weight: normal;
      }
  <body>
    <h1>
      _{SomeMessage $ MsgMailSubjectAllocationResults allocationName}

    <p>
      _{SomeMessage MsgAllocationResultsTip}

    $if not (null warnSubstituteCourses)
      <p>
        _{SomeMessage MsgAllocationResultsLecturerSubstituteCoursesWarning}
      <ul>
        $forall Course{courseTerm, courseSchool, courseShorthand, courseName} <- warnSubstituteCourses
          <li>
            <a href=@{CourseR courseTerm courseSchool courseShorthand CEditR}>
              #{courseName}

    $if not (null lecturerResults)
      <p>
        _{SomeMessage MsgAllocationResultsLecturer}
      <ul>
        $forall msg <- lecturerResults
          <li>_{msg}

    $maybe pResults <- participantResults
      <p>
        _{SomeMessage MsgAllocationResultsStudentTip}
      $case pResults 
        $of []
          <p>_{SomeMessage MsgAllocationNoResultsStudent}
        $of [csh]
          <p>_{SomeMessage $ MsgAllocationResultStudent csh}
          <p>_{SomeMessage MsgAllocationResultStudentRegistrationTip}
        $of cshs
          <p>
            _{SomeMessage MsgAllocationResultsStudent}
          <ul>
            $forall csh <- cshs
              <li>#{csh}
          <p>_{SomeMessage MsgAllocationResultsStudentRegistrationTip}

    ^{ihamletSomeMessage editNotifications}
