$# Displays gradings Summary for various purposes
$# Expects several variables:
$#  sumSummaries    :: SheetGradeSummary -- summary over all grading types
$#  hasPassing      :: Maybe Int    -- Should Passing be displayed?
$#  hasMarkedPasses :: Maybe Int    -- Number of marked pass-sheets
$#  hasPoints       :: Maybe Points -- Should Points  be displayed?
$#  hasMarkedPoints :: Maybe Int    -- Number of marked point-sheets
$# --
<div>
  <h3>_{title $ 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>_{MsgSheetTypeInfoBonus} #
      $maybe _ <- positiveSum =<< (bonusSummary ^. _achievedPoints)
        _{MsgSheetGradingBonusIncluded}
  $maybe _ <- positiveSum $ informationalSummary ^. _numSheets
    <p>_{MsgSheetTypeInfoNotGraded}