fix

mirage · Feb 3, 2024 · 489bd71 · 489bd71
1 parent 9b4214e
commit 489bd71
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/tar.ml b/lib/tar.ml
@@ -769,7 +769,7 @@ let encode_long level link_indicator payload =
   Ok [ Bytes.unsafe_to_string buffer ; payload ; Header.zero_padding blank ]
 
 let encode_unextended_header ?level header =
-  let level = Header.get_level level in
+  let level = Header.compatibility level in
   let* pre =
     if level = Header.GNU then
       let* longlink =