Fix warnings

Gbury · Sep 2, 2019 · e4a014f · e4a014f
1 parent 5a244b2
commit e4a014f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main.ml b/src/main.ml
@@ -47,7 +47,7 @@ let handle_exn = function
 
 let rec fold gen f acc =
   match gen () with
-  | None | Some { Statement.descr = Statement.Exit } ->
+  | None | Some { Statement.descr = Statement.Exit; _ } ->
     acc
   | exception e ->
     let () = handle_exn e in