Haskell爲導入的數據類型派生額外的實例

Question

我對Haskell比較新。我寫了一個卡片遊戲uno的克隆，我想要一張卡片的漂亮輸出。我做

import System.Console.ANSI 

提供

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

現在我想補充推導（奧德式），以及，我可以在導入包的源文件中寫入這一點，但應該有一個更簡單的方法來做到這一點 我沒有線索什麼關鍵字谷歌或尋找一本書。

Answer 1

無需編輯庫。在源文件中，狀態：

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

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

說明：fromEnum是返回int（Black -> 0，Red -> 1等）上Enum功能。整數顯然是平等可比的，並且是有序的。

編輯：@風鈴草的版本，在評論，顯然是漂亮：

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

instance Ord Color where 
    compare = compare `on` fromEnum