test/Types.hs

   1 module Types where
   2
   3 data G2 = No | Yes
   4  deriving (Eq, Ord, Show)
   5
   6 data P1 = The
   7  deriving (Eq, Ord, Show)
   8
   9 data P2 = This | That
  10  deriving (Eq, Ord, Show)
  11
  12 data G6 = ToReject | Insufficient | Acceptable | Good | VeryGood | Perfect | TooGood
  13  deriving (Bounded, Enum, Eq, Ord, Show)
  14
  15 -- | Note that the grades 1, 2, 4, and 12 are absent.
  16 data DanishSchoolGrade
  17  = D0  -- ^ the completely unacceptable performance
  18  | D3  -- ^ the very hesitant, very insufficient, and unsatisfactory performance
  19  | D5  -- ^ the hesitant and not satisfactory performance
  20  | D6  -- ^ the just acceptable performance
  21  | D7  -- ^ the mediocre performance, slightly below average
  22  | D8  -- ^ the average performance
  23  | D9  -- ^ the good performance, a little above average
  24  | D10 -- ^ the excellent but not particularly independent performance
  25  | D11 -- ^ the independent and excellent performance
  26  | D13 -- ^ the exceptionally independent and excellent performance
  27  deriving (Bounded, Enum, Eq, Ord, Show)