objective categorical abstract machine language personal data server
Set [@default None], strict=false on all network-facing types
+52
-43
+4
-3
pegasus/lib/api/repo/applyWrites.ml
+4
-3
pegasus/lib/api/repo/applyWrites.ml
···
3
3
; validate: bool option [@default None]
4
4
; writes: Repository.repo_write list
5
5
; swap_commit: string option [@key "swapCommit"] [@default None] }
6
-
[@@deriving yojson]
6
+
[@@deriving yojson {strict= false}]
7
7
8
8
type response =
9
-
{commit: res_commit option; results: Repository.apply_writes_result list}
10
-
[@@deriving yojson]
9
+
{ commit: res_commit option [@default None]
10
+
; results: Repository.apply_writes_result list }
11
+
[@@deriving yojson {strict= false}]
11
12
12
13
and res_commit = {cid: string; rev: string} [@@deriving yojson]
13
14
+5
-4
pegasus/lib/api/repo/createRecord.ml
+5
-4
pegasus/lib/api/repo/createRecord.ml
···
6
6
; record: Mist.Lex.repo_record
7
7
; swap_record: string option [@key "swapRecord"] [@default None]
8
8
; swap_commit: string option [@key "swapCommit"] [@default None] }
9
-
[@@deriving yojson]
9
+
[@@deriving yojson {strict= false}]
10
10
11
11
type response =
12
12
{ uri: string
13
13
; cid: string
14
-
; commit: res_commit option
15
-
; validation_status: string option [@key "validationStatus"] }
16
-
[@@deriving yojson]
14
+
; commit: res_commit option [@default None]
15
+
; validation_status: string option [@key "validationStatus"] [@default None]
16
+
}
17
+
[@@deriving yojson {strict= false}]
17
18
18
19
and res_commit = {cid: string; rev: string} [@@deriving yojson]
19
20
+4
-3
pegasus/lib/api/repo/deleteRecord.ml
+4
-3
pegasus/lib/api/repo/deleteRecord.ml
···
4
4
; rkey: string
5
5
; swap_record: string option [@key "swapRecord"] [@default None]
6
6
; swap_commit: string option [@key "swapCommit"] [@default None] }
7
-
[@@deriving yojson]
7
+
[@@deriving yojson {strict= false}]
8
8
9
-
type response = {commit: res_commit option} [@@deriving yojson]
9
+
type response = {commit: res_commit option [@default None]}
10
+
[@@deriving yojson {strict= false}]
10
11
11
-
and res_commit = {cid: string; rev: string} [@@deriving yojson]
12
+
and res_commit = {cid: string; rev: string} [@@deriving yojson {strict= false}]
12
13
13
14
let handler =
14
15
Xrpc.handler ~auth:Authorization (fun ctx ->
+2
-2
pegasus/lib/api/repo/describeRepo.ml
+2
-2
pegasus/lib/api/repo/describeRepo.ml
···
1
-
type query = {repo: string} [@@deriving yojson]
1
+
type query = {repo: string} [@@deriving yojson {strict= false}]
2
2
3
3
type response =
4
4
{ handle: string
···
6
6
; did_doc: Id_resolver.Did.Document.t [@key "didDoc"]
7
7
; collections: string list
8
8
; handle_is_correct: bool [@key "handleIsCorrect"] }
9
-
[@@deriving yojson]
9
+
[@@deriving yojson {strict= false}]
10
10
11
11
let handler =
12
12
Xrpc.handler (fun ctx ->
+2
-2
pegasus/lib/api/repo/getRecord.ml
+2
-2
pegasus/lib/api/repo/getRecord.ml
···
3
3
; collection: string
4
4
; rkey: string
5
5
; cid: string option [@default None] }
6
-
[@@deriving yojson]
6
+
[@@deriving yojson {strict= false}]
7
7
8
8
type response = {uri: string; cid: string; value: Mist.Lex.repo_record}
9
-
[@@deriving yojson]
9
+
[@@deriving yojson {strict= false}]
10
10
11
11
let handler =
12
12
Xrpc.handler (fun ctx ->
+5
-4
pegasus/lib/api/repo/listRecords.ml
+5
-4
pegasus/lib/api/repo/listRecords.ml
···
4
4
; limit: int option [@default None]
5
5
; cursor: string option [@default None]
6
6
; reverse: bool option [@default None] }
7
-
[@@deriving yojson]
7
+
[@@deriving yojson {strict= false}]
8
8
9
-
type response = {cursor: string option; records: response_record list}
10
-
[@@deriving yojson]
9
+
type response =
10
+
{cursor: string option [@default None]; records: response_record list}
11
+
[@@deriving yojson {strict= false}]
11
12
12
13
and response_record = {uri: string; cid: string; value: Mist.Lex.repo_record}
13
-
[@@deriving yojson]
14
+
[@@deriving yojson {strict= false}]
14
15
15
16
let handler =
16
17
Xrpc.handler (fun ctx ->
+5
-4
pegasus/lib/api/repo/putRecord.ml
+5
-4
pegasus/lib/api/repo/putRecord.ml
···
6
6
; record: Mist.Lex.repo_record
7
7
; swap_record: string option [@key "swapRecord"] [@default None]
8
8
; swap_commit: string option [@key "swapCommit"] [@default None] }
9
-
[@@deriving yojson]
9
+
[@@deriving yojson {strict= false}]
10
10
11
11
type response =
12
12
{ uri: string
13
13
; cid: string
14
-
; commit: res_commit option
15
-
; validation_status: string option [@key "validationStatus"] }
16
-
[@@deriving yojson]
14
+
; commit: res_commit option [@default None]
15
+
; validation_status: string option [@key "validationStatus"] [@default None]
16
+
}
17
+
[@@deriving yojson {strict= false}]
17
18
18
19
and res_commit = {cid: string; rev: string} [@@deriving yojson]
19
20
+2
-1
pegasus/lib/api/repo/uploadBlob.ml
+2
-1
pegasus/lib/api/repo/uploadBlob.ml
+1
-1
pegasus/lib/api/server/createAccount.ml
+1
-1
pegasus/lib/api/server/createAccount.ml
+1
-1
pegasus/lib/api/server/createInviteCode.ml
+1
-1
pegasus/lib/api/server/createInviteCode.ml
···
3
3
; for_account: string option [@key "forAccount"] [@default None] }
4
4
[@@deriving yojson]
5
5
6
-
type response = {code: string} [@@deriving yojson]
6
+
type response = {code: string} [@@deriving yojson {strict= false}]
7
7
8
8
let handler =
9
9
Xrpc.handler ~auth:Admin (fun {req; db; _} ->
+2
-2
pegasus/lib/api/server/createSession.ml
+2
-2
pegasus/lib/api/server/createSession.ml
···
12
12
; email: string
13
13
; email_confirmed: bool [@key "emailConfirmed"]
14
14
; email_auth_factor: bool [@key "emailAuthFactor"]
15
-
; active: bool option
16
-
; status: string option }
15
+
; active: bool option [@default None]
16
+
; status: string option [@default None] }
17
17
[@@deriving yojson {strict= false}]
18
18
19
19
let handler =
+2
-2
pegasus/lib/api/server/refreshSession.ml
+2
-2
pegasus/lib/api/server/refreshSession.ml
+1
-1
pegasus/lib/api/sync/getBlob.ml
+1
-1
pegasus/lib/api/sync/getBlob.ml
+2
-1
pegasus/lib/api/sync/getBlocks.ml
+2
-1
pegasus/lib/api/sync/getBlocks.ml
+1
-1
pegasus/lib/api/sync/getLatestCommit.ml
+1
-1
pegasus/lib/api/sync/getLatestCommit.ml
+2
-1
pegasus/lib/api/sync/getRecord.ml
+2
-1
pegasus/lib/api/sync/getRecord.ml
+1
-1
pegasus/lib/api/sync/getRepo.ml
+1
-1
pegasus/lib/api/sync/getRepo.ml
+1
-1
pegasus/lib/api/sync/getRepoStatus.ml
+1
-1
pegasus/lib/api/sync/getRepoStatus.ml
+3
-2
pegasus/lib/api/sync/listBlobs.ml
+3
-2
pegasus/lib/api/sync/listBlobs.ml
···
3
3
; since: string option [@default None]
4
4
; limit: int option [@default None]
5
5
; cursor: string option [@default None] }
6
-
[@@deriving yojson]
6
+
[@@deriving yojson {strict= false}]
7
7
8
-
type response = {cursor: string option; cids: string list} [@@deriving yojson]
8
+
type response = {cursor: string option [@default None]; cids: string list}
9
+
[@@deriving yojson {strict= false}]
9
10
10
11
let handler =
11
12
Xrpc.handler (fun ctx ->
+6
-6
pegasus/lib/api/sync/listRepos.ml
+6
-6
pegasus/lib/api/sync/listRepos.ml
···
1
1
type query =
2
2
{cursor: string option [@default None]; limit: int option [@default None]}
3
-
[@@deriving yojson]
3
+
[@@deriving yojson {strict= false}]
4
4
5
-
type response = {cursor: string option; repos: res_repo list}
6
-
[@@deriving yojson]
5
+
type response = {cursor: string option [@default None]; repos: res_repo list}
6
+
[@@deriving yojson {strict= false}]
7
7
8
8
and res_repo =
9
9
{ did: string
10
10
; head: string
11
11
; rev: string
12
-
; active: bool option
13
-
; status: string option }
14
-
[@@deriving yojson]
12
+
; active: bool option [@default None]
13
+
; status: string option [@default None] }
14
+
[@@deriving yojson {strict= false}]
15
15
16
16
let handler =
17
17
Xrpc.handler (fun ctx ->