My own corner of monopam
ocaml-jwt: reflow cwt.mli example after dune fmt
+3
-8
+3
-8
ocaml-jwt/lib/cwt.mli
+3
-8
ocaml-jwt/lib/cwt.mli
···
24
24
Jwt.Cwt.Claims.(
25
25
empty
26
26
|> set_iss "https://example.com"
27
-
|> set_sub "user123"
28
-
|> set_exp expires_at
29
-
|> build)
27
+
|> set_sub "user123" |> set_exp expires_at |> build)
30
28
31
-
let key =
32
-
Jwt.Cwt.Cose_key.symmetric "my-secret-key-32-bytes-long!!!!"
29
+
let key = Jwt.Cwt.Cose_key.symmetric "my-secret-key-32-bytes-long!!!!"
33
30
34
31
let () =
35
-
match
36
-
Jwt.Cwt.v ~algorithm:Jwt.Cwt.Algorithm.HMAC_256 ~claims ~key
37
-
with
32
+
match Jwt.Cwt.v ~algorithm:Jwt.Cwt.Algorithm.HMAC_256 ~claims ~key with
38
33
| Error e -> Fmt.failwith "sign: %a" Jwt.Cwt.pp_error e
39
34
| Ok cwt -> (
40
35
let encoded = Jwt.Cwt.encode cwt in