Skip to content

Commit

Permalink
Update interpreter/text/parse.ml
Browse files Browse the repository at this point in the history
  • Loading branch information
rossberg authored Nov 14, 2023
1 parent c128737 commit 88ad9e8
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion interpreter/text/parse.ml
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@ end) = struct

let from_file filename =
let chan = open_in filename in
Fun.protect ~finally:(fun () -> close_in chan)
Fun.protect ~finally:(fun () -> close_in chan)
(fun () ->
let lb = Lexing.from_channel ~with_positions:true chan in
Lexing.set_filename lb filename;
Expand Down

0 comments on commit 88ad9e8

Please sign in to comment.