fix(exam grading keys): Fix spacing

src/Handler/Exam.hs

@@ -722,7 +722,7 @@ getEShowR tid ssh csh examn = do
       gradingKeyW :: [Points] -> Widget
       gradingKeyW bounds
         = let boundWidgets :: [Widget]
-              boundWidgets = map (toWidget . (pack :: String -> Text) . showFixed True) bounds
+              boundWidgets = toWidget . (pack :: String -> Text) . showFixed True <$> 0 : bounds
               grades :: [ExamGrade]
               grades = universeF
            in $(widgetFile "widgets/gradingKey")

templates/widgets/gradingKey.cassius

@@ -0,0 +1,3 @@
+.table--grading-key
+  th, td
+    padding: 3px;

templates/widgets/gradingKey.hamlet

@@ -1,5 +1,5 @@
 $newline never
-<table>
+<table .table--grading-key>
   <thead>
     <tr>
       <td>