Skip to content
Browse files

indentation

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14775 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent 7869662 commit eb2b1f64b17aab853ca16c531bf9c6b99c69503e Jacques Garrigue committed May 9, 2014
Showing with 7 additions and 6 deletions.
  1. +7 −6 typing/typetexp.ml
View
13 typing/typetexp.ml
@@ -179,12 +179,13 @@ let rec narrow_unbound_lid_error : 'a. _ -> _ -> _ -> _ -> 'a =
try
ignore (Env.lookup_module mlid env);
Clflags.transparent_modules := old
- with Not_found ->
- Clflags.transparent_modules := old;
- narrow_unbound_lid_error env loc mlid
- (fun lid -> Unbound_module lid)
- | Env.Recmodule ->
- raise (Error (loc, env, Illegal_reference_to_recursive_module))
+ with
+ | Not_found ->
+ Clflags.transparent_modules := old;
+ narrow_unbound_lid_error env loc mlid
+ (fun lid -> Unbound_module lid)
+ | Env.Recmodule ->
+ raise (Error (loc, env, Illegal_reference_to_recursive_module))
in
begin match lid with
| Longident.Lident _ -> ()

0 comments on commit eb2b1f6

Please sign in to comment.
Something went wrong with that request. Please try again.