fradrive-old/templates/widgets/gradingKey.hamlet

$newline never
<table>
  <thead>
    <tr>
      <td>
      $forall g <- grades
        <th>
          _{g}
  <tbody>
    <tr>
      <th>
        _{MsgGradingFrom}
      $forall (_, fv) <- bounds
        <td>
          ^{fvInput fv}