Skip to content

Commit 34fecf4

Browse files
fix indentation
Co-authored-by: Michael Schwarz <[email protected]>
1 parent f89a373 commit 34fecf4

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

src/ext/syntacticsearch/funcVar.ml

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -30,9 +30,10 @@ let is_temporary id = Inthash.mem allTempVars id
3030
(* fails when there is no function with name fname in cilfile *)
3131
let get_func_loc cilfile fname =
3232
let rec find_loc = function
33-
| [] -> failwith ("no function with name " ^ fname ^ " found")
34-
| GFun (fd, loc) :: l when fd.svar.vname = fname -> loc
35-
| _ :: l -> find_loc l in
33+
| [] -> failwith ("no function with name " ^ fname ^ " found")
34+
| GFun (fd, loc) :: l when fd.svar.vname = fname -> loc
35+
| _ :: l -> find_loc l
36+
in
3637
find_loc cilfile.globals
3738

3839
let generate_globalvar_list cilfile =

0 commit comments

Comments
 (0)