This adds a new lens primitive 'value'. It is the counterpart of the label lens in that it sets the value of a tree node to a constant, rather than the label. The included test demonstrates its use: let l = [ label "label" . value "value" ] test l get "" = { "label" = "value" } David