reflection - Haskell:为什么要进行类型检查？

Question

这是从 Reflection-0.5 中提取的一个最小示例。

{-# LANGUAGE Rank2Types, MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances #-}
{-# OPTIONS_GHC -fno-cse -fno-full-laziness -fno-float-in #-}

import Control.Applicative
import Data.Proxy

newtype Zero = Zero Zero deriving (Show)

class ReifiesNum s where
  reflectNum :: Num a => proxy s -> a

instance ReifiesNum Zero where
  reflectNum = pure 0

在 GHCi 中，我得到以下信息:

>:t Zero
Zero :: Zero -> Zero

这是有道理的:我要的是构造函数的类型，它接受一个零并返回一个零。

>:t reflectNum
reflectNum :: (ReifiesNum s, Num a) => proxy s -> a

我可以写类似的东西是有道理的

>let x = Just (undefined::Zero)
>reflectNum x

因为 Just Zero 类型与类型变量“proxy s”匹配。

最后，令人困惑的部分:

>:t (reflectNum Zero)
(reflectNum Zero) :: Num a => a

我不明白构造函数 Zero::Zero -> Zero 的类型如何显然与类型变量“proxy s”匹配，但显然它确实如此，因为 (reflectNum Zero) 的类型只是“a”。

我将不胜感激帮助理解此示例，并非常感谢相关概念的链接。

谢谢

Answer 1

这只是函数箭头的中缀语法让你失望。首先，这是一个简单易懂的例子:Maybe Int .使其匹配proxy s ，我们只是设置:

proxy = Maybe
s = Int

现在让我们假装 a -> b改为 Fun a b ，等等 Zero有类型 Fun Zero Zero (即 (Fun Zero) Zero )。使其匹配 proxy s ， 我们设置:

proxy = Fun Zero
s = Zero

实际上， proxy是 (->) Zero ，等等 proxy s是 ((->) Zero) Zero ≡ (->) Zero Zero ≡ Zero -> Zero .