Idris2/tests/idris2/perf005/NoRegression.idr
2020-09-05 11:08:44 +01:00

15 lines
291 B
Idris

module NoRegression
import Data.Vect
data Dep : (n : Nat) -> (a : Type) -> Vect n a -> Type where
MkDep : Dep n a v
dpairParse : ( n : Nat
** a : Type
** v : Vect n a
** Dep n a v
)
dpairParse = (_ ** _ ** ["a", "b"] ** MkDep)