+4 -4

lib/eio/filestore_eio.ml

reviewed

··· 61 61 | _ -> false 62 62 | exception Eio.Io _ -> false 63 63 64 64 - let create (T { root }) path = 64 64 + let v (T { root }) path = 65 65 let p = root / path in 66 66 try 67 67 if ··· 141 141 | `Regular_file -> true 142 142 | _ -> false 143 143 | exception _ -> false) 144 144 - with _ -> [] 144 144 + with Eio.Io _ -> [] 145 145 146 146 - let get_contents (T { root }) path = 146 146 + let contents (T { root }) path = 147 147 let p = root / path in 148 148 - try Some (Eio.Path.load p |> Bytes.of_string) with _ -> None 148 148 + try Some (Eio.Path.load p |> Bytes.of_string) with Eio.Io _ -> None

+2 -2

lib/eio/filestore_eio.mli

reviewed

··· 45 45 val file_size : t -> string -> (int64, error) result 46 46 val read_at : t -> string -> offset:int64 -> len:int -> (bytes, error) result 47 47 val exists : t -> string -> bool 48 48 - val create : t -> string -> (unit, error) result 48 48 + val v : t -> string -> (unit, error) result 49 49 val write_at : t -> string -> offset:int64 -> bytes -> (unit, error) result 50 50 val delete : t -> string -> (unit, error) result 51 51 val rename : t -> src:string -> dst:string -> (unit, error) result 52 52 val truncate : t -> string -> int64 -> (unit, error) result 53 53 val list : t -> string list 54 54 - val get_contents : t -> string -> bytes option 54 54 + val contents : t -> string -> bytes option

+2 -2

test/interop/spacepackets/test.ml

reviewed

··· 1258 1258 |> col "buggy_hex" string ~enc:(fun _ -> "") 1259 1259 |> finish)) 1260 1260 1261 1261 - let test_keep_alive_spacepackets_bug () = 1261 1261 + let keep_alive_spacepackets_bug () = 1262 1262 let rows = 1263 1263 match Csvt.decode_file spacepackets_ka_codec (trace "keep_alive.csv") with 1264 1264 | Ok rows -> rows ··· 1338 1338 ( "keep-alive-spacepackets-bug", 1339 1339 [ 1340 1340 Alcotest.test_case "spacepackets LE byte-swap bug" `Quick 1341 1341 - test_keep_alive_spacepackets_bug; 1341 1341 + keep_alive_spacepackets_bug; 1342 1342 ] ); 1343 1343 ]