module NestedUpdate

import Prelude

record Foo where
    bar : Int

record Bar where
    foo : Foo

blah : Bar → Bar
blah x = [ foo $= [ bar := 1]] x