我有
data Dictionary a = Empty
| Branch (a, Bool, Dictionary a) (Dictionary a)
deriving (Ord, Eq)
instance Show (Dictionary a) where show = showDict
showDict (Branch (val, e, dict) dict2) = "My dict is : " ++ val
我知道这绝对是错误的,但我找不到如何写这个。在 showDict 函数中,val 的类型是一个但预期的类型是 [Char]。
提前致谢。