Haskell dérivant des instances supplémentaires pour les types de données importés

Question

Je suis relativement nouveau pour Haskell. J'écris un clone du jeu de cartes uno et je veux une sortie assez colorée d'une carte. Je ne

import System.Console.ANSI 

qui fournit

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

maintenant je veux ajouter dériver (Ord, Eq) ainsi, je pourrais écrire ceci dans le fichier source du package importé, mais il devrait y avoir un moyen plus simple de le faire. Je n'ai aucune idée de ce que les mots-clés à google pour ou chercher dans un livre.

Answer 1

Plus besoin d'éditer la bibliothèque. Dans votre fichier source, état:

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

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

Explication: fromEnum est une fonction sur Enum qui retourne un int (Black -> 0, Red -> 1, etc.). Les nombres entiers sont évidemment égaux, comparables et ordonnés.

Modifier: @ version de raiponce, dans les commentaires, est évidemment plus jolie:

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

instance Ord Color where 
    compare = compare `on` fromEnum