diff --git a/src/Model/Types.hs b/src/Model/Types.hs
index bb0fdebd8..222b84a22 100644
--- a/src/Model/Types.hs
+++ b/src/Model/Types.hs
@@ -139,8 +139,8 @@ data SheetGradeSummary = SheetGradeSummary
   , numGradePasses :: Sum Int
   , sumGradePoints :: Sum Points
   , achievedPasses :: Maybe (Sum Int)
+  , achievedPoints :: Maybe (Sum Points)
   } deriving (Generic, Read, Show, Eq)
-} deriving (Generic, Show) -- TODO: Show added for Debugging only
 
 instance Monoid SheetGradeSummary where
   mempty  = memptydefault