编写Eq实例

Question

我有这个功能：

func:: [[[Char]]] -> Int -> [(Int,Int,[Char],[Char],[Char],[Char],[Char],[Char],[Char],[Char])] -> [[[Char]]] 
func mymap scope klkl =

该函数在GHCi上运行正常，但是当我在Hugs上运行此代码时，我收到此错误：

Hugs> :l asdf
ERROR "asdf.hs":238 - Instance of Eq (Int,Int,[Char],[Char],[Char],[Char],[Char],[Char],[Char],[Char]) required for definition of func

你能告诉我如何为Hugs解决这个问题吗？我已经有10个元组的show函数。

Answer 1

你典型的Eq实例就像他们来的那样。我将举例说明三元组，您可以使用自己喜欢的编辑器将其扩展为一个10元组。

instance (Eq a, Eq b, Eq c) => Eq (a, b, c) where
    (a, b, c) == (a', b', c') = a == a' && b == b' && c == c'