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

    <p .result>
      $case externalExamResultResult
        $of ExamAttended grade
          $if externalExamShowGrades
            _{grade}
          $else
            $if view (passingGrade . _Wrapped) grade
              _{MsgExamPassed}
            $else
              _{MsgExamNotPassed}
        $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}