Commit ec1abfe9 authored by POTTIER Francois's avatar POTTIER Francois

Removed unused type [IL.directive].

parent 076eeb1d
......@@ -255,10 +255,6 @@ and pattern =
(* Type annotation. *)
| PAnnot of pattern * typ
and directive =
| DirOpen of string
| DirInclude of string
(* Module definitions. *)
and moduledef = {
......
......@@ -598,19 +598,6 @@ let nonrecvaldefs =
let typedefs =
pdefs typedef keytyp et
(* unused for now:
let directive f = function
| DirOpen s ->
fprintf f "open %s%t%t" s nl nl
| DirInclude s ->
fprintf f "include %s%t%t" s nl nl
let directives =
pdefs directive nothing nothing
*)
let excdef in_intf f def =
match in_intf, def.exceq with
| _, None
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment