$newline never
#{csrf}
<div .scrolltable>
  <table .table .table--striped .table--hover>
    <tr .table__row .table__row--head>
      <th>
        $# empty cell
      $forall function <- allFunctions
        <th .table__th>
          _{function}
    $forall school <- schools
      $with Entity sid School{schoolName} <- school
        <tr .table__row>
          <th .table__th>
            #{schoolName}
          $forall function <- allFunctions
            <td .table__td>
              $maybe (_, boxView) <- Map.lookup (function, sid) boxRights
                ^{fvWidget boxView}