diff options
| author | Nathan Ringo <nathan@remexre.com> | 2024-01-19 20:59:19 -0600 |
|---|---|---|
| committer | Nathan Ringo <nathan@remexre.com> | 2024-01-19 20:59:19 -0600 |
| commit | d9e3caab5ed77eff9263c416b457f110b1f29ace (patch) | |
| tree | d7bf902d633b645559d79189b63331db8951c2bc /discocaml/ast.ml | |
| parent | dd56c5fdbe875e46eeb0a0af8d28e96acb087ca4 (diff) | |
λ β.
Diffstat (limited to 'discocaml/ast.ml')
| -rw-r--r-- | discocaml/ast.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |