Jak utworzyć typ wystąpienia Eq

Question

Mam typ danych o nazwie Praat. Chcę, aby Praat było instancją Eq, więc dwa Praat s są równe wtedy i tylko wtedy, gdy mx są równe. Jak to zrobić?

-- data type 
data Praat t = Praat [k] [(k,k,k,k)] 

-- praat gives the maximum frequency 
Praat t -> Int 
mx (Praat [] _) = 0 
mx (Praat (e:es) pt) = ........... 

Oto jak próbuję zdefiniować instancję, ale nie działa.

-- I want to make Praat instance of Eq so that two Praat are equal 
-- when their respective `mx` are equal 
instance Eq Praat where 
    mx :: (Praat k)->Int 
    (mx k) == (mx k) = True 
    _ == _ = False 

Answer 1

instance Eq Praat where 
    x == y = mx x == mx y 

Jest to dość dużo bezpośrednim tłumaczeniem tego, co pan powiedział. x jest równy y, gdy mx x == mx y.