diff options
| author | Alasdair Armstrong | 2017-11-29 18:13:17 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-11-29 18:13:17 +0000 |
| commit | 636d81ee6afba69b7a2516e8149eeef3691cd67e (patch) | |
| tree | ad06beb349ffd6ce93c9f4489af21055bc1b3575 /src/pretty_print_lem_ast.ml | |
| parent | d25a996750978e7624902852bde90a679b50261e (diff) | |
Switched to bytecode compiler for executing interpreter to avoid stack overflow
Diffstat (limited to 'src/pretty_print_lem_ast.ml')
| -rw-r--r-- | src/pretty_print_lem_ast.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/pretty_print_lem_ast.ml b/src/pretty_print_lem_ast.ml index 443a2c63..65d99780 100644 --- a/src/pretty_print_lem_ast.ml +++ b/src/pretty_print_lem_ast.ml @@ -300,13 +300,15 @@ let rec pp_format_nes nes = nes) ^*) "]" let pp_format_annot = function - | _ -> "Nothing" - - (* | None -> "Nothing" | Some (_, typ, eff) -> - "(Just (" ^ pp_format_typ_lem typ ^ ", " ^ pp_format_effects_lem eff ^ "))" - *) + "(Just (" + ^ pp_format_typ_lem typ ^ ", " + ^ "Tag_empty" ^ ", " + ^ "[], " + ^ pp_format_effects_lem eff ^ ", " + ^ pp_format_effects_lem eff + ^ "))" (* | NoTyp -> "Nothing" |