Haskell - 非法多态类型？

Question

为什么单次使用这种类型可以编译，但是放入列表却失败了？

ft1  :: (Foldable t, Num a) => t a -> a
ft1   =   (F.foldl (+)  0)

fTest :: [(Foldable t, Num a) => t a -> a ]
fTest = [ F.foldl (+)  0 ]

后者给出错误：

folding.hs:80:10:
    Illegal polymorphic or qualified type:
      (Foldable t, Num a) => t a -> a
    Perhaps you intended to use ImpredicativeTypes
    In the type signature for `fTest':
      fTest :: [(Foldable t, Num a) => t a -> a]

同样，尝试命名它失败（不同）：

type Ftst t a = (Foldable t, Num a) => t a -> a

folding.hs:80:1:
    Illegal polymorphic or qualified type:
      (Foldable t, Num a) => t a -> a
    Perhaps you intended to use RankNTypes or Rank2Types
    In the type declaration for `Ftst'

Answer 1

对 Haskell 类型系统的这种限制是为了简化类型推断和检查。具有谓词 rank-1 类型（见下文）的类型推断是可判定的，并且具有相对简单的实现。 rank-2 类型的类型推断是可确定的，但相当复杂，以至于我不知道任何具有 rank-2 类型推断实现的语言。等级 3 及以上类型的类型推断完全无法确定。暗示类型也使事情变得相当复杂。 GHC 曾经有一个实现，它允许类型检查（以及一些非常有限的推理）与禁言类型，但它太复杂以至于后来被淘汰了。 （目前，GHC 仍然接受一些仅对非谓语类型进行类型检查的值，但我认为这不是一个“稳定”的特性。）

快速定义：rank-1 类型具有“外部”类型的所有量化和类约束，因此所有 rank-1 类型都具有以下形式

forall a_1 ... a_m. (C_1, ..., C_n) => t

Rank-2 类型允许函数参数具有 rank-1 类型；一般来说，rank n 类型允许函数参数具有 rank (n-1) 类型。

预测性回答了哪些类型可以替代类型变量的问题。如果只能替换单态类型（尽管可能带有类型变量！），那么您就处于谓词系统中； impredicative 类型允许您用多态类型替换类型变量。通过扩展，谓词系统中的参数数据类型只能接受单态类型作为参数。因此，例如，将[] 类型构造函数应用于forall t a. (Foldable t, Num a) => t a -> a 类型的示例试图将构造函数应用于多态类型，因此仅在谓语系统中有效。