Question

当我在haskell中有如下数据类型时：

data A ctx = A (forall a. ctx a => a -> a)

然后我可以将处理给定类类型值的函数放入此数据类型中：

> A (+3) :: A Num
A (+3) :: A Num :: A Num

但是也可以将具有多个约束的函数放入此数据类型中吗？我试过这个：

> :t ((+ 3) . succ)
((+ 3) . succ) :: (Enum c, Num c) => c -> c
> :t A ((+ 3) . succ) :: A (Enum,Num)
  Expecting one more argument to `Enum'
  In an expression type signature: A (Enum, Num)
  In the expression: A ((+ 3) . succ) :: A (Enum, Num)

所以这不起作用。怎么可能做我想做的事，或者不可能做到？我知道一种解决方案是使用“虚拟”数据类型和类型系列，但是如果由于其复杂性而存在另一种方式，我不想这样做。另外，我这个例子我可以使用（+1）而不是succ，但是有更复杂的情况，这种转换只能用于一个类。

Answer 1

我找到了一种方法来概括将多个类合并为一个的想法。尽管使用起来很尴尬，但它仍然有效。

{-# LANGUAGE ConstraintKinds       #-}
{-# LANGUAGE EmptyDataDecls        #-}
{-# LANGUAGE FlexibleContexts      #-}
{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE GADTs                 #-}
{-# LANGUAGE KindSignatures        #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverlappingInstances  #-}
{-# LANGUAGE RankNTypes            #-}
{-# LANGUAGE ScopedTypeVariables   #-}
{-# LANGUAGE TypeOperators         #-}
{-# LANGUAGE UndecidableInstances  #-}
module Test where

import GHC.Exts

data (:>+<:) ctx1 ctx2 a where
  C'C :: (ctx1 a, ctx2 a) => (ctx1 :>+<: ctx2) a

data (:++:) (ctx1 :: * -> Constraint) (ctx2 :: * -> Constraint) = C

class Ctx2 c1 c2 a where
  useCtx :: c1 :++: c2 -> a -> ((c1 :>+<: c2) a -> b) -> b

instance (c1 a, c2 a) => Ctx2 c1 c2 a where
  useCtx _ a f = f C'C

fC :: (Ctx2 Num Enum a) => a -> a
fC a = useCtx (C :: Num :++: Enum) a $ \C'C  -> 3 + succ a

data A ctx = A 
  { call :: forall a. ctx a => a -> a
  }

main = print $ call (A fC :: A (Ctx2 Num Enum)) 3

应该可以使用约束别名来定义Ctx3，Ctx4，...

约束种类：传递多个约束

1 个答案: