与我之前关于遍历数据结构的问题相关,当我将代码与 uniplate 包一起使用时,我遇到了使代码通用的问题。我正在处理Language.Exts.Annotated.Syntax模块中的数据结构,它们都是具有类型参数的泛型l
。这l
在整个树中都是一样的。
我正在编写的代码是这样的:
doInt :: Child1 l -> Child1 l
doInt (Child1 l n) = Child1 l (n + 1)
doString :: Child2 l -> Child2 l
doString (Child2 l (_:s)) = Child2 l ('j' : s)
replace :: Data l => Parent l -> Parent l
replace = transformBi doInt
. transformBi doString
此代码在最后两行都产生以下错误:
Ambiguous type variable `l' in the constraint: `Data l' arising from a use of `transformBi' at Test.hs:31:10-52 Probable fix: add a type signature that fixes these type variable(s)
我可以理解为什么这段代码是模棱两可的:transformBi
接受 a(to -> to)
并将from
其转换为from
; l
就我而言, inChild1 l
和l
in之间没有联系Parent l
。我没有看到如何解决它。我尝试添加类似的类型约束transformBi (doInt :: Child1 l -> Child1 l)
,但我得到了同样的错误;l
当我这样做时,就好像我正在引入一个新的。
如何告诉编译器我l
对replace
,transformBi doInt
和使用相同的transformBi doString
?
编辑: 这是演示我在做什么的完整程序。在 GHC 6.10.4 下,该程序编译失败,出现上述错误。