diff options
Diffstat (limited to '')
| -rw-r--r-- | test/unit/kernel/Branch.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/unit/kernel/Branch.ml b/test/unit/kernel/Branch.ml index 606d8b7..d92a6d7 100644 --- a/test/unit/kernel/Branch.ml +++ b/test/unit/kernel/Branch.ml @@ -114,7 +114,7 @@ type K.Program.kind += Title of string | Endless | Shout of K.Path.t let endless () = K.EphemeralRelation.instantiate title ~modes:(fun () -> Ok [C.(Mode.mode [] Cardinality.Countable)]) - {K.EphemeralRelation.name= None; schematics= `Temporary title; pointer= None} + (K.EphemeralRelation.temporary title) (fun () -> Ok (K.Generator.cursor_of (fun ~yield -> |