$# Displays one row of the grading summary
$# Expects several variables:
$#  hasPassing :: Maybe Int    -- Should Passing be displayed?
$#  hasPoints  :: Maybe Poibts -- Should Points  be displayed?
$#  summary    :: SheetGradeSummary -- summary to display
$#  sumHeader  :: UniWorXMessage    -- row header
$#
  $maybe nrSheets <- positiveSum $ summary ^. _numSheets
    <tr .table__row >
      <th .table__th>_{sumHeader}
      $maybe _ <- hasPassings
        $with Sum pmax <- summary ^. _numGradePasses
          $maybe Sum pacv <- summary ^. _achievedPasses
              <td .table__td>
                $if pmax /= 0
                  #{textPercentInt pacv pmax}
              <td .table__td>
                #{display pacv} / #{display pmax}
          $nothing
            <td .table__td colspan=2>
              #{display pmax }
      $maybe _ <- hasPoints
        $with Sum pmax <- summary ^. _sumGradePoints
          $maybe Sum pacv <- summary ^. _achievedPoints
              <td .table__td>
                $if pmax /= 0
                  #{textPercent $ realToFrac $ pacv / pmax}
              <td .table__td>
                #{display pacv} / #{display pmax}
          $nothing
            <td .table__td colspan=2>
              #{display pmax }
      <td .table__td>#{display nrSheets}