我有以下类型类,它模拟了类似 SQL 的查询优化:
class OptimizableQuery q where
type Optimized q :: *
optimize :: q -> Optimized q
instance Query q => OptimizableQuery q where
type Optimized q = q
optimize q = q
instance (Query q, OptimizableQuery q) => OptimizableQuery (Select (Select q p) p) where
type Optimized (Select (Select q p) p) = Select (Optimized q) p
optimize (Select (Select q _) p) = Select (optimize q) p
问题是我在优化类型函数上收到错误“冲突族实例声明”。为什么会这样,我该如何解决?拥有一个“后备实例”真的很好,而不是必须用尽所有案例(可能很多)......