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

Versionbump: Monoid&Semigroup-instances.

Browse Source
This commit is contained in:
Stephan Barth 2024-02-22 04:13:32 +01:00
parent e28e0c5afb
commit a008e32379
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Model/Types/Sheet.hs
View File

@ -91,10 +91,9 @@ data SheetGradeSummary = SheetGradeSummary
instance Monoid SheetGradeSummary where instance Monoid SheetGradeSummary where
mempty = memptydefault mempty = memptydefault
mappend = mappenddefault
instance Semigroup SheetGradeSummary where instance Semigroup SheetGradeSummary where
(<>) = mappend -- TODO: remove for GHC > 8.4.x (<>) = mappenddefault
makeLenses_ ''SheetGradeSummary makeLenses_ ''SheetGradeSummary
@ -155,10 +154,9 @@ data SheetTypeSummary exampartid = SheetTypeSummary
instance Ord epid => Monoid (SheetTypeSummary epid) where instance Ord epid => Monoid (SheetTypeSummary epid) where
mempty = memptydefault mempty = memptydefault
mappend = mappenddefault
instance Ord epid => Semigroup (SheetTypeSummary epid) where instance Ord epid => Semigroup (SheetTypeSummary epid) where
(<>) = mappend -- TODO: remove for GHC > 8.4.x (<>) = mappenddefault
makeLenses_ ''SheetTypeSummary makeLenses_ ''SheetTypeSummary