通过 TypeError 约束消除

Question

我想使用 TypeError 约束来使“非实例”产生更有意义的类型错误：

{-# LANGUAGE DataKinds, KindSignatures #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-}

import GHC.TypeLits
import Data.Proxy

class Compat (x :: Bool) (y :: Bool) where
    combine :: Proxy x -> Proxy y -> Int

instance Compat False pre2 where
    combine _ _ = 42

instance Compat True False where
    combine _ _ = 1

instance (TypeError (Text "Meaningful error message goes here")) => Compat True True where
    combine = _

在这个洞里，我想用 TypeError 约束的消除来填充它，即利用我在范围内有一个 TypeError 约束的事实来避免必须写 undefined 或 error 或类似的。

这可能吗？

Answer 1

我认为标准 TypeError 无法做到这一点，但您可以定义自己的变体（下面的 TE），以便提供您需要的消除器。

{-# LANGUAGE 
   DataKinds, UndecidableInstances,
   MultiParamTypeClasses, KindSignatures, TypeFamilies #-}

import GHC.TypeLits
import Data.Kind

class Impossible where
    impossible :: a

type family TE (t :: ErrorMessage) :: Constraint where
  TE t = (TypeError t, Impossible)

class C t where
   foo :: t -> Bool
   
instance (TE (Text "impossible")) => C Bool where
   foo _ = impossible

通过 TypeError 约束消除

Elimination by `TypeError` constraint

haskell

typeclass

type-level-computation

error-messaging