hid-examples-0.1.0.0: stockquotes/BoundedEnum.hs

module BoundedEnum (
    BoundedEnum (range)
  ) where

import Prelude (Enum (enumFrom), Bounded (minBound))

class (Enum a, Bounded a) => BoundedEnum a where
  range :: [a]
  range = enumFrom minBound