diff options
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)) |