Haskell derivando instancias adicionales para los tipos de datos importados

Question

Soy relativamente nuevo en Haskell. Escribo un clon del juego de cartas uno y quiero una bonita salida en color de una carta. Hago

import System.Console.ANSI 

cuales proporciona

data Color = Black 
      | Red 
      | Green 
      | Yellow 
      | Blue 
      | Magenta 
      | Cyan 
      | White 
      deriving (Bounded, Enum, Show) 

ahora quiero añadir que deriva (Ord, Ec) así, podría escribir esto en el archivo de origen del paquete importado, pero debe haber una forma más fácil de hacer esto. No tengo ni idea de qué palabras clave buscar o buscar en un libro de google.

Answer 1

No es necesario editar la biblioteca. En el archivo de origen, estado:

instance Eq Color where 
    x == y = fromEnum x == fromEnum y 

instance Ord Color where 
    compare x y = compare (fromEnum x) (fromEnum y) 

Explicación: fromEnum es una función de Enum que devuelve un int (Black -> 0, Red -> 1, etc.). Los enteros son obviamente equivalentes a la igualdad y ordenados.

Editar: @ versión de rampion, en los comentarios, es obviamente más bonita:

instance Eq Color where 
    (==) = (==) `on` fromEnum 

instance Ord Color where 
    compare = compare `on` fromEnum