12 lines
152 B
Agda
12 lines
152 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 |