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

intermediate

Browse Source
This commit is contained in:
SJost 2018-12-19 12:42:00 +01:00
parent 47b2808dd4
commit a507c0884f
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/Model/Types.hs
View File

@ -144,16 +144,22 @@ gradingPassed (Points {}) _ = Nothing
gradingPassed (PassPoints {..}) pts = Just $ pts >= passingPoints gradingPassed (PassPoints {..}) pts = Just $ pts >= passingPoints
gradingPassed (PassBinary {}) pts = Just $ pts /= 0 gradingPassed (PassBinary {}) pts = Just $ pts /= 0
newtype SheetGradeSummary
data SheetGradeSummary = SheetGradeSummary data SheetGradeSummary = SheetGradeSummary
{ numSheets -- Total number of sheets, includes all { numSheets :: Count -- Total number of sheets, includes all
, numGradePasses -- Number of sheets required to pass , numSheetsPasses :: Count -- Number of sheets required to pass
, numPointSheets -- Number of sheets having points , numSheetsPoints :: Count -- Number of sheets having points
, numMarked :: Count -- Number of already marked sheets , sumSheetsPoints :: Sum Points -- Total of all points in all sheets
, numMarkedPoints:: Count -- Number of already marked sheets -- Marking dependend
, numMarkedPasses:: Count -- Number of already marked sheets , numMarked :: Count -- Number of already marked sheets
, sumGradePoints :: Sum Points -- Total of achievable points , numMarkedPasses :: Count -- Number of already marked sheets with passes
, achievedPasses :: Count -- , numMarkedPoints :: Count -- Number of already marked sheets with points
, achievedPoints :: Sum Points -- , sumMarkedPoints :: Sum Point -- Achieveable points within marked sheets
--
, achievedPasses :: Count -- Achieved passes (within marked sheets)
, achievedPoints :: Sum Points -- Achieved points (within marked sheets)
} deriving (Generic, Read, Show, Eq) } deriving (Generic, Read, Show, Eq)
instance Monoid SheetGradeSummary where instance Monoid SheetGradeSummary where