Close forgotten channel

Reviewed By: jvillard

Differential Revision: D25398947

fbshipit-source-id: 2383c4923
master
Ezgi Çiçek 4 years ago committed by Facebook GitHub Bot
parent da950064d2
commit 8b6bd61c2c

@ -74,8 +74,7 @@ module FileContainsStringMatcher = struct
hence we read the file twice to check if it doesn't contain hence we read the file twice to check if it doesn't contain
regexp_not *) regexp_not *)
Option.value_map regexp_not_opt ~default:true ~f:(fun regexp_not -> Option.value_map regexp_not_opt ~default:true ~f:(fun regexp_not ->
let file_in = In_channel.create path in Utils.with_file_in path ~f:(fun file_in -> not (loop regexp_not file_in)) )
not (loop regexp_not file_in) )
let create_matcher (s_patterns : contains_pattern list) = let create_matcher (s_patterns : contains_pattern list) =

Loading…
Cancel
Save