$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>
    <h1>
      $case allocations
        $of [Entity _ Allocation{allocationSchool, allocationName}]
          _{SomeMessage $ MsgMailSubjectAllocationAllocation allocationSchool allocationName}
        $of _
          _{SomeMessage $ MsgMailAllocationAllocationIntroMultiple (length allocations)}

    <p>
      _{SomeMessage $ MsgMailAllocationAllocation (length allocations)}
      <ul>
        $forall (Entity _ Allocation{allocationSchool, allocationName}, Entity _ Course{courseTerm, courseSchool, courseShorthand, courseName}) <- courses
          <li>
            <a href=@{CourseR courseTerm courseSchool courseShorthand CApplicationsR}>
              #{courseName} (_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName})

    $if doDeadlines
      $if sameDeadlines
        $maybe (_, registerDeadline, allocationDeadline) <- preview _head deadlines
          $maybe until <- guardOnM doRegisterDeadlines registerDeadline
            <p>
              _{SomeMessage $ MsgMailAllocationApplicationsMayChange until}

          $maybe until <- allocationDeadline
            <p>
              _{SomeMessage $ MsgMailAllocationAllocationDeadline until}
      $else
        $if doRegisterDeadlines
          <p>
            _{SomeMessage MsgMailAllocationApplicationsMayChangeMultiple}
        <p>
          _{SomeMessage MsgMailAllocationAllocationDeadlineMultiple}

        <ul>
          $forall (Allocation{allocationSchool, allocationName}, registerDeadline, allocationDeadline) <- deadlines
            <li>
              <p .bold>
                _{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
              $if doRegisterDeadlines
                <p>
                  $maybe until <- registerDeadline
                    _{SomeMessage $ MsgMailAllocationApplicationsRegisterDeadline until}
                  $nothing
                    _{SomeMessage MsgMailAllocationApplicationsRegisterDeadlineNothing}
              <p>
                $maybe until <- allocationDeadline
                  _{SomeMessage $ MsgMailAllocationApplicationsAllocationDeadline until}
                $nothing
                  _{SomeMessage MsgMailAllocationApplicationsAllocationDeadlineNothing}
          

    ^{ihamletSomeMessage editNotifications}
