Apply 1 suggestion(s) to 1 file(s)

This commit is contained in:
Wolfgang Witt 2021-04-13 10:31:40 +00:00 committed by Gregor Kleen
parent 5de6efcf29
commit ca3d2713e6

View File

@ -44,8 +44,7 @@ data CourseFavouriteToggleButton
| BtnCourseFavouriteToggleAutomatic | BtnCourseFavouriteToggleAutomatic
| BtnCourseFavouriteToggleOff | BtnCourseFavouriteToggleOff
deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable) deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable)
instance Universe CourseFavouriteToggleButton deriving anyclass (Universe, Finite)
instance Finite CourseFavouriteToggleButton
nullaryPathPiece ''CourseFavouriteToggleButton $ camelToPathPiece' 4 nullaryPathPiece ''CourseFavouriteToggleButton $ camelToPathPiece' 4