Enum с начальным значением

Question

Мне нужно экспортировать некоторые перечисления из кода C++. https://github.com/horde3d/Horde3D/blob/master/Horde3D/Bindings/C%2B%2B/Horde3D.h

struct H3DGeoRes 
{ 
    enum List 
    { 
     GeometryElem = 200, 
     //... 
    }; 
}; 

struct H3DAnimRes 
{ 
    enum List 
    { 
     EntityElem = 300, 
     //... 
    }; 
}; 

Как я могу написать это в Haskell? Могу ли я переопределить fromEnum для типа?

data H3DGeoRes = GeometryElem | ... deriving (Show, Eq, Ord, Bounded, Enum) 
data H3DAnimRes = EntityElem | ... deriving (Show, Eq, Ord, Bounded, Enum) 

-- not work 

instance Enum H3DGeoRes where 
    fromEnum x = (fromEnum x) + 200 

instance Enum H3DAnimRes where 
    fromEnum x = (fromEnum x) + 300 

Answer 1

Один из способов решить проблему, не слишком много печатать, чтобы создать новый класс типа, похожий на Enum. Давайте назовем это Enumerable:

class Enumerable a where fromEnumerable :: a -> Int

Вы можете написать экземпляр для Enumerable с помощью Enum:

instance Enumerable H3DGeoRes where fromEnumerable x = fromEnum x + 200

Всякий раз, используя перечисление ваших типов H3DGeoRes и H3DAnimRes вам придется использовать функции от класса Enumerable, а не класса Enum. Это немного неприятно, так как это помешает вам использовать удобный синтаксис списка для Enum.