Select generated operations without introducing hidden dependencies

record.ml

@@ -116,3 +116,20 @@ let () =
   assert (Fieldglass.set Ordered._count 2 Ordered.{ count = 1 } = Ordered.{ count = 2 });
   assert (Positional.update_count Positional.{ count = 1 } succ = Positional.{ count = 2 });
   assert (Last.update_count succ Last.{ count = 1 } = Last.{ count = 2 })
+
+module Pairs = struct
+  type t = { colour : string } [@@fieldglass generate ~just_lens]
+end
+
+module Silent = struct
+  type t = { colour : string } [@@fieldglass generate ~just_lens ~no_lens]
+end
+
+module Functions = struct
+  type t = { colour : string } [@@fieldglass generate ~no_lens ~no_get:false]
+end
+
+let () =
+  assert (Fieldglass.view Pairs._colour Pairs.{ colour = "grey" } = "grey");
+  assert (Silent.{ colour = "grey" }.colour = "grey");
+  assert (Functions.colour Functions.{ colour = "grey" } = "grey")