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

fix build

Browse Source
This commit is contained in:
SJost 2018-12-05 14:51:14 +01:00
parent 6c2f5d2f7a
commit 3080cac2f3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Model/Types.hs
View File

@ -139,8 +139,8 @@ data SheetGradeSummary = SheetGradeSummary
, numGradePasses :: Sum Int , numGradePasses :: Sum Int
, sumGradePoints :: Sum Points , sumGradePoints :: Sum Points
, achievedPasses :: Maybe (Sum Int) , achievedPasses :: Maybe (Sum Int)
, achievedPoints :: Maybe (Sum Points)
} deriving (Generic, Read, Show, Eq) } deriving (Generic, Read, Show, Eq)
} deriving (Generic, Show) -- TODO: Show added for Debugging only
instance Monoid SheetGradeSummary where instance Monoid SheetGradeSummary where
mempty = memptydefault mempty = memptydefault