Question

以下编译没有 PolyKinds：

{-# LANGUAGE TypeFamilies, GADTs #-}

type family Modulus zq

type family Foo zq q

data Bar :: (* -> *) where
    Bar :: (zq' ~ Foo zq (Modulus zq)) => Bar (zq -> zq')

zq的所有外观都是某种类型（种类*），代表模数运算mod q。使用Nats代表这些模数很方便。如果我添加PolyKinds并对类型族中的模数进行多义化：

{-# LANGUAGE TypeFamilies, GADTs, PolyKinds #-}

type family Modulus zq :: k

type family Foo zq (q :: k)

data Bar :: (* -> *) where
    Bar :: (zq' ~ Foo zq (Modulus zq)) => Bar (zq -> zq')

GHC 7.8抱怨：

Could not deduce (zq' ~ Foo zq (Modulus zq))
...
In the ambiguity check for:
  forall zq' zq. zq' ~ Foo zq (Modulus zq) => Bar (zq -> zq')
To defer the ambiguity check to use sites, enable AllowAmbiguousTypes
In the definition of data constructor ‘Bar’

添加PolyKinds 真的使这个含糊不清吗？歧义在哪里？还相关：When is -XAllowAmbiguousTypes appropriate?

如果我向GHC抛出一个骨骼并添加AllowAmbiguousTypes，则错误从GADT的声明移动到GADT的 use （没有添加扩展名的建议）：

bar :: (zq' ~ Foo zq (Modulus zq))
  => Bar (zq -> zq')
bar = Bar

让我觉得使用AllowAmbiguousTypes是GHC红鲱鱼。

修改

为了澄清，上面的类型可以实例化如下：

newtype Zq q = Zq Int

然后zq ~ (Zq 3)，q ~ 3和Modulus (Zq 3) ~ 3，Foo (Zq 3) 3 ~ (Zq 3)（我将工作从Foo类型系列中剥离出来，因此将其视为身份。）

Answer 1

我们暂时将zq参数限制为种类*：

type family Modulus (zq :: *) :: k

type family Foo (zq :: *) (q :: k)

然后你会得到一个更好的错误信息，可以通过说-fprint-explicit-kinds（假设GHC 7.8）进一步改进：

Could not deduce ((~) * zq' (Foo k0 zq (Modulus k0 zq)))
from the context ((~) * zq' (Foo k zq (Modulus k zq)))

所以问题是Modulus在其输出类型中是多态的，Foo在其输入类型中是多态的。没有什么可以解决这种中间类型，所以它仍然是模棱两可的。解决此问题的一个方法是使用Proxy：

import Data.Proxy

...

data Bar :: (* -> *) where
    Bar :: (m ~ Modulus zq, zq' ~ Foo zq m) => Proxy m -> Bar (zq -> zq')

现在，您甚至可以再次删除*和Modulus的{{1}}注释，它仍可以使用。

PolyKinds的不明确类型

1 个答案: