Idris2/tests/idris2/record005/Fld.idr

10 lines
132 B
Idris
Raw Normal View History

record Foo where
constructor MkFoo
{Gnu : Char}
AFoo : Foo
AFoo = MkFoo {Gnu = 'c'}
Bar : Foo
Bar = record { Gnu = '?' } AFoo