Refactoring, errors are not thrown anymore

2024-10-26 01:47:30 +02:00
parent 8427133fd7
commit 3e4e1615d2
11 changed files with 413 additions and 339 deletions
--- a/lib/miniFun/Types.ml
+++ b/lib/miniFun/Types.ml
@ -48,8 +48,10 @@ type memory = {
  assignments: permittedValues VariableMap.t
 }

-exception AbsentAssignment of string
-exception WrongType of string
-exception DivisionByZero of string
-exception WrongArity of string
-exception WrongTypeSpecification of string
+type error = [
+    `AbsentAssignment of string
+  | `WrongType of string
+  | `DivisionByZero of string
+  | `WrongArity of string
+  | `WrongTypeSpecification of string
+]