From 5de9eb791a078a98ceb6284de7a2a2fe9216e97b Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 5 Dec 2018 14:56:36 +0100
Subject: [PATCH] Fix gradingSummart.hamlet

---
 templates/widgets/gradingSummary.hamlet | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/templates/widgets/gradingSummary.hamlet b/templates/widgets/gradingSummary.hamlet
index f72c1edd9..a1c62237c 100644
--- a/templates/widgets/gradingSummary.hamlet
+++ b/templates/widgets/gradingSummary.hamlet
@@ -22,14 +22,9 @@ $# --
         $maybe _ <- hasPoints
           <td .table__td colspan=2>
         <td .table__td>#{display nrNoGrade}
-  $# TODO: for Steffen: show messages conditional upon table content
   $maybe _ <- positiveSum $ bonusSummary ^. _numSheets
     <p>_{MsgSheetTypeInfoBonus}
+      $maybe _ <- positiveSum =<< (bonusSummary ^. _achievedPoints)
+        _{MsgSheetGradingBonusIncluded}
+  $maybe _ <- positiveSum $ informationalSummary ^. _numSheets
     <p>_{MsgSheetTypeInfoNotGraded}
-    $maybe _ <- positiveSum =<< (bonusSummary ^. _achievedPoints)
-      <p>_{MsgSheetGradingBonusIncluded}
-  $nothing
-    $#TODO: MsgSheetTypeInfo into part about Bonus and about Informational
-    $maybe _ <- positiveSum $ informationalSummary ^. _numSheets
-      <p>_{MsgSheetTypeInfoBonus}
-      <p>_{MsgSheetTypeInfoNotGraded}
\ No newline at end of file