Idris2-boot/tests/idris2/reg012/Foo.idr

mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-19 02:41:43 +03:00
import Data.Vect

parameters (len : Nat)
  record Foo where
    constructor Bar
    Gnat : Vect len Nat

foo : Foo 1
foo = Bar _ [0]
Take account of env in record elaboration Also need to make sure that the constructor and fields are included in the nested names so that the parameters get expanded properly. Fixes #138 2020-03-19 15:12:25 +03:00			`import Data.Vect`

			`parameters (len : Nat)`
			`record Foo where`
			`constructor Bar`
			`Gnat : Vect len Nat`

			`foo : Foo 1`
			`foo = Bar _ [0]`