diff --git a/flap/src/hopix/hopixTypechecker.ml b/flap/src/hopix/hopixTypechecker.ml index 31b7489..4d53376 100644 --- a/flap/src/hopix/hopixTypechecker.ml +++ b/flap/src/hopix/hopixTypechecker.ml @@ -81,7 +81,11 @@ and check_value_definition : HopixTypes.typing_environment -> HopixAST.value_definition -> HopixTypes.typing_environment = - fun env def -> failwith "Students! This is your job! (check_value_definition)" + fun env -> function + | SimpleValue _ -> + failwith "Students! This is your job! (check_value_definition | SimpleValue)" + | RecFunctions _ -> + failwith "Students! This is your job! (check_value_definition | RecFunctions)" ;; let check_definition env = function