From 24aacef6af65d1c6c0cec53bd121abe1d889de2d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Thu, 27 Jun 2019 11:09:44 +0200
Subject: [PATCH] fix(exam grading keys): Fix spacing

---
 src/Handler/Exam.hs                  | 2 +-
 templates/widgets/gradingKey.cassius | 3 +++
 templates/widgets/gradingKey.hamlet  | 2 +-
 3 files changed, 5 insertions(+), 2 deletions(-)
 create mode 100644 templates/widgets/gradingKey.cassius

diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index 51693fe85..f8fb8722e 100644
--- a/src/Handler/Exam.hs
+++ b/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")
diff --git a/templates/widgets/gradingKey.cassius b/templates/widgets/gradingKey.cassius
new file mode 100644
index 000000000..396f41818
--- /dev/null
+++ b/templates/widgets/gradingKey.cassius
@@ -0,0 +1,3 @@
+.table--grading-key
+  th, td
+    padding: 3px;
\ No newline at end of file
diff --git a/templates/widgets/gradingKey.hamlet b/templates/widgets/gradingKey.hamlet
index e035911e1..dac9e9537 100644
--- a/templates/widgets/gradingKey.hamlet
+++ b/templates/widgets/gradingKey.hamlet
@@ -1,5 +1,5 @@
 $newline never
-<table>
+<table .table--grading-key>
   <thead>
     <tr>
       <td>