私は持っています
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]です。
前もって感謝します。