13 lines
153 B
Agda
13 lines
153 B
Agda
module NestedUpdate
|
|
|
|
import Prelude
|
|
|
|
record Foo where
|
|
bar : Int
|
|
|
|
record Bar where
|
|
foo : Foo
|
|
|
|
blah : Bar → Bar
|
|
blah x = { foo $= { bar := 1}} x
|