33

我只能以相当笨拙的方式在 Idris 0.9.12 中进行 rank-n 类型：

tupleId : ((a : Type) -> a -> a) -> (a, b) -> (a, b)
tupleId f (a, b) = (f _ a, f _ b)

只要有类型应用程序，我就需要下划线，因为当我尝试将（嵌套）类型参数设为隐式时，Idris 会引发解析错误：

tupleId : ({a : Type} -> a -> a) -> (a, b) -> (a, b) -- doesn't compile

一个可能更大的问题是我根本无法在更高级别的类型中进行类约束。我无法将以下 Haskell 函数转换为 Idris：

appShow :: Show a => (forall a. Show a => a -> String) -> a -> String
appShow show x = show x

这也阻止了我使用 Idris 函数作为类型的同义词，例如HaskellLens中Lens s t a b = forall f. Functor f => (a -> f b) -> s -> f t的 .

有什么办法可以补救或规避上述问题？

4

1 回答 1

22

我刚刚在 master 中实现了这个，允许在任意范围内隐式，它将在下一个 hackage 版本中。虽然它还没有经过很好的测试！我至少尝试了以下简单的示例，以及其他一些示例：

appShow : Show a => ({b : _} -> Show b => b -> String) -> a -> String
appShow s x = s x

AppendType : Type
AppendType = {a, n, m : _} -> Vect n a -> Vect m a -> Vect (n + m) a

append : AppendType
append [] ys = ys
append (x :: xs) ys = x :: append xs ys

tupleId : ({a : _} -> a -> a) -> (a, b) -> (a, b)
tupleId f (a, b) = (f a, f b)

Proxy  : Type -> Type -> Type -> Type -> (Type -> Type) -> Type -> Type

Producer' : Type -> (Type -> Type) -> Type -> Type
Producer' a m t = {x', x : _} -> Proxy x' x () a m t

yield : Monad m => a -> Producer' a m ()

目前的主要限制是您不能直接为隐式参数提供值，除非在顶层。我最终会为此做点什么...

于 2015-01-12T01:21:31.020 回答