diff options
| author | Nathan Ringo <nathan@remexre.com> | 2024-01-20 00:06:28 -0600 |
|---|---|---|
| committer | Nathan Ringo <nathan@remexre.com> | 2024-01-20 00:06:28 -0600 |
| commit | 5be908867a5def57fd5e398a1047f859a68fd1a4 (patch) | |
| tree | 912c46391fc501c96c1945b3c66bb060d52849f1 /discocaml/discocaml.ml | |
| parent | 514896e05424d9df97295840b3fa6f2ad46620ab (diff) | |
Cleans up unsupported AST error in UI.
Diffstat (limited to 'discocaml/discocaml.ml')
| -rw-r--r-- | discocaml/discocaml.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/discocaml/discocaml.ml b/discocaml/discocaml.ml index 676cd67..ba407c1 100644 --- a/discocaml/discocaml.ml +++ b/discocaml/discocaml.ml @@ -91,6 +91,7 @@ let handle_request { expr; command } : response = run_with Eval.find_redex_cbv expr |> Seq.take 100 |> Seq.map show_expr |> Array.of_seq ) with + | Ast.UnsupportedAst ast -> `Error ("unsupported AST: " ^ ast) | Eval.NotARedex expr -> `Error ("not a redex: " ^ show_expr expr) | Failure msg -> `Error msg | exn -> `Error ("uncaught exception: " ^ Printexc.to_string exn) |