added the subtyping check (even if the quality of error messages is q…

…uestionable)
pikatchu · Apr 22, 2011 · 44e245b · 44e245b
1 parent 971e8e0
commit 44e245b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/compiler/typing.ml b/compiler/typing.ml
@@ -350,8 +350,7 @@ and def env (fid, p, e) =
       let tyl = ExpandType.type_expr_list !env tyl in
       let rty = ExpandType.type_expr_list !env rty in
       let fty' = fp, Tfun (k, tyl, rty) in
-      (* TODO error messages are bad *)
-(*       SubType.type_expr fty fty'; *)
+      SubType.type_expr fty fty';
       k, fid, p, (rty, e)
   | _ -> assert false