$newline never
\<!doctype html>
<html>
  <head>
    <meta charset="UTF-8">
    <style>
      h1 {
        font-size: 1.25em;
        font-variant: small-caps;
        font-weight: normal;
      }

      .comment {
        white-space: pre-wrap;
        font-family: monospace;
      }
  <body>
    <h1>
      _{SomeMessage (MsgMailSubmissionRatedIntro (CI.original courseName) termDesc)}
    <dl>
      <dt>
        _{SomeMessage MsgSubmission}
      <dd>
        <a href=@{CSubmissionR tid ssh csh shn csid SubShowR}>
          #{csid}
      $maybe User{userDisplayName, userSurname, userEmail} <- corrector
        <dt>
          _{SomeMessage MsgRatingBy}
        <dd>
          #{nameEmailHtml userEmail userDisplayName userSurname}
      $maybe time <- submissionRatingTime'
        <dt>
          _{SomeMessage MsgRatingTime}
        <dd>
          #{time}
      <dt> ^{sheetTypeDesc}
      $maybe points <- submissionRatingPoints
        $maybe grading <- preview _grading sheetType
          $case grading 
            $of Points{..}
              <dd>
                _{SomeMessage (MsgAchievedOf points maxPoints)}
            $of PassPoints{..}
              <dd>
                $if fromMaybe False (gradingPassed grading points)
                  _{SomeMessage MsgPassed}
                $else
                  _{SomeMessage MsgNotPassed}
              <dt>
                _{SomeMessage MsgAchievedPassPoints}
              <dd>
                _{SomeMessage (MsgPassAchievedOf points passingPoints maxPoints)}
            $of PassBinary
              <dd>
                $if fromMaybe False (gradingPassed grading points)
                  _{SomeMessage MsgPassed}
                $else
                  _{SomeMessage MsgNotPassed}
            $of PassAlways
              <dd>
              
      $maybe comment <- submissionRatingComment
        <dt>
          _{SomeMessage MsgRatingComment}
        <dd .comment>
          #{comment}
    ^{ihamletSomeMessage editNotifications}
