1 {-# LANGUAGE DeriveGeneric #-}
5 import GHC.Generics (Generic)
9 deriving (Eq, Ord, Show)
12 deriving (Eq, Ord, Show, Generic)
16 deriving (Eq, Ord, Show, Generic)
26 deriving (Bounded, Enum, Eq, Ord, Show)
28 -- | Note that the grades 1, 2, 4, and 12 are absent.
29 data DanishSchoolGrade
30 = D0 -- ^ the completely unacceptable performance
31 | D3 -- ^ the very hesitant, very insufficient, and unsatisfactory performance
32 | D5 -- ^ the hesitant and not satisfactory performance
33 | D6 -- ^ the just acceptable performance
34 | D7 -- ^ the mediocre performance, slightly below average
35 | D8 -- ^ the average performance
36 | D9 -- ^ the good performance, a little above average
37 | D10 -- ^ the excellent but not particularly independent performance
38 | D11 -- ^ the independent and excellent performance
39 | D13 -- ^ the exceptionally independent and excellent performance
40 deriving (Bounded, Enum, Eq, Ord, Show)