SquashFS compressed filesystem reader in pure OCaml
use Fmt.failwith across 7 files (merlint E215)
Replace failwith (Fmt.str ...) with Fmt.failwith ... in spacedata,
squashfs, sdls, and sigstore.
+1
-1
+1
-1
lib/squashfs.ml
+1
-1
lib/squashfs.ml
···
20
20
let decode_exn codec buf off =
21
21
match Wire.Codec.decode codec buf off with
22
22
| Ok v -> v
23
-
| Error e -> failwith (Fmt.str "%a" Wire.pp_parse_error e)
23
+
| Error e -> Fmt.failwith "%a" Wire.pp_parse_error e
24
24
25
25
let decode_result codec buf off =
26
26
Wire.Codec.decode codec buf off