From 3080cac2f3c0f1afe49ce5d4d59e975c3c6bd7e1 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 5 Dec 2018 14:51:14 +0100
Subject: [PATCH] fix build

---
 src/Model/Types.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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