diff options
author | Son Ho | 2022-04-20 14:05:31 +0200 |
---|---|---|
committer | Son Ho | 2022-04-20 14:05:31 +0200 |
commit | dfabb15cf7bd216e3abffd8df451da1ba36e7b8a (patch) | |
tree | 3d8e528a84b5b9559f6542e2d994b7e5e798bfb2 /src/Print.ml | |
parent | 3f173a5ec9425e5b931684cc5143edae21533caa (diff) |
Improve the generation of pretty names by correctly using the
left constraints
Diffstat (limited to '')
-rw-r--r-- | src/Print.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Print.ml b/src/Print.ml index 24945298..5ccba517 100644 --- a/src/Print.ml +++ b/src/Print.ml @@ -1072,9 +1072,8 @@ module LlbcAst = struct * (we have access to a body) *) match def.body with | None -> - (* Arguments - we need to ignore the first input type which is actually - * the return type... TODO: fix that *) - let input_tys = List.tl sg.inputs in + (* Arguments *) + let input_tys = sg.inputs in let args = List.map sty_to_string input_tys in let args = String.concat ", " args in |