1 files changed, 6 insertions, 6 deletions

diff --git a/test/test_validate.ml b/test/test_validate.ml
index 89053c1..42c58f5 100644
--- a/test/test_validate.ml
+++ b/test/test_validate.ml
@@ -225,7 +225,7 @@ module Synthetic = struct
   let rules : (season, rank) P.rules =
     { P.band = (fun _ _ -> 0);
       disposition = (fun ~winner:_ ~loser:_ -> P.Omit);
-      admit = (fun ~observed:_ _ -> []) }
+      admit = (fun ~observed:_ ~temporal:_ _ -> []) }
 
   let year_start y = match D.make ~year:y ~month:1 ~day:1 with Ok d -> d | Error e -> failwith e
 
@@ -377,7 +377,7 @@ module Synthetic = struct
   let dup_rules : (season, rank) P.rules =
     { P.band = (fun _ c -> match c.P.origin with P.Temporal -> 0 | P.Sanctoral -> 10);
       disposition = (fun ~winner:_ ~loser:_ -> P.Commemorate P.Ordinary);
-      admit = (fun ~observed:_ cs -> List.map (fun (c, p) -> ({ c with P.origin = c.P.origin }, p)) cs) }
+      admit = (fun ~observed:_ ~temporal:_ cs -> List.map (fun (c, p) -> ({ c with P.origin = c.P.origin }, p)) cs) }
 
   (* "unconverged": two entries collide on one date (6 June), both beating
      the temporal office and tied with each other, so slug decides:
@@ -416,7 +416,7 @@ module Synthetic = struct
       disposition =
         (fun ~winner:_ ~loser ->
           match loser.P.cel.Cel.rank with R1 -> P.Transfer | R2 -> P.Commemorate P.Ordinary);
-      admit = (fun ~observed:_ cs -> cs) }
+      admit = (fun ~observed:_ ~temporal:_ cs -> cs) }
 
   let guard_transfer_target (_ : rank P.candidate) (origin : D.t) (_ : D.t -> rank Cel.t) = origin
 
@@ -444,7 +444,7 @@ module Synthetic = struct
     { P.band = (fun _ c -> match c.P.origin with P.Temporal -> 0 | P.Sanctoral -> 10);
       disposition = (fun ~winner:_ ~loser:_ -> P.Commemorate P.Ordinary);
       admit =
-        (fun ~observed:_ cs ->
+        (fun ~observed:_ ~temporal:_ cs ->
           let sorted = List.stable_sort adm_compare_slug cs in
           if List.length sorted mod 2 = 1 then adm_take 2 sorted else adm_take 1 sorted) }
 
@@ -475,7 +475,7 @@ module Synthetic = struct
       disposition =
         (fun ~winner:_ ~loser ->
           match loser.P.cel.Cel.rank with R1 -> P.Transfer | R2 -> P.Commemorate P.Ordinary);
-      admit = (fun ~observed:_ cs -> cs) }
+      admit = (fun ~observed:_ ~temporal:_ cs -> cs) }
 
   let collide_d2 = match D.make ~year:2026 ~month:2 ~day:10 with Ok d -> d | Error e -> failwith e
   let collide_transfer_target (_ : rank P.candidate) (_ : D.t) (_ : D.t -> rank Cel.t) = collide_d2
@@ -492,7 +492,7 @@ module Synthetic = struct
   let clean_sanctoral_rules : (season, rank) P.rules =
     { P.band = (fun _ c -> match c.P.origin with P.Temporal -> 0 | P.Sanctoral -> 10);
       disposition = (fun ~winner:_ ~loser:_ -> P.Commemorate P.Ordinary);
-      admit = (fun ~observed:_ cs -> cs) }
+      admit = (fun ~observed:_ ~temporal:_ cs -> cs) }
 end
 
 open Synthetic