fix bug

simple-IDS/custom_option.ml

@@ -70,7 +70,7 @@ let of_cstruct buf =
         let inter_val = Cstruct.get_uint8 buf (offset + 2) in
         let cmd_val = Cstruct.get_uint8 buf (offset + 3) in
         let addition_info_val = Cstruct.BE.get_uint32 buf (offset + 4) in
-        read_entries buf (count - 1) ({ id_val; inter_val; cmd_val; addition_info_val } :: lst) (offset + 8)
+        read_entries buf (count - 1) (lst @ [ { id_val; inter_val; cmd_val; addition_info_val } ]) (offset + 8)
   in
   { option_type; length; count; entries = read_entries buf count [] 4 }