objective categorical abstract machine language personal data server
formatting
+3
-3
+3
-3
pegasus/lib/api/oauth_/par.ml
+3
-3
pegasus/lib/api/oauth_/par.ml
···
55
55
conn )
56
56
in
57
57
Dream.json ~status:`Created
58
-
~headers:[("DPoP-Nonce", Oauth.Dpop.next_nonce ctx.dpop.nonce_state)]
58
+
~headers:
59
+
[("DPoP-Nonce", Oauth.Dpop.next_nonce ctx.dpop.nonce_state)]
59
60
@@ Yojson.Safe.to_string
60
61
@@ `Assoc
61
-
[ ("request_uri", `String request_uri)
62
-
; ("expires_in", `Int 300) ])
62
+
[("request_uri", `String request_uri); ("expires_in", `Int 300)] )