Question

我有以下代码，我希望失败类型检查：

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE RankNTypes #-}

import Control.Lens

data GADT e a where
  One :: Greet e => String -> GADT e String
  Two :: Increment e => Int -> GADT e Int

class Greet a where
  _Greet :: Prism' a String

class Increment a where
  _Increment :: Prism' a Int

instance Greet (Either String Int) where
  _Greet = _Left

instance Increment (Either String Int) where
  _Increment = _Right

run :: GADT e a -> Either String Int
run = go
  where
  go (One x) = review _Greet x
  go (Two x) = review _Greet "Hello"

这个想法是GADT中的每个条目都有一个相关的错误，我将Prism建模成一个更大的结构。当我＆＃34;解释＆＃34;这个GADT，我为e提供了具有所有这些Prism实例的具体类型。但是，对于每个个案，我都不希望能够使用在构造函数的关联上下文中未声明的实例。

以上代码应该是错误的，因为当我在Two上进行模式匹配时，我应该知道我只能使用Increment e，但我使用的是Greet。我可以看到为什么这有效 - Either String Int有一个Greet的实例，所以一切都会检出来。

我不确定解决此问题的最佳方法是什么。也许我可以使用来自Data.Constraint的蕴涵，或者可能有更高等级类型的伎俩。

有什么想法吗？

Answer 1

问题是您正在修复最终结果类型，因此实例存在且类型检查器可以找到它。

尝试类似：

run :: GADT e a -> e

现在结果类型无法选择review的实例，参数化强制执行不变量。

如何使用GADT限制约束？

1 个答案: