Fixed variable.

2020-06-24 11:19:56 +02:00 · 2020-06-24 11:19:56 +02:00 · b07c57c159
commit b07c57c159
parent d34b345edc
1 changed files with 1 additions and 1 deletions
--- a/src/passes/01-parser/pascaligo/Pretty.ml
+++ b/src/passes/01-parser/pascaligo/Pretty.ml
@ -215,7 +215,7 @@ and pp_var_decl {value; _} =
  let {name; var_type; init; _} = value in
  let start = string ("var " ^ name.value) in
  let start =
-    match const_type with
+    match var_type with
      None -> start
    | Some (_, e) ->
        group (start ^/^ nest 2 (string ": " ^^ pp_type_expr e)) in