7 lines
182 B
OCaml
7 lines
182 B
OCaml
open Fieldglass
|
|
|
|
let sample : (string * bool, string) lens' =
|
|
lens ~view:fst ~set:(fun value (_, other) -> value, other)
|
|
|
|
let () = assert (view sample ("colour", true) = "colour")
|