From d9e3caab5ed77eff9263c416b457f110b1f29ace Mon Sep 17 00:00:00 2001 From: Nathan Ringo Date: Fri, 19 Jan 2024 20:59:19 -0600 Subject: =?UTF-8?q?=CE=BB=20=CE=B2.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- discocaml/ast.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'discocaml/ast.ml') diff --git a/discocaml/ast.ml b/discocaml/ast.ml index 92ac32d..3ba3f63 100644 --- a/discocaml/ast.ml +++ b/discocaml/ast.ml @@ -127,7 +127,7 @@ let parsetree_of_subexpr (ast : 'a ast) : expr -> Parsetree.expression = in let rec loop : expr -> Parsetree.expression = function - | App (_, _) as expr -> + | App _ as expr -> let f, xs = list_of_apps expr in let xs = List.map (fun x -> (Asttypes.Nolabel, loop (subexpr x))) xs in Wrap.expression (Pexp_apply (loop f, xs)) -- cgit v1.2.3