$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 allocs
        $of [Allocation{allocationSchool, allocationName}]
          _{SomeMessage $ MsgMailSubjectAllocationRegister allocationSchool allocationName}
        $of _
          _{SomeMessage $ MsgMailAllocationRegisterIntroMultiple (length allocs)}

    <p>
      _{SomeMessage $ MsgMailAllocationRegister (length allocs)}
  
    $case allocs
      $of [Allocation{allocationTerm, allocationSchool, allocationShorthand, allocationName}]
        <a href=@{AllocationR allocationTerm allocationSchool allocationShorthand AShowR}>
          _{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
      $of _
        <ul>
          $forall Allocation{allocationTerm, allocationSchool, allocationShorthand, allocationName} <- allocs
            <li>
              <a href=@{AllocationR allocationTerm allocationSchool allocationShorthand AShowR}>
                _{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}

    $if doRegisterDeadlines
      $if singleRegisterDeadline
        $maybe (_, registerDeadline) <- preview _head deadlines
          $maybe until <- registerDeadline
            <p>
              _{SomeMessage $ MsgMailAllocationRegisterDeadline until}
      $else
        <p>
          _{SomeMessage $ MsgMailAllocationRegisterDeadlineMultiple}

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

    ^{ihamletSomeMessage editNotifications}
