我是一名初级程序员，我为我的集合创建了一个数据类型。然后我编写了一个函数将它们转换为列表，但我不断收到表达式的以下错误消息：
toList 3 :-: 4 :-: 5 :-: Empty
toList 3 :-: 4 :-: 5 :-: Empty
这是我的代码：
infixr 5 :-:
data Set a = Empty | a :-: (Set a) deriving (Show, Read, Eq, Ord)
toList :: Set a -> [a]
toList Empty = []
toList (x :-: xs) = x : toList xs