asdf

Author: snwoods

ocaml/libs/tracing/tracing_export.ml

@@ -296,7 +296,7 @@ module Destination = struct
   let rec span_info_chunks span_info batch_size =
     let rec list_to_chunks_inner l n curr chunks =
       if n = 0 then
-        if List.length l > 0 then
+        if l <> [] then
           list_to_chunks_inner l batch_size [] ((curr, batch_size) :: chunks)
         else
           (curr, batch_size) :: chunks