GADT's:为什么不选择最弱或最强的类型是有原因的
GADT's: Is there a reason why the weakest or strongest type is not chosen
我正在阅读 Fun With Phantom Types。第一个练习询问为什么有必要为在 Phantom 类型上运行的函数提供签名。虽然我无法提出一般原因,但我确实在以下示例中看到了问题:
data Expr a where
I :: Int -> Expr Int
B :: Bool -> Expr Bool
Add :: Expr Int -> Expr Int -> Expr Int
Eq :: (Eq a) => Expr a -> Expr a -> Expr Bool
whatIs (I _) = "an integer expression"
whatIs (Add _ _) = "an adition operation"
现在明白了上面的whatIs
有两种可能的类型,即:
Expr a -> String
和
Expr Int -> String
然而,编译器反而报错:
• Couldn't match expected type ‘t’ with actual type ‘[Char]’
‘t’ is untouchable
inside the constraints: t1 ~ Int
bound by a pattern with constructor: I :: Int -> Expr Int,
in an equation for ‘whatIs’
at ti.hs:9:9-11
‘t’ is a rigid type variable bound by
the inferred type of whatIs :: Expr t1 -> t at ti.hs:9:1
Possible fix: add a type signature for ‘whatIs’
• In the expression: "someString"
In an equation for ‘whatIs’: whatIs (I _) = "someString"
• Relevant bindings include
whatIs :: Expr t1 -> t (bound at ti.hs:9:1)
我想知道为什么编译器不选择两者中的任何一个。
对于您的示例,Expr a -> String
是比 Expr Int -> String
更好的类型:任何可以使用 Expr Int -> String
的地方,Expr a -> String
肯定可以。但有时不是 "weakest" 或 "strongest" 类型。
让我们进一步简化您的示例:
data SoSimple a where
SoSimple :: SoSimple Int
eval SoSimple = 3 :: Int
现在这里有两个非常好的类型 eval
:
eval :: SoSimple a -> a
eval :: SoSimple a -> Int
这些类型不可互换!每个在不同情况下都有用。比较:
{-# LANGUAGE EmptyCase #-}
{-# LANGUAGE GADTs #-}
import Data.Void
data SomeSimple where
SomeSimple :: SoSimple a -> SomeSimple
-- typechecks if eval :: SoSimple a -> Int,
-- but not if eval :: SoSimple a -> a
evalSome :: SomeSimple -> Int
evalSome (SomeSimple x) = eval x
-- typechecks if eval :: SoSimple a -> a,
-- but not if eval :: SoSimple a -> Int
evalNone :: SoSimple Void -> Void
evalNone = eval
所以这两个都不比另一个更通用(事实证明,没有一种类型比两者更通用,同时仍然让 eval
本身进行类型检查)。由于 eval
没有最通用的类型,因此拒绝选择类型并强制用户决定这次他们想要的许多可能类型中的哪一种是有意义的。
我正在阅读 Fun With Phantom Types。第一个练习询问为什么有必要为在 Phantom 类型上运行的函数提供签名。虽然我无法提出一般原因,但我确实在以下示例中看到了问题:
data Expr a where
I :: Int -> Expr Int
B :: Bool -> Expr Bool
Add :: Expr Int -> Expr Int -> Expr Int
Eq :: (Eq a) => Expr a -> Expr a -> Expr Bool
whatIs (I _) = "an integer expression"
whatIs (Add _ _) = "an adition operation"
现在明白了上面的whatIs
有两种可能的类型,即:
Expr a -> String
和
Expr Int -> String
然而,编译器反而报错:
• Couldn't match expected type ‘t’ with actual type ‘[Char]’
‘t’ is untouchable
inside the constraints: t1 ~ Int
bound by a pattern with constructor: I :: Int -> Expr Int,
in an equation for ‘whatIs’
at ti.hs:9:9-11
‘t’ is a rigid type variable bound by
the inferred type of whatIs :: Expr t1 -> t at ti.hs:9:1
Possible fix: add a type signature for ‘whatIs’
• In the expression: "someString"
In an equation for ‘whatIs’: whatIs (I _) = "someString"
• Relevant bindings include
whatIs :: Expr t1 -> t (bound at ti.hs:9:1)
我想知道为什么编译器不选择两者中的任何一个。
对于您的示例,Expr a -> String
是比 Expr Int -> String
更好的类型:任何可以使用 Expr Int -> String
的地方,Expr a -> String
肯定可以。但有时不是 "weakest" 或 "strongest" 类型。
让我们进一步简化您的示例:
data SoSimple a where
SoSimple :: SoSimple Int
eval SoSimple = 3 :: Int
现在这里有两个非常好的类型 eval
:
eval :: SoSimple a -> a
eval :: SoSimple a -> Int
这些类型不可互换!每个在不同情况下都有用。比较:
{-# LANGUAGE EmptyCase #-}
{-# LANGUAGE GADTs #-}
import Data.Void
data SomeSimple where
SomeSimple :: SoSimple a -> SomeSimple
-- typechecks if eval :: SoSimple a -> Int,
-- but not if eval :: SoSimple a -> a
evalSome :: SomeSimple -> Int
evalSome (SomeSimple x) = eval x
-- typechecks if eval :: SoSimple a -> a,
-- but not if eval :: SoSimple a -> Int
evalNone :: SoSimple Void -> Void
evalNone = eval
所以这两个都不比另一个更通用(事实证明,没有一种类型比两者更通用,同时仍然让 eval
本身进行类型检查)。由于 eval
没有最通用的类型,因此拒绝选择类型并强制用户决定这次他们想要的许多可能类型中的哪一种是有意义的。