Correctly close open channel

Co-authored-by: Kesha Hietala <[email protected]>
inQWIRE · Jul 11, 2022 · 28a2542 · 28a2542
1 parent a08e910
commit 28a2542
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/openQASM.ml b/lib/openQASM.ml
@@ -18,9 +18,10 @@ let parse_with_error lexbuf =
 
 (* core parsing routine *)
 let get_ast f =
-  let ic = open_in f in
-  let lexbuf = Lexing.from_channel ic in
-  close_in ic;
-  parse_with_error lexbuf
+  let ch = open_in_bin f in
+  Fun.protect ~finally: (fun () -> close_in ch) begin fun () ->
+    let lexbuf = Lexing.from_channel ch in
+    parse_with_error lexbuf
+  end
 
 module AST = AST