File tree Expand file tree Collapse file tree 3 files changed +6
-9
lines changed Expand file tree Collapse file tree 3 files changed +6
-9
lines changed Original file line number Diff line number Diff line change @@ -32,14 +32,13 @@ let tag_is_zero (tag : J.expression) =
3232 (tag : J.expression )
3333 (tag_info : J.tag_info ) =
3434 match tag_info with
35- | Blk_variant _
36- | Blk_module _
35+ | Blk_variant _
3736 | Blk_record _
3837 | Blk_constructor _ -> true
3938#if OCAML_VERSION =~ " >4.03.0" then
4039 | Blk_record_inlined _ -> true
4140#end
42-
41+ | Blk_module _ -> false
4342 | Blk_tuple
4443 | Blk_array
4544#if OCAML_VERSION =~ " >4.03.0" then
Original file line number Diff line number Diff line change @@ -80191,12 +80191,11 @@ let tag_is_zero (tag : J.expression) =
8019180191 (tag : J.expression)
8019280192 (tag_info : J.tag_info) =
8019380193 match tag_info with
80194- | Blk_variant _
80195- | Blk_module _
80194+ | Blk_variant _
8019680195 | Blk_record _
8019780196 | Blk_constructor _ -> true
8019880197
80199-
80198+ | Blk_module _ -> false
8020080199 | Blk_tuple
8020180200 | Blk_array
8020280201
Original file line number Diff line number Diff line change @@ -84846,12 +84846,11 @@ let tag_is_zero (tag : J.expression) =
8484684846 (tag : J.expression)
8484784847 (tag_info : J.tag_info) =
8484884848 match tag_info with
84849- | Blk_variant _
84850- | Blk_module _
84849+ | Blk_variant _
8485184850 | Blk_record _
8485284851 | Blk_constructor _ -> true
8485384852
84854-
84853+ | Blk_module _ -> false
8485584854 | Blk_tuple
8485684855 | Blk_array
8485784856
You can’t perform that action at this time.
0 commit comments