diff options
Diffstat (limited to 'test/test_precedence.ml')
| -rw-r--r-- | test/test_precedence.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/test_precedence.ml b/test/test_precedence.ml index 369c490..ff75baa 100644 --- a/test/test_precedence.ml +++ b/test/test_precedence.ml @@ -26,7 +26,7 @@ let rules = | Cel.Feast -> (match loser.P.cel.Cel.rank with | Hi -> P.Transfer | Lo -> P.Commemorate P.Ordinary)); - admit = (fun ~observed:_ cs -> List.filteri (fun i _ -> i < 2) cs) } + admit = (fun ~observed:_ ~temporal:_ cs -> List.filteri (fun i _ -> i < 2) cs) } let slug_of c = S.to_string c.P.cel.Cel.slug |