$# Displays gradings Summary for various purposes
$# --
<div>
  <h3>_{MsgSheetGradingSummaryTitle $ getSum $ numSheets $ sumSummaries}
  <table .table .table--striped>
    <tr .table__row .table__row--head>
      <th>
      $# empty cell for row headers
      $maybe _ <- hasPassings
        <th .table__th colspan=2>_{MsgSheetGradingPassing'}
      $maybe _ <- hasPoints
        <th .table__th colspan=2>_{MsgSheetGradingPoints'}
      <th .table__th>_{MsgSheetGradingCount'}
        $# Number of Sheet/Submissions used for calculating maximum passes/points
    $forall row <- rowWdgts
      ^{row}
    $maybe nrNoGrade <- positiveSum $ numNotGraded
      <tr .table__row>
        <th .table__th>_{MsgSheetTypeNotGraded}
        $maybe _ <- hasPassings
          <td colspan=2>
        $maybe _ <- hasPoints
          <td .table__td colspan=2>
        <td .table__td>#{display nrNoGrade}
  $maybe _ <- positiveSum $ bonusSummary ^. _numSheets
    <p>_{MsgSheetTypeInfo}
    $maybe _ <- positiveSum =<< (bonusSummary ^. _achievedPoints)
      <p>_{MsgSheetGradingBonusIncluded}
  $nothing
    $#TODO: MsgSheetTypeInfo into part about Bonus and about Informational
    $maybe _ <- positiveSum $ informationalSummary ^. _numSheets
      <p>_{MsgSheetTypeInfo}