From acd881c0dd51529a11929a7e8abb27d101b9297f Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Tue, 21 Nov 2023 17:33:12 +0100
Subject: [PATCH] mm

---
 flap/src/hopix/hopixTypechecker.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/flap/src/hopix/hopixTypechecker.ml b/flap/src/hopix/hopixTypechecker.ml
index 4d53376..e3b5f71 100644
--- a/flap/src/hopix/hopixTypechecker.ml
+++ b/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