Idris2/tests/idris2/data/record005/Fld.idr

10 lines
126 B
Idris
Raw Normal View History

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