Idris2/tests/idris2/reg/reg012/Foo.idr

10 lines
133 B
Idris
Raw Normal View History

import Data.Vect
parameters (len : Nat)
record Foo where
constructor Bar
Gnat : Vect len Nat
foo : Foo 1
foo = Bar _ [0]