Fixed variable.

This commit is contained in:
Christian Rinderknecht 2020-06-24 11:19:56 +02:00
parent d34b345edc
commit b07c57c159

View File

@ -215,7 +215,7 @@ and pp_var_decl {value; _} =
let {name; var_type; init; _} = value in let {name; var_type; init; _} = value in
let start = string ("var " ^ name.value) in let start = string ("var " ^ name.value) in
let start = let start =
match const_type with match var_type with
None -> start None -> start
| Some (_, e) -> | Some (_, e) ->
group (start ^/^ nest 2 (string ": " ^^ pp_type_expr e)) in group (start ^/^ nest 2 (string ": " ^^ pp_type_expr e)) in