mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2026-08-24 18:58:08 -07:00
19 lines
742 B
Diff
19 lines
742 B
Diff
From 5d521981e39dcaeada6bbe7b15c5432d6de5d33c Mon Sep 17 00:00:00 2001
|
|
From: "Richard W.M. Jones" <rjones@redhat.com>
|
|
Date: Wed, 15 Oct 2025 09:24:18 +0100
|
|
Subject: [PATCH] xgettext: Fix type for OCaml 5.4
|
|
|
|
Fixes: https://github.com/gildor478/ocaml-gettext/issues/40
|
|
Signed-off-by: Richard W.M. Jones <rjones@redhat.com>
|
|
--- a/src/bin/ocaml-xgettext/xgettext.ml
|
|
+++ b/src/bin/ocaml-xgettext/xgettext.ml
|
|
@@ -112,7 +112,7 @@ let rec is_like lid = function
|
|
| [] -> false
|
|
| func :: functions -> (
|
|
match lid with
|
|
- | (Lident f | Ldot (_, f)) when f = func -> true
|
|
+ | (Lident f | Ldot (_, {txt = f; _})) when f = func -> true
|
|
| _ -> is_like lid functions )
|
|
|
|
let visit_expr (iterator : Ast_iterator.iterator) expr =
|