Question

我正在学习Haskell并且我已经完成了以下任务 - 我有一个由两种混合数据类型组成的新类型，我必须使它成为Eq的一个实例，而不使用deriving。这就是我所拥有的：

data Number = One | Two | Three deriving Eq
data Character = A | B | C deriving Eq
newtype Combo = Combo ((Character, Character),(Number, Number))

instance Eq Combo where
    Combo ((a1, a2),(x1,x2)) == Combo ((b1, b2),(y1, y2)) = (a1 == b1) && (a2 == b2) && (x1 == y1) && (x2 == y2)

然而，Hugs全力以赴

ERROR "testing.hs":5 - Ambiguous class occurrence "Eq"
*** Could refer to: Hugs.Prelude.Eq Main.Eq Main.Eq Main.Eq Main.Eq Main.Eq

我该如何解决这个问题？我无法真正导入Eq隐藏某些内容，因为我需要它来检查数字或字符的给定成员是否相等。

Answer 1

更改

instance Eq Combo where
Combo ((a1, a2),(x1,x2)) == Combo ((b1, b2),(y1, y2)) = (a1 == b1) && (a2 == b2) && (x1 == y1) && (x2 == y2)

到

instance Main.Eq Combo where
Combo ((a1, a2),(x1,x2)) == Combo ((b1, b2),(y1, y2)) = (a1 == b1) && (a2 == b2) && (x1 == y1) && (x2 == y2)

显然修正了这个错误。

创建Eq的newtype实例

1 个答案: