remove the Directory package rule that seems to be never used

src/main.ml

@@ -129,7 +129,6 @@ let rec read_type_path com p =
 		| x :: l ->
 			(try
 				match PMap.find x com.package_rules with
-				| Directory d -> d :: l
 				| Remap s -> s :: l
 				| _ -> p
 			with
@@ -150,7 +149,6 @@ let rec read_type_path com p =
 								match PMap.find f com.package_rules with
 								| Forbidden -> ()
 								| Remap f -> packages := f :: !packages
-								| Directory _ -> raise Not_found
 							with Not_found ->
 								packages := f :: !packages
 					else

src/typing/common.ml

@@ -22,7 +22,6 @@ open Type
 
 type package_rule =
 	| Forbidden
-	| Directory of string
 	| Remap of string
 
 type pos = Ast.pos

src/typing/typeload.ml

@@ -3532,7 +3532,6 @@ let resolve_module_file com m remap p =
 			let x = (try
 				match PMap.find x com.package_rules with
 				| Forbidden -> forbid := true; x
-				| Directory d -> d
 				| Remap d -> remap := d :: l; d
 				with Not_found -> x
 			) in