Fixes
This commit is contained in:
@ -75,7 +75,7 @@ let () =
|
||||
| Ok ty -> ty
|
||||
| Error (`AbsentAssignment msg)
|
||||
| Error (`WrongTypeSpecification msg)
|
||||
| Error (`RecusrionsNotImplemented msg)
|
||||
| Error (`RecursionNotImplemented msg)
|
||||
| Error (`WrongType msg) ->
|
||||
Printf.fprintf stderr "%s\n" msg;
|
||||
exit (-1)
|
||||
|
||||
Reference in New Issue
Block a user