Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

no type = fail

Browse source
This commit is contained in:
Mylloon 2023-11-28 03:29:02 +01:00
parent 9700dddcac
commit c41d137715
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
flap/src/hopix/hopixTypechecker.ml
View file

@ -208,13 +208,15 @@ and check_value_definition
-> HopixTypes.typing_environment
=
fun env -> function
| SimpleValue (id, Some ty, ex) ->
failwith "Students! This is your job! (check_value_definition | SimpleValue)"
| SimpleValue (id, ty, ex) ->
(match ty with
| None -> failwith "Type missing."
| Some ty' ->
failwith "Students! This is your job! (check_value_definition | SimpleValue)")
| RecFunctions _ ->
(* Je crois que c'est galère et donc c'est pas grave si on arrive pas
à faire les fonctions récursives *)
failwith "Students! This is your job! (check_value_definition | RecFunctions)"
| _ -> failwith "Students! This is your job!"
;;
let check_definition env = function