沒有實例產生

Question

ghci的是給我的錯誤（顯示）「沒有實例（顯示）因使用而產生的‘commaSeperated’」

什麼即時試圖做的是定義一個顯示爲我的數據集使用大括號而不是方形。我在這裏做錯了什麼？

data Set a = Set [a] 

instance Show (Set a) where 
    show (Set a) = "{" ++ init (commaSeparated a) ++ "}" 

commaSeparated :: Show a => [a] -> [Char] 
commaSeparated [] = "" 
commaSeparated (x:xs) = show x ++ "," ++ commaSeparated xs 

Answer 1

您的instance聲明沒有上下文。將其重寫爲instance Show a => Show (Set a)。