···315315 if stored_crc <> computed_crc then
316316 Error
317317 (`Read_error
318318- (Printf.sprintf "CRC mismatch: stored=%lx computed=%lx"
319319- stored_crc computed_crc))
318318+ (Fmt.str "CRC mismatch: stored=%lx computed=%lx" stored_crc
319319+ computed_crc))
320320 else Ok data
321321322322 let write t sector data =
323323 if String.length data <> t.data_size then
324324- Error (`Write_error (Printf.sprintf "data length must be %d" t.data_size))
324324+ Error (`Write_error (Fmt.str "data length must be %d" t.data_size))
325325 else
326326 let crc = crc32c data in
327327 let raw = data ^ encode_crc crc in