$newline never
$if is _Just mcid
  $maybe wdgt <- correctionWdgt
    <section>
      <h2>_{MsgRating}

      $maybe warning <- correctionVisibleWarnWidget
        ^{warning}

      ^{wdgt}

  ^{maybeVoid multipleSubmissionWarnWidget}
  
  <section>
    $case sheetSubmissionMode
      $of SubmissionMode False Nothing
        <p>
          _{MsgSubmissionNoUploadExpected}
      $of _
        <h2>
          $if filesCorrected
            _{MsgSubmissionFilesCorrected}
          $else
            _{MsgSubmissionFiles}
        <p>
          $if showCorrection
            $maybe url <- urlArchive
              <a href=#{url}>_{MsgSubmissionArchiveCorrected}
            \ (
            $maybe url <- urlOriginal
              <a href=#{url}>_{MsgSubmissionOriginal}
            )
          $else
            $maybe url <- urlOriginal
              <a href=#{url}>_{MsgSubmissionArchive}

        $maybe fileTable <- mFileTable
          ^{fileTable}

    $if maySubmit && not (null lastEdits)
      <h3>_{MsgLastEdits}
      <ul>
        $forall (mbName,time) <- lastEdits
          $maybe name <- mbName
            <li>_{MsgEditedBy name time}
          $nothing
            <li>#{time}

  $if maySubmit
    <section>
      <h2>_{MsgSubmissionReplace}
      ^{formWidget}
$else
  ^{formWidget}
