$newline never
$maybe ExternalExamResult{externalExamResultResult} <- mResult
  <section>
    <h2>
      _{MsgExamResult}

    <p .result>
      $case externalExamResultResult
        $of ExamAttended grade
          _{grade}
        $of ExamNoShow
          _{MsgExamNoShow}
        $of ExamVoided
          _{MsgExamVoided}
    
<section>
  <dl .deflist>
    <dt .deflist__dt>_{MsgTerm}
    <dd .deflist__dd>
      _{unTermKey externalExamTerm}
    <dt .deflist__dt>_{MsgCourseSchool}
    <dd .deflist__dd>
      #{schoolName}
    <dt .deflist__dt>_{MsgCourseName}
    <dd .deflist__dd>
      #{externalExamCourseName}
    <dt .deflist__dt>_{MsgExamName}
    <dd .deflist__dd>
      #{externalExamExamName}
    $maybe examTime <- fmap externalExamResultTime mResult <|> externalExamDefaultTime
      <dt .deflist__dt>
        _{MsgExamTime}
      <dd .deflist__dd>
        ^{formatTimeW SelFormatDateTime examTime}
    $if not (null addSchools)
      <dt .deflist__dt>
        _{MsgExternalExamExamOfficeSchools}
      <dd .deflist__dd>
        <ul>
          $forall Entity _ School{schoolName} <- addSchools
            <li>
              #{schoolName}
    $if not (null staff)
      <dt .deflist__dt>
        _{MsgExternalExamStaff}
      <dd .deflist__dd>
        <ul>
          $forall s <- staff
            $case s
              $of Right (Entity _ User{userDisplayName, userDisplayEmail, userSurname})
                <li>
                  ^{nameEmailWidget userDisplayEmail userDisplayName userSurname}
              $of Left email
                <li .email>
                  #{email}

