Пайтона, в земле Haskell

Question

образец кода, который показывает, как два объекта могут быть сравнены в Python с использованием == оператора:

class Person: 
    def __init__(name): 
    this.name = name 

    def __eq__(nextPerson): 
    if this.name == nextPerson.name: 
     return True 
    return False 

if __name__ == '__main__': 
    personOne = Person("saran") 
    personTwo = Person("madhavan") 
    personThree = Person("saran") 
    print personOne == personTwo 
    print personOne == personThree 

Это должно напечатать:

False 
True 

Как я могу напишите приведенный выше код, используя Eq typeclass в Haskell?

Answer 1

data Person = Person { name::String } deriving (Show) 

instance Eq Person where 
    x == y = (name x) == (name y) 

main = do 
    let personOne = Person { name="saran" } 
    let personTwo = Person { name="madhavan" } 
    let personThree = Person { name="saran" } 
    print $ personOne == personTwo 
    print $ personOne == personThree