mm

flap/src/hopix/hopixTypechecker.ml

@@ -82,10 +82,13 @@ and check_value_definition
   -> HopixTypes.typing_environment
   =
   fun env -> function
-  | SimpleValue _ ->
+  | SimpleValue (id, Some ty, ex) ->
     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