$newline never
\<!doctype html>
<html>
  <head>
    <meta charset="UTF-8">
    <style>
      h1 {
        font-size: 1.25em;
        font-variant: small-caps;
        font-weight: normal;
      }
      .bold {
        font-weight: bold;
      }
  <body>
    $case allocs
      $of [Allocation{allocationSchool, allocationName}]
        <h1>
          _{SomeMessage $ MsgMailSubjectAllocationStaffRegister allocationSchool allocationName}
      $of _
        <h1>
          _{SomeMessage $ MsgMailAllocationStaffRegisterIntroMultiple (length allocs)}

        <ul>
          $forall Allocation{allocationName, allocationSchool} <- allocs
            <li>
              _{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}

    <p>
      _{SomeMessage MsgMailAllocationStaffRegisterNewCourse}
      <br>
      <a href=@{CourseNewR}>
        _{SomeMessage MsgCourseNew}

    $if doRegisterDeadlines
      $if singleRegisterDeadline
        $maybe (_, registerDeadline) <- preview _head deadlines
          $maybe until <- registerDeadline
            <p>
              _{SomeMessage $ MsgMailAllocationStaffRegisterDeadline (length allocs) until}
      $else
        <p>
          _{SomeMessage $ MsgMailAllocationStaffRegisterDeadlineMultiple}

        <ul>
          $forall (Allocation{allocationSchool, allocationName}, staffRegisterDeadline) <- deadlines
            <li>
              <p .bold>
                _{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
              <p>
                $maybe until <- staffRegisterDeadline
                  _{SomeMessage $ MsgMailAllocationStaffRegisterDeadlineSingle until}
                $nothing
                  _{SomeMessage MsgMailAllocationStaffRegisterDeadlineSingleNothing}


    ^{ihamletSomeMessage editNotifications}
