Skip to content

Commit

Permalink
reverted :deprecated change
Browse files Browse the repository at this point in the history
  • Loading branch information
Simn committed Jan 4, 2013
1 parent 48df5ae commit b6b8809
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions typeload.ml
Original file line number Diff line number Diff line change
Expand Up @@ -980,10 +980,6 @@ let build_module_def ctx mt meta fvars context_init fbuild =
(match r with
| None -> error "Build failure" p
| Some e -> fbuild e; loop l)
| (":deprecated",args,p) :: l ->
let msg = Printf.sprintf "%s is deprecated%s" (s_type_path (t_path mt)) (match args with [EConst(String s),_] -> ": " ^ s | _ -> "") in
ctx.com.warning msg p;
loop l
| _ :: l -> loop l
| [] -> ()
in
Expand Down

0 comments on commit b6b8809

Please sign in to comment.