私は単純なタイプを持っています
data Day = Monday | Tuesday | Wednesday | Thursday | Friday
haskell初心者なので以下のように書き==
ます。
(==) :: Day -> Day -> Bool
Monday == Monday = True
Tuesday == Tuesday = True
Wednesday == Wednesday = True
...
x == y = False
==
実現を記述する短い方法はありますか?