fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(exam grading keys): Fix spacing

Browse Source
This commit is contained in:
Gregor Kleen 2019-06-27 11:09:44 +02:00
parent 6fb1399ef4
commit 24aacef6af
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Exam.hs
View File

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

3
templates/widgets/gradingKey.cassius Normal file
View File

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

2
templates/widgets/gradingKey.hamlet
View File

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