Use polymorphic variants and flatten client module · anil.recoil.org/monopam-myspace@d4f1a6c

+1937 -1893

ocaml-immich/immich.ml

··· 4 4 5 5 @version 2.4.1 *) 6 6 7 - module Client_ = struct 8 - type t = { 9 - session : Requests.t; 10 - base_url : string; 11 - } 7 + type t = { 8 + session : Requests.t; 9 + base_url : string; 10 + } 12 11 13 - let create ?session ~sw env ~base_url = 14 - let session = match session with 15 - | Some s -> s 16 - | None -> Requests.create ~sw env 17 - in 18 - { session; base_url } 12 + let create ?session ~sw env ~base_url = 13 + let session = match session with 14 + | Some s -> s 15 + | None -> Requests.create ~sw env 16 + in 17 + { session; base_url } 19 18 20 - let base_url t = t.base_url 21 - let session t = t.session 22 - end 19 + let base_url t = t.base_url 20 + let session t = t.session 23 21 24 22 module WorkflowFilterItem = struct 25 23 module Dto = struct ··· 240 238 let op_name = "get_workflows" in 241 239 let url_path = "/workflows" in 242 240 let query = "" in 243 - let url = client.Client_.base_url ^ url_path ^ query in 241 + let url = client.base_url ^ url_path ^ query in 244 242 let response = 245 - try Requests.get client.Client_.session url 243 + try Requests.get client.session url 246 244 with Eio.Io _ as ex -> 247 245 let bt = Printexc.get_raw_backtrace () in 248 246 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 265 263 let op_name = "create_workflow" in 266 264 let url_path = "/workflows" in 267 265 let query = "" in 268 - let url = client.Client_.base_url ^ url_path ^ query in 266 + let url = client.base_url ^ url_path ^ query in 269 267 let response = 270 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 268 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 271 269 with Eio.Io _ as ex -> 272 270 let bt = Printexc.get_raw_backtrace () in 273 271 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 290 288 let op_name = "get_workflow" in 291 289 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/workflows/{id}" in 292 290 let query = "" in 293 - let url = client.Client_.base_url ^ url_path ^ query in 291 + let url = client.base_url ^ url_path ^ query in 294 292 let response = 295 - try Requests.get client.Client_.session url 293 + try Requests.get client.session url 296 294 with Eio.Io _ as ex -> 297 295 let bt = Printexc.get_raw_backtrace () in 298 296 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 315 313 let op_name = "update_workflow" in 316 314 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/workflows/{id}" in 317 315 let query = "" in 318 - let url = client.Client_.base_url ^ url_path ^ query in 316 + let url = client.base_url ^ url_path ^ query in 319 317 let response = 320 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 318 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 321 319 with Eio.Io _ as ex -> 322 320 let bt = Printexc.get_raw_backtrace () in 323 321 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 336 334 337 335 module VideoContainer = struct 338 336 module T = struct 339 - type t = 340 - | Mov 341 - | Mp4 342 - | Ogg 343 - | Webm 337 + type t = [ 338 + | `Mov 339 + | `Mp4 340 + | `Ogg 341 + | `Webm 342 + ] 344 343 345 344 let jsont : t Jsont.t = 346 345 Jsont.map Jsont.string ~kind:"VideoContainer" 347 346 ~dec:(function 348 - | "mov" -> Mov 349 - | "mp4" -> Mp4 350 - | "ogg" -> Ogg 351 - | "webm" -> Webm 347 + | "mov" -> `Mov 348 + | "mp4" -> `Mp4 349 + | "ogg" -> `Ogg 350 + | "webm" -> `Webm 352 351 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 353 352 ~enc:(function 354 - | Mov -> "mov" 355 - | Mp4 -> "mp4" 356 - | Ogg -> "ogg" 357 - | Webm -> "webm") 353 + | `Mov -> "mov" 354 + | `Mp4 -> "mp4" 355 + | `Ogg -> "ogg" 356 + | `Webm -> "webm") 358 357 end 359 358 end 360 359 361 360 module VideoCodec = struct 362 361 module T = struct 363 - type t = 364 - | H264 365 - | Hevc 366 - | Vp9 367 - | Av1 362 + type t = [ 363 + | `H264 364 + | `Hevc 365 + | `Vp9 366 + | `Av1 367 + ] 368 368 369 369 let jsont : t Jsont.t = 370 370 Jsont.map Jsont.string ~kind:"VideoCodec" 371 371 ~dec:(function 372 - | "h264" -> H264 373 - | "hevc" -> Hevc 374 - | "vp9" -> Vp9 375 - | "av1" -> Av1 372 + | "h264" -> `H264 373 + | "hevc" -> `Hevc 374 + | "vp9" -> `Vp9 375 + | "av1" -> `Av1 376 376 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 377 377 ~enc:(function 378 - | H264 -> "h264" 379 - | Hevc -> "hevc" 380 - | Vp9 -> "vp9" 381 - | Av1 -> "av1") 378 + | `H264 -> "h264" 379 + | `Hevc -> "hevc" 380 + | `Vp9 -> "vp9" 381 + | `Av1 -> "av1") 382 382 end 383 383 end 384 384 ··· 410 410 let op_name = "get_version_check" in 411 411 let url_path = "/server/version-check" in 412 412 let query = "" in 413 - let url = client.Client_.base_url ^ url_path ^ query in 413 + let url = client.base_url ^ url_path ^ query in 414 414 let response = 415 - try Requests.get client.Client_.session url 415 + try Requests.get client.session url 416 416 with Eio.Io _ as ex -> 417 417 let bt = Printexc.get_raw_backtrace () in 418 418 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 435 435 let op_name = "get_version_check_state" in 436 436 let url_path = "/system-metadata/version-check-state" in 437 437 let query = "" in 438 - let url = client.Client_.base_url ^ url_path ^ query in 438 + let url = client.base_url ^ url_path ^ query in 439 439 let response = 440 - try Requests.get client.Client_.session url 440 + try Requests.get client.session url 441 441 with Eio.Io _ as ex -> 442 442 let bt = Printexc.get_raw_backtrace () in 443 443 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 524 524 let op_name = "validate" in 525 525 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/libraries/{id}/validate" in 526 526 let query = "" in 527 - let url = client.Client_.base_url ^ url_path ^ query in 527 + let url = client.base_url ^ url_path ^ query in 528 528 let response = 529 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 529 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 530 530 with Eio.Io _ as ex -> 531 531 let bt = Printexc.get_raw_backtrace () in 532 532 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 568 568 let op_name = "validate_access_token" in 569 569 let url_path = "/auth/validateToken" in 570 570 let query = "" in 571 - let url = client.Client_.base_url ^ url_path ^ query in 571 + let url = client.base_url ^ url_path ^ query in 572 572 let response = 573 - try Requests.post client.Client_.session url 573 + try Requests.post client.session url 574 574 with Eio.Io _ as ex -> 575 575 let bt = Printexc.get_raw_backtrace () in 576 576 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 617 617 618 618 module UserMetadataKey = struct 619 619 module T = struct 620 - type t = 621 - | Preferences 622 - | License 623 - | Onboarding 620 + type t = [ 621 + | `Preferences 622 + | `License 623 + | `Onboarding 624 + ] 624 625 625 626 let jsont : t Jsont.t = 626 627 Jsont.map Jsont.string ~kind:"UserMetadataKey" 627 628 ~dec:(function 628 - | "preferences" -> Preferences 629 - | "license" -> License 630 - | "onboarding" -> Onboarding 629 + | "preferences" -> `Preferences 630 + | "license" -> `License 631 + | "onboarding" -> `Onboarding 631 632 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 632 633 ~enc:(function 633 - | Preferences -> "preferences" 634 - | License -> "license" 635 - | Onboarding -> "onboarding") 634 + | `Preferences -> "preferences" 635 + | `License -> "license" 636 + | `Onboarding -> "onboarding") 636 637 end 637 638 end 638 639 ··· 663 664 664 665 module UserAvatarColor = struct 665 666 module T = struct 666 - type t = 667 - | Primary 668 - | Pink 669 - | Red 670 - | Yellow 671 - | Blue 672 - | Green 673 - | Purple 674 - | Orange 675 - | Gray 676 - | Amber 667 + type t = [ 668 + | `Primary 669 + | `Pink 670 + | `Red 671 + | `Yellow 672 + | `Blue 673 + | `Green 674 + | `Purple 675 + | `Orange 676 + | `Gray 677 + | `Amber 678 + ] 677 679 678 680 let jsont : t Jsont.t = 679 681 Jsont.map Jsont.string ~kind:"UserAvatarColor" 680 682 ~dec:(function 681 - | "primary" -> Primary 682 - | "pink" -> Pink 683 - | "red" -> Red 684 - | "yellow" -> Yellow 685 - | "blue" -> Blue 686 - | "green" -> Green 687 - | "purple" -> Purple 688 - | "orange" -> Orange 689 - | "gray" -> Gray 690 - | "amber" -> Amber 683 + | "primary" -> `Primary 684 + | "pink" -> `Pink 685 + | "red" -> `Red 686 + | "yellow" -> `Yellow 687 + | "blue" -> `Blue 688 + | "green" -> `Green 689 + | "purple" -> `Purple 690 + | "orange" -> `Orange 691 + | "gray" -> `Gray 692 + | "amber" -> `Amber 691 693 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 692 694 ~enc:(function 693 - | Primary -> "primary" 694 - | Pink -> "pink" 695 - | Red -> "red" 696 - | Yellow -> "yellow" 697 - | Blue -> "blue" 698 - | Green -> "green" 699 - | Purple -> "purple" 700 - | Orange -> "orange" 701 - | Gray -> "gray" 702 - | Amber -> "amber") 695 + | `Primary -> "primary" 696 + | `Pink -> "pink" 697 + | `Red -> "red" 698 + | `Yellow -> "yellow" 699 + | `Blue -> "blue" 700 + | `Green -> "green" 701 + | `Purple -> "purple" 702 + | `Orange -> "orange" 703 + | `Gray -> "gray" 704 + | `Amber -> "amber") 703 705 end 704 706 end 705 707 ··· 724 726 725 727 module User = struct 726 728 module Status = struct 727 - type t = 728 - | Active 729 - | Removing 730 - | Deleted 729 + type t = [ 730 + | `Active 731 + | `Removing 732 + | `Deleted 733 + ] 731 734 732 735 let jsont : t Jsont.t = 733 736 Jsont.map Jsont.string ~kind:"UserStatus" 734 737 ~dec:(function 735 - | "active" -> Active 736 - | "removing" -> Removing 737 - | "deleted" -> Deleted 738 + | "active" -> `Active 739 + | "removing" -> `Removing 740 + | "deleted" -> `Deleted 738 741 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 739 742 ~enc:(function 740 - | Active -> "active" 741 - | Removing -> "removing" 742 - | Deleted -> "deleted") 743 + | `Active -> "active" 744 + | `Removing -> "removing" 745 + | `Deleted -> "deleted") 743 746 end 744 747 745 748 module ResponseDto = struct ··· 781 784 let op_name = "search_users" in 782 785 let url_path = "/users" in 783 786 let query = "" in 784 - let url = client.Client_.base_url ^ url_path ^ query in 787 + let url = client.base_url ^ url_path ^ query in 785 788 let response = 786 - try Requests.get client.Client_.session url 789 + try Requests.get client.session url 787 790 with Eio.Io _ as ex -> 788 791 let bt = Printexc.get_raw_backtrace () in 789 792 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 806 809 let op_name = "get_user" in 807 810 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/users/{id}" in 808 811 let query = "" in 809 - let url = client.Client_.base_url ^ url_path ^ query in 812 + let url = client.base_url ^ url_path ^ query in 810 813 let response = 811 - try Requests.get client.Client_.session url 814 + try Requests.get client.session url 812 815 with Eio.Io _ as ex -> 813 816 let bt = Printexc.get_raw_backtrace () in 814 817 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 961 964 let op_name = "get_activities" in 962 965 let url_path = "/activities" in 963 966 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"albumId" ~value:album_id; Openapi.Runtime.Query.optional ~key:"assetId" ~value:asset_id; Openapi.Runtime.Query.optional ~key:"level" ~value:level; Openapi.Runtime.Query.optional ~key:"type" ~value:type_; Openapi.Runtime.Query.optional ~key:"userId" ~value:user_id]) in 964 - let url = client.Client_.base_url ^ url_path ^ query in 967 + let url = client.base_url ^ url_path ^ query in 965 968 let response = 966 - try Requests.get client.Client_.session url 969 + try Requests.get client.session url 967 970 with Eio.Io _ as ex -> 968 971 let bt = Printexc.get_raw_backtrace () in 969 972 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 986 989 let op_name = "create_activity" in 987 990 let url_path = "/activities" in 988 991 let query = "" in 989 - let url = client.Client_.base_url ^ url_path ^ query in 992 + let url = client.base_url ^ url_path ^ query in 990 993 let response = 991 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 994 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 992 995 with Eio.Io _ as ex -> 993 996 let bt = Printexc.get_raw_backtrace () in 994 997 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 1085 1088 let op_name = "get_server_statistics" in 1086 1089 let url_path = "/server/statistics" in 1087 1090 let query = "" in 1088 - let url = client.Client_.base_url ^ url_path ^ query in 1091 + let url = client.base_url ^ url_path ^ query in 1089 1092 let response = 1090 - try Requests.get client.Client_.session url 1093 + try Requests.get client.session url 1091 1094 with Eio.Io _ as ex -> 1092 1095 let bt = Printexc.get_raw_backtrace () in 1093 1096 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 1221 1224 1222 1225 module TranscodePolicy = struct 1223 1226 module T = struct 1224 - type t = 1225 - | All 1226 - | Optimal 1227 - | Bitrate 1228 - | Required 1229 - | Disabled 1227 + type t = [ 1228 + | `All 1229 + | `Optimal 1230 + | `Bitrate 1231 + | `Required 1232 + | `Disabled 1233 + ] 1230 1234 1231 1235 let jsont : t Jsont.t = 1232 1236 Jsont.map Jsont.string ~kind:"TranscodePolicy" 1233 1237 ~dec:(function 1234 - | "all" -> All 1235 - | "optimal" -> Optimal 1236 - | "bitrate" -> Bitrate 1237 - | "required" -> Required 1238 - | "disabled" -> Disabled 1238 + | "all" -> `All 1239 + | "optimal" -> `Optimal 1240 + | "bitrate" -> `Bitrate 1241 + | "required" -> `Required 1242 + | "disabled" -> `Disabled 1239 1243 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 1240 1244 ~enc:(function 1241 - | All -> "all" 1242 - | Optimal -> "optimal" 1243 - | Bitrate -> "bitrate" 1244 - | Required -> "required" 1245 - | Disabled -> "disabled") 1245 + | `All -> "all" 1246 + | `Optimal -> "optimal" 1247 + | `Bitrate -> "bitrate" 1248 + | `Required -> "required" 1249 + | `Disabled -> "disabled") 1246 1250 end 1247 1251 end 1248 1252 1249 1253 module TranscodeHwaccel = struct 1250 1254 module T = struct 1251 - type t = 1252 - | Nvenc 1253 - | Qsv 1254 - | Vaapi 1255 - | Rkmpp 1256 - | Disabled 1255 + type t = [ 1256 + | `Nvenc 1257 + | `Qsv 1258 + | `Vaapi 1259 + | `Rkmpp 1260 + | `Disabled 1261 + ] 1257 1262 1258 1263 let jsont : t Jsont.t = 1259 1264 Jsont.map Jsont.string ~kind:"TranscodeHWAccel" 1260 1265 ~dec:(function 1261 - | "nvenc" -> Nvenc 1262 - | "qsv" -> Qsv 1263 - | "vaapi" -> Vaapi 1264 - | "rkmpp" -> Rkmpp 1265 - | "disabled" -> Disabled 1266 + | "nvenc" -> `Nvenc 1267 + | "qsv" -> `Qsv 1268 + | "vaapi" -> `Vaapi 1269 + | "rkmpp" -> `Rkmpp 1270 + | "disabled" -> `Disabled 1266 1271 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 1267 1272 ~enc:(function 1268 - | Nvenc -> "nvenc" 1269 - | Qsv -> "qsv" 1270 - | Vaapi -> "vaapi" 1271 - | Rkmpp -> "rkmpp" 1272 - | Disabled -> "disabled") 1273 + | `Nvenc -> "nvenc" 1274 + | `Qsv -> "qsv" 1275 + | `Vaapi -> "vaapi" 1276 + | `Rkmpp -> "rkmpp" 1277 + | `Disabled -> "disabled") 1273 1278 end 1274 1279 end 1275 1280 1276 1281 module ToneMapping = struct 1277 1282 module T = struct 1278 - type t = 1279 - | Hable 1280 - | Mobius 1281 - | Reinhard 1282 - | Disabled 1283 + type t = [ 1284 + | `Hable 1285 + | `Mobius 1286 + | `Reinhard 1287 + | `Disabled 1288 + ] 1283 1289 1284 1290 let jsont : t Jsont.t = 1285 1291 Jsont.map Jsont.string ~kind:"ToneMapping" 1286 1292 ~dec:(function 1287 - | "hable" -> Hable 1288 - | "mobius" -> Mobius 1289 - | "reinhard" -> Reinhard 1290 - | "disabled" -> Disabled 1293 + | "hable" -> `Hable 1294 + | "mobius" -> `Mobius 1295 + | "reinhard" -> `Reinhard 1296 + | "disabled" -> `Disabled 1291 1297 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 1292 1298 ~enc:(function 1293 - | Hable -> "hable" 1294 - | Mobius -> "mobius" 1295 - | Reinhard -> "reinhard" 1296 - | Disabled -> "disabled") 1299 + | `Hable -> "hable" 1300 + | `Mobius -> "mobius" 1301 + | `Reinhard -> "reinhard" 1302 + | `Disabled -> "disabled") 1297 1303 end 1298 1304 end 1299 1305 ··· 1336 1342 let op_name = "get_time_buckets" in 1337 1343 let url_path = "/timeline/buckets" in 1338 1344 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"albumId" ~value:album_id; Openapi.Runtime.Query.optional ~key:"isFavorite" ~value:is_favorite; Openapi.Runtime.Query.optional ~key:"isTrashed" ~value:is_trashed; Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"order" ~value:order; Openapi.Runtime.Query.optional ~key:"personId" ~value:person_id; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug; Openapi.Runtime.Query.optional ~key:"tagId" ~value:tag_id; Openapi.Runtime.Query.optional ~key:"userId" ~value:user_id; Openapi.Runtime.Query.optional ~key:"visibility" ~value:visibility; Openapi.Runtime.Query.optional ~key:"withCoordinates" ~value:with_coordinates; Openapi.Runtime.Query.optional ~key:"withPartners" ~value:with_partners; Openapi.Runtime.Query.optional ~key:"withStacked" ~value:with_stacked]) in 1339 - let url = client.Client_.base_url ^ url_path ^ query in 1345 + let url = client.base_url ^ url_path ^ query in 1340 1346 let response = 1341 - try Requests.get client.Client_.session url 1347 + try Requests.get client.session url 1342 1348 with Eio.Io _ as ex -> 1343 1349 let bt = Printexc.get_raw_backtrace () in 1344 1350 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 1400 1406 let op_name = "get_notification_template_admin" in 1401 1407 let url_path = Openapi.Runtime.Path.render ~params:[("name", name)] "/admin/notifications/templates/{name}" in 1402 1408 let query = "" in 1403 - let url = client.Client_.base_url ^ url_path ^ query in 1409 + let url = client.base_url ^ url_path ^ query in 1404 1410 let response = 1405 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 1411 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 1406 1412 with Eio.Io _ as ex -> 1407 1413 let bt = Printexc.get_raw_backtrace () in 1408 1414 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 1563 1569 let op_name = "get_all_tags" in 1564 1570 let url_path = "/tags" in 1565 1571 let query = "" in 1566 - let url = client.Client_.base_url ^ url_path ^ query in 1572 + let url = client.base_url ^ url_path ^ query in 1567 1573 let response = 1568 - try Requests.get client.Client_.session url 1574 + try Requests.get client.session url 1569 1575 with Eio.Io _ as ex -> 1570 1576 let bt = Printexc.get_raw_backtrace () in 1571 1577 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 1588 1594 let op_name = "create_tag" in 1589 1595 let url_path = "/tags" in 1590 1596 let query = "" in 1591 - let url = client.Client_.base_url ^ url_path ^ query in 1597 + let url = client.base_url ^ url_path ^ query in 1592 1598 let response = 1593 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 1599 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 1594 1600 with Eio.Io _ as ex -> 1595 1601 let bt = Printexc.get_raw_backtrace () in 1596 1602 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 1613 1619 let op_name = "upsert_tags" in 1614 1620 let url_path = "/tags" in 1615 1621 let query = "" in 1616 - let url = client.Client_.base_url ^ url_path ^ query in 1622 + let url = client.base_url ^ url_path ^ query in 1617 1623 let response = 1618 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json TagUpsert.Dto.jsont body)) url 1624 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json TagUpsert.Dto.jsont body)) url 1619 1625 with Eio.Io _ as ex -> 1620 1626 let bt = Printexc.get_raw_backtrace () in 1621 1627 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 1638 1644 let op_name = "get_tag_by_id" in 1639 1645 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/tags/{id}" in 1640 1646 let query = "" in 1641 - let url = client.Client_.base_url ^ url_path ^ query in 1647 + let url = client.base_url ^ url_path ^ query in 1642 1648 let response = 1643 - try Requests.get client.Client_.session url 1649 + try Requests.get client.session url 1644 1650 with Eio.Io _ as ex -> 1645 1651 let bt = Printexc.get_raw_backtrace () in 1646 1652 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 1663 1669 let op_name = "update_tag" in 1664 1670 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/tags/{id}" in 1665 1671 let query = "" in 1666 - let url = client.Client_.base_url ^ url_path ^ query in 1672 + let url = client.base_url ^ url_path ^ query in 1667 1673 let response = 1668 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 1674 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 1669 1675 with Eio.Io _ as ex -> 1670 1676 let bt = Printexc.get_raw_backtrace () in 1671 1677 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 1727 1733 let op_name = "bulk_tag_assets" in 1728 1734 let url_path = "/tags/assets" in 1729 1735 let query = "" in 1730 - let url = client.Client_.base_url ^ url_path ^ query in 1736 + let url = client.base_url ^ url_path ^ query in 1731 1737 let response = 1732 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 1738 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 1733 1739 with Eio.Io _ as ex -> 1734 1740 let bt = Printexc.get_raw_backtrace () in 1735 1741 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 1852 1858 let op_name = "get_storage_template_options" in 1853 1859 let url_path = "/system-config/storage-template-options" in 1854 1860 let query = "" in 1855 - let url = client.Client_.base_url ^ url_path ^ query in 1861 + let url = client.base_url ^ url_path ^ query in 1856 1862 let response = 1857 - try Requests.get client.Client_.session url 1863 + try Requests.get client.session url 1858 1864 with Eio.Io _ as ex -> 1859 1865 let bt = Printexc.get_raw_backtrace () in 1860 1866 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 2027 2033 let op_name = "send_test_email_admin" in 2028 2034 let url_path = "/admin/notifications/test-email" in 2029 2035 let query = "" in 2030 - let url = client.Client_.base_url ^ url_path ^ query in 2036 + let url = client.base_url ^ url_path ^ query in 2031 2037 let response = 2032 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SystemConfigSmtp.Dto.jsont body)) url 2038 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SystemConfigSmtp.Dto.jsont body)) url 2033 2039 with Eio.Io _ as ex -> 2034 2040 let bt = Printexc.get_raw_backtrace () in 2035 2041 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 2652 2658 2653 2659 module SyncRequest = struct 2654 2660 module Type = struct 2655 - type t = 2656 - | Albums_v1 2657 - | Album_users_v1 2658 - | Album_to_assets_v1 2659 - | Album_assets_v1 2660 - | Album_asset_exifs_v1 2661 - | Assets_v1 2662 - | Asset_exifs_v1 2663 - | Asset_metadata_v1 2664 - | Auth_users_v1 2665 - | Memories_v1 2666 - | Memory_to_assets_v1 2667 - | Partners_v1 2668 - | Partner_assets_v1 2669 - | Partner_asset_exifs_v1 2670 - | Partner_stacks_v1 2671 - | Stacks_v1 2672 - | Users_v1 2673 - | People_v1 2674 - | Asset_faces_v1 2675 - | User_metadata_v1 2661 + type t = [ 2662 + | `Albums_v1 2663 + | `Album_users_v1 2664 + | `Album_to_assets_v1 2665 + | `Album_assets_v1 2666 + | `Album_asset_exifs_v1 2667 + | `Assets_v1 2668 + | `Asset_exifs_v1 2669 + | `Asset_metadata_v1 2670 + | `Auth_users_v1 2671 + | `Memories_v1 2672 + | `Memory_to_assets_v1 2673 + | `Partners_v1 2674 + | `Partner_assets_v1 2675 + | `Partner_asset_exifs_v1 2676 + | `Partner_stacks_v1 2677 + | `Stacks_v1 2678 + | `Users_v1 2679 + | `People_v1 2680 + | `Asset_faces_v1 2681 + | `User_metadata_v1 2682 + ] 2676 2683 2677 2684 let jsont : t Jsont.t = 2678 2685 Jsont.map Jsont.string ~kind:"SyncRequestType" 2679 2686 ~dec:(function 2680 - | "AlbumsV1" -> Albums_v1 2681 - | "AlbumUsersV1" -> Album_users_v1 2682 - | "AlbumToAssetsV1" -> Album_to_assets_v1 2683 - | "AlbumAssetsV1" -> Album_assets_v1 2684 - | "AlbumAssetExifsV1" -> Album_asset_exifs_v1 2685 - | "AssetsV1" -> Assets_v1 2686 - | "AssetExifsV1" -> Asset_exifs_v1 2687 - | "AssetMetadataV1" -> Asset_metadata_v1 2688 - | "AuthUsersV1" -> Auth_users_v1 2689 - | "MemoriesV1" -> Memories_v1 2690 - | "MemoryToAssetsV1" -> Memory_to_assets_v1 2691 - | "PartnersV1" -> Partners_v1 2692 - | "PartnerAssetsV1" -> Partner_assets_v1 2693 - | "PartnerAssetExifsV1" -> Partner_asset_exifs_v1 2694 - | "PartnerStacksV1" -> Partner_stacks_v1 2695 - | "StacksV1" -> Stacks_v1 2696 - | "UsersV1" -> Users_v1 2697 - | "PeopleV1" -> People_v1 2698 - | "AssetFacesV1" -> Asset_faces_v1 2699 - | "UserMetadataV1" -> User_metadata_v1 2687 + | "AlbumsV1" -> `Albums_v1 2688 + | "AlbumUsersV1" -> `Album_users_v1 2689 + | "AlbumToAssetsV1" -> `Album_to_assets_v1 2690 + | "AlbumAssetsV1" -> `Album_assets_v1 2691 + | "AlbumAssetExifsV1" -> `Album_asset_exifs_v1 2692 + | "AssetsV1" -> `Assets_v1 2693 + | "AssetExifsV1" -> `Asset_exifs_v1 2694 + | "AssetMetadataV1" -> `Asset_metadata_v1 2695 + | "AuthUsersV1" -> `Auth_users_v1 2696 + | "MemoriesV1" -> `Memories_v1 2697 + | "MemoryToAssetsV1" -> `Memory_to_assets_v1 2698 + | "PartnersV1" -> `Partners_v1 2699 + | "PartnerAssetsV1" -> `Partner_assets_v1 2700 + | "PartnerAssetExifsV1" -> `Partner_asset_exifs_v1 2701 + | "PartnerStacksV1" -> `Partner_stacks_v1 2702 + | "StacksV1" -> `Stacks_v1 2703 + | "UsersV1" -> `Users_v1 2704 + | "PeopleV1" -> `People_v1 2705 + | "AssetFacesV1" -> `Asset_faces_v1 2706 + | "UserMetadataV1" -> `User_metadata_v1 2700 2707 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 2701 2708 ~enc:(function 2702 - | Albums_v1 -> "AlbumsV1" 2703 - | Album_users_v1 -> "AlbumUsersV1" 2704 - | Album_to_assets_v1 -> "AlbumToAssetsV1" 2705 - | Album_assets_v1 -> "AlbumAssetsV1" 2706 - | Album_asset_exifs_v1 -> "AlbumAssetExifsV1" 2707 - | Assets_v1 -> "AssetsV1" 2708 - | Asset_exifs_v1 -> "AssetExifsV1" 2709 - | Asset_metadata_v1 -> "AssetMetadataV1" 2710 - | Auth_users_v1 -> "AuthUsersV1" 2711 - | Memories_v1 -> "MemoriesV1" 2712 - | Memory_to_assets_v1 -> "MemoryToAssetsV1" 2713 - | Partners_v1 -> "PartnersV1" 2714 - | Partner_assets_v1 -> "PartnerAssetsV1" 2715 - | Partner_asset_exifs_v1 -> "PartnerAssetExifsV1" 2716 - | Partner_stacks_v1 -> "PartnerStacksV1" 2717 - | Stacks_v1 -> "StacksV1" 2718 - | Users_v1 -> "UsersV1" 2719 - | People_v1 -> "PeopleV1" 2720 - | Asset_faces_v1 -> "AssetFacesV1" 2721 - | User_metadata_v1 -> "UserMetadataV1") 2709 + | `Albums_v1 -> "AlbumsV1" 2710 + | `Album_users_v1 -> "AlbumUsersV1" 2711 + | `Album_to_assets_v1 -> "AlbumToAssetsV1" 2712 + | `Album_assets_v1 -> "AlbumAssetsV1" 2713 + | `Album_asset_exifs_v1 -> "AlbumAssetExifsV1" 2714 + | `Assets_v1 -> "AssetsV1" 2715 + | `Asset_exifs_v1 -> "AssetExifsV1" 2716 + | `Asset_metadata_v1 -> "AssetMetadataV1" 2717 + | `Auth_users_v1 -> "AuthUsersV1" 2718 + | `Memories_v1 -> "MemoriesV1" 2719 + | `Memory_to_assets_v1 -> "MemoryToAssetsV1" 2720 + | `Partners_v1 -> "PartnersV1" 2721 + | `Partner_assets_v1 -> "PartnerAssetsV1" 2722 + | `Partner_asset_exifs_v1 -> "PartnerAssetExifsV1" 2723 + | `Partner_stacks_v1 -> "PartnerStacksV1" 2724 + | `Stacks_v1 -> "StacksV1" 2725 + | `Users_v1 -> "UsersV1" 2726 + | `People_v1 -> "PeopleV1" 2727 + | `Asset_faces_v1 -> "AssetFacesV1" 2728 + | `User_metadata_v1 -> "UserMetadataV1") 2722 2729 end 2723 2730 end 2724 2731 ··· 2973 2980 2974 2981 module SyncEntity = struct 2975 2982 module Type = struct 2976 - type t = 2977 - | Auth_user_v1 2978 - | User_v1 2979 - | User_delete_v1 2980 - | Asset_v1 2981 - | Asset_delete_v1 2982 - | Asset_exif_v1 2983 - | Asset_metadata_v1 2984 - | Asset_metadata_delete_v1 2985 - | Partner_v1 2986 - | Partner_delete_v1 2987 - | Partner_asset_v1 2988 - | Partner_asset_backfill_v1 2989 - | Partner_asset_delete_v1 2990 - | Partner_asset_exif_v1 2991 - | Partner_asset_exif_backfill_v1 2992 - | Partner_stack_backfill_v1 2993 - | Partner_stack_delete_v1 2994 - | Partner_stack_v1 2995 - | Album_v1 2996 - | Album_delete_v1 2997 - | Album_user_v1 2998 - | Album_user_backfill_v1 2999 - | Album_user_delete_v1 3000 - | Album_asset_create_v1 3001 - | Album_asset_update_v1 3002 - | Album_asset_backfill_v1 3003 - | Album_asset_exif_create_v1 3004 - | Album_asset_exif_update_v1 3005 - | Album_asset_exif_backfill_v1 3006 - | Album_to_asset_v1 3007 - | Album_to_asset_delete_v1 3008 - | Album_to_asset_backfill_v1 3009 - | Memory_v1 3010 - | Memory_delete_v1 3011 - | Memory_to_asset_v1 3012 - | Memory_to_asset_delete_v1 3013 - | Stack_v1 3014 - | Stack_delete_v1 3015 - | Person_v1 3016 - | Person_delete_v1 3017 - | Asset_face_v1 3018 - | Asset_face_delete_v1 3019 - | User_metadata_v1 3020 - | User_metadata_delete_v1 3021 - | Sync_ack_v1 3022 - | Sync_reset_v1 3023 - | Sync_complete_v1 2983 + type t = [ 2984 + | `Auth_user_v1 2985 + | `User_v1 2986 + | `User_delete_v1 2987 + | `Asset_v1 2988 + | `Asset_delete_v1 2989 + | `Asset_exif_v1 2990 + | `Asset_metadata_v1 2991 + | `Asset_metadata_delete_v1 2992 + | `Partner_v1 2993 + | `Partner_delete_v1 2994 + | `Partner_asset_v1 2995 + | `Partner_asset_backfill_v1 2996 + | `Partner_asset_delete_v1 2997 + | `Partner_asset_exif_v1 2998 + | `Partner_asset_exif_backfill_v1 2999 + | `Partner_stack_backfill_v1 3000 + | `Partner_stack_delete_v1 3001 + | `Partner_stack_v1 3002 + | `Album_v1 3003 + | `Album_delete_v1 3004 + | `Album_user_v1 3005 + | `Album_user_backfill_v1 3006 + | `Album_user_delete_v1 3007 + | `Album_asset_create_v1 3008 + | `Album_asset_update_v1 3009 + | `Album_asset_backfill_v1 3010 + | `Album_asset_exif_create_v1 3011 + | `Album_asset_exif_update_v1 3012 + | `Album_asset_exif_backfill_v1 3013 + | `Album_to_asset_v1 3014 + | `Album_to_asset_delete_v1 3015 + | `Album_to_asset_backfill_v1 3016 + | `Memory_v1 3017 + | `Memory_delete_v1 3018 + | `Memory_to_asset_v1 3019 + | `Memory_to_asset_delete_v1 3020 + | `Stack_v1 3021 + | `Stack_delete_v1 3022 + | `Person_v1 3023 + | `Person_delete_v1 3024 + | `Asset_face_v1 3025 + | `Asset_face_delete_v1 3026 + | `User_metadata_v1 3027 + | `User_metadata_delete_v1 3028 + | `Sync_ack_v1 3029 + | `Sync_reset_v1 3030 + | `Sync_complete_v1 3031 + ] 3024 3032 3025 3033 let jsont : t Jsont.t = 3026 3034 Jsont.map Jsont.string ~kind:"SyncEntityType" 3027 3035 ~dec:(function 3028 - | "AuthUserV1" -> Auth_user_v1 3029 - | "UserV1" -> User_v1 3030 - | "UserDeleteV1" -> User_delete_v1 3031 - | "AssetV1" -> Asset_v1 3032 - | "AssetDeleteV1" -> Asset_delete_v1 3033 - | "AssetExifV1" -> Asset_exif_v1 3034 - | "AssetMetadataV1" -> Asset_metadata_v1 3035 - | "AssetMetadataDeleteV1" -> Asset_metadata_delete_v1 3036 - | "PartnerV1" -> Partner_v1 3037 - | "PartnerDeleteV1" -> Partner_delete_v1 3038 - | "PartnerAssetV1" -> Partner_asset_v1 3039 - | "PartnerAssetBackfillV1" -> Partner_asset_backfill_v1 3040 - | "PartnerAssetDeleteV1" -> Partner_asset_delete_v1 3041 - | "PartnerAssetExifV1" -> Partner_asset_exif_v1 3042 - | "PartnerAssetExifBackfillV1" -> Partner_asset_exif_backfill_v1 3043 - | "PartnerStackBackfillV1" -> Partner_stack_backfill_v1 3044 - | "PartnerStackDeleteV1" -> Partner_stack_delete_v1 3045 - | "PartnerStackV1" -> Partner_stack_v1 3046 - | "AlbumV1" -> Album_v1 3047 - | "AlbumDeleteV1" -> Album_delete_v1 3048 - | "AlbumUserV1" -> Album_user_v1 3049 - | "AlbumUserBackfillV1" -> Album_user_backfill_v1 3050 - | "AlbumUserDeleteV1" -> Album_user_delete_v1 3051 - | "AlbumAssetCreateV1" -> Album_asset_create_v1 3052 - | "AlbumAssetUpdateV1" -> Album_asset_update_v1 3053 - | "AlbumAssetBackfillV1" -> Album_asset_backfill_v1 3054 - | "AlbumAssetExifCreateV1" -> Album_asset_exif_create_v1 3055 - | "AlbumAssetExifUpdateV1" -> Album_asset_exif_update_v1 3056 - | "AlbumAssetExifBackfillV1" -> Album_asset_exif_backfill_v1 3057 - | "AlbumToAssetV1" -> Album_to_asset_v1 3058 - | "AlbumToAssetDeleteV1" -> Album_to_asset_delete_v1 3059 - | "AlbumToAssetBackfillV1" -> Album_to_asset_backfill_v1 3060 - | "MemoryV1" -> Memory_v1 3061 - | "MemoryDeleteV1" -> Memory_delete_v1 3062 - | "MemoryToAssetV1" -> Memory_to_asset_v1 3063 - | "MemoryToAssetDeleteV1" -> Memory_to_asset_delete_v1 3064 - | "StackV1" -> Stack_v1 3065 - | "StackDeleteV1" -> Stack_delete_v1 3066 - | "PersonV1" -> Person_v1 3067 - | "PersonDeleteV1" -> Person_delete_v1 3068 - | "AssetFaceV1" -> Asset_face_v1 3069 - | "AssetFaceDeleteV1" -> Asset_face_delete_v1 3070 - | "UserMetadataV1" -> User_metadata_v1 3071 - | "UserMetadataDeleteV1" -> User_metadata_delete_v1 3072 - | "SyncAckV1" -> Sync_ack_v1 3073 - | "SyncResetV1" -> Sync_reset_v1 3074 - | "SyncCompleteV1" -> Sync_complete_v1 3036 + | "AuthUserV1" -> `Auth_user_v1 3037 + | "UserV1" -> `User_v1 3038 + | "UserDeleteV1" -> `User_delete_v1 3039 + | "AssetV1" -> `Asset_v1 3040 + | "AssetDeleteV1" -> `Asset_delete_v1 3041 + | "AssetExifV1" -> `Asset_exif_v1 3042 + | "AssetMetadataV1" -> `Asset_metadata_v1 3043 + | "AssetMetadataDeleteV1" -> `Asset_metadata_delete_v1 3044 + | "PartnerV1" -> `Partner_v1 3045 + | "PartnerDeleteV1" -> `Partner_delete_v1 3046 + | "PartnerAssetV1" -> `Partner_asset_v1 3047 + | "PartnerAssetBackfillV1" -> `Partner_asset_backfill_v1 3048 + | "PartnerAssetDeleteV1" -> `Partner_asset_delete_v1 3049 + | "PartnerAssetExifV1" -> `Partner_asset_exif_v1 3050 + | "PartnerAssetExifBackfillV1" -> `Partner_asset_exif_backfill_v1 3051 + | "PartnerStackBackfillV1" -> `Partner_stack_backfill_v1 3052 + | "PartnerStackDeleteV1" -> `Partner_stack_delete_v1 3053 + | "PartnerStackV1" -> `Partner_stack_v1 3054 + | "AlbumV1" -> `Album_v1 3055 + | "AlbumDeleteV1" -> `Album_delete_v1 3056 + | "AlbumUserV1" -> `Album_user_v1 3057 + | "AlbumUserBackfillV1" -> `Album_user_backfill_v1 3058 + | "AlbumUserDeleteV1" -> `Album_user_delete_v1 3059 + | "AlbumAssetCreateV1" -> `Album_asset_create_v1 3060 + | "AlbumAssetUpdateV1" -> `Album_asset_update_v1 3061 + | "AlbumAssetBackfillV1" -> `Album_asset_backfill_v1 3062 + | "AlbumAssetExifCreateV1" -> `Album_asset_exif_create_v1 3063 + | "AlbumAssetExifUpdateV1" -> `Album_asset_exif_update_v1 3064 + | "AlbumAssetExifBackfillV1" -> `Album_asset_exif_backfill_v1 3065 + | "AlbumToAssetV1" -> `Album_to_asset_v1 3066 + | "AlbumToAssetDeleteV1" -> `Album_to_asset_delete_v1 3067 + | "AlbumToAssetBackfillV1" -> `Album_to_asset_backfill_v1 3068 + | "MemoryV1" -> `Memory_v1 3069 + | "MemoryDeleteV1" -> `Memory_delete_v1 3070 + | "MemoryToAssetV1" -> `Memory_to_asset_v1 3071 + | "MemoryToAssetDeleteV1" -> `Memory_to_asset_delete_v1 3072 + | "StackV1" -> `Stack_v1 3073 + | "StackDeleteV1" -> `Stack_delete_v1 3074 + | "PersonV1" -> `Person_v1 3075 + | "PersonDeleteV1" -> `Person_delete_v1 3076 + | "AssetFaceV1" -> `Asset_face_v1 3077 + | "AssetFaceDeleteV1" -> `Asset_face_delete_v1 3078 + | "UserMetadataV1" -> `User_metadata_v1 3079 + | "UserMetadataDeleteV1" -> `User_metadata_delete_v1 3080 + | "SyncAckV1" -> `Sync_ack_v1 3081 + | "SyncResetV1" -> `Sync_reset_v1 3082 + | "SyncCompleteV1" -> `Sync_complete_v1 3075 3083 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 3076 3084 ~enc:(function 3077 - | Auth_user_v1 -> "AuthUserV1" 3078 - | User_v1 -> "UserV1" 3079 - | User_delete_v1 -> "UserDeleteV1" 3080 - | Asset_v1 -> "AssetV1" 3081 - | Asset_delete_v1 -> "AssetDeleteV1" 3082 - | Asset_exif_v1 -> "AssetExifV1" 3083 - | Asset_metadata_v1 -> "AssetMetadataV1" 3084 - | Asset_metadata_delete_v1 -> "AssetMetadataDeleteV1" 3085 - | Partner_v1 -> "PartnerV1" 3086 - | Partner_delete_v1 -> "PartnerDeleteV1" 3087 - | Partner_asset_v1 -> "PartnerAssetV1" 3088 - | Partner_asset_backfill_v1 -> "PartnerAssetBackfillV1" 3089 - | Partner_asset_delete_v1 -> "PartnerAssetDeleteV1" 3090 - | Partner_asset_exif_v1 -> "PartnerAssetExifV1" 3091 - | Partner_asset_exif_backfill_v1 -> "PartnerAssetExifBackfillV1" 3092 - | Partner_stack_backfill_v1 -> "PartnerStackBackfillV1" 3093 - | Partner_stack_delete_v1 -> "PartnerStackDeleteV1" 3094 - | Partner_stack_v1 -> "PartnerStackV1" 3095 - | Album_v1 -> "AlbumV1" 3096 - | Album_delete_v1 -> "AlbumDeleteV1" 3097 - | Album_user_v1 -> "AlbumUserV1" 3098 - | Album_user_backfill_v1 -> "AlbumUserBackfillV1" 3099 - | Album_user_delete_v1 -> "AlbumUserDeleteV1" 3100 - | Album_asset_create_v1 -> "AlbumAssetCreateV1" 3101 - | Album_asset_update_v1 -> "AlbumAssetUpdateV1" 3102 - | Album_asset_backfill_v1 -> "AlbumAssetBackfillV1" 3103 - | Album_asset_exif_create_v1 -> "AlbumAssetExifCreateV1" 3104 - | Album_asset_exif_update_v1 -> "AlbumAssetExifUpdateV1" 3105 - | Album_asset_exif_backfill_v1 -> "AlbumAssetExifBackfillV1" 3106 - | Album_to_asset_v1 -> "AlbumToAssetV1" 3107 - | Album_to_asset_delete_v1 -> "AlbumToAssetDeleteV1" 3108 - | Album_to_asset_backfill_v1 -> "AlbumToAssetBackfillV1" 3109 - | Memory_v1 -> "MemoryV1" 3110 - | Memory_delete_v1 -> "MemoryDeleteV1" 3111 - | Memory_to_asset_v1 -> "MemoryToAssetV1" 3112 - | Memory_to_asset_delete_v1 -> "MemoryToAssetDeleteV1" 3113 - | Stack_v1 -> "StackV1" 3114 - | Stack_delete_v1 -> "StackDeleteV1" 3115 - | Person_v1 -> "PersonV1" 3116 - | Person_delete_v1 -> "PersonDeleteV1" 3117 - | Asset_face_v1 -> "AssetFaceV1" 3118 - | Asset_face_delete_v1 -> "AssetFaceDeleteV1" 3119 - | User_metadata_v1 -> "UserMetadataV1" 3120 - | User_metadata_delete_v1 -> "UserMetadataDeleteV1" 3121 - | Sync_ack_v1 -> "SyncAckV1" 3122 - | Sync_reset_v1 -> "SyncResetV1" 3123 - | Sync_complete_v1 -> "SyncCompleteV1") 3085 + | `Auth_user_v1 -> "AuthUserV1" 3086 + | `User_v1 -> "UserV1" 3087 + | `User_delete_v1 -> "UserDeleteV1" 3088 + | `Asset_v1 -> "AssetV1" 3089 + | `Asset_delete_v1 -> "AssetDeleteV1" 3090 + | `Asset_exif_v1 -> "AssetExifV1" 3091 + | `Asset_metadata_v1 -> "AssetMetadataV1" 3092 + | `Asset_metadata_delete_v1 -> "AssetMetadataDeleteV1" 3093 + | `Partner_v1 -> "PartnerV1" 3094 + | `Partner_delete_v1 -> "PartnerDeleteV1" 3095 + | `Partner_asset_v1 -> "PartnerAssetV1" 3096 + | `Partner_asset_backfill_v1 -> "PartnerAssetBackfillV1" 3097 + | `Partner_asset_delete_v1 -> "PartnerAssetDeleteV1" 3098 + | `Partner_asset_exif_v1 -> "PartnerAssetExifV1" 3099 + | `Partner_asset_exif_backfill_v1 -> "PartnerAssetExifBackfillV1" 3100 + | `Partner_stack_backfill_v1 -> "PartnerStackBackfillV1" 3101 + | `Partner_stack_delete_v1 -> "PartnerStackDeleteV1" 3102 + | `Partner_stack_v1 -> "PartnerStackV1" 3103 + | `Album_v1 -> "AlbumV1" 3104 + | `Album_delete_v1 -> "AlbumDeleteV1" 3105 + | `Album_user_v1 -> "AlbumUserV1" 3106 + | `Album_user_backfill_v1 -> "AlbumUserBackfillV1" 3107 + | `Album_user_delete_v1 -> "AlbumUserDeleteV1" 3108 + | `Album_asset_create_v1 -> "AlbumAssetCreateV1" 3109 + | `Album_asset_update_v1 -> "AlbumAssetUpdateV1" 3110 + | `Album_asset_backfill_v1 -> "AlbumAssetBackfillV1" 3111 + | `Album_asset_exif_create_v1 -> "AlbumAssetExifCreateV1" 3112 + | `Album_asset_exif_update_v1 -> "AlbumAssetExifUpdateV1" 3113 + | `Album_asset_exif_backfill_v1 -> "AlbumAssetExifBackfillV1" 3114 + | `Album_to_asset_v1 -> "AlbumToAssetV1" 3115 + | `Album_to_asset_delete_v1 -> "AlbumToAssetDeleteV1" 3116 + | `Album_to_asset_backfill_v1 -> "AlbumToAssetBackfillV1" 3117 + | `Memory_v1 -> "MemoryV1" 3118 + | `Memory_delete_v1 -> "MemoryDeleteV1" 3119 + | `Memory_to_asset_v1 -> "MemoryToAssetV1" 3120 + | `Memory_to_asset_delete_v1 -> "MemoryToAssetDeleteV1" 3121 + | `Stack_v1 -> "StackV1" 3122 + | `Stack_delete_v1 -> "StackDeleteV1" 3123 + | `Person_v1 -> "PersonV1" 3124 + | `Person_delete_v1 -> "PersonDeleteV1" 3125 + | `Asset_face_v1 -> "AssetFaceV1" 3126 + | `Asset_face_delete_v1 -> "AssetFaceDeleteV1" 3127 + | `User_metadata_v1 -> "UserMetadataV1" 3128 + | `User_metadata_delete_v1 -> "UserMetadataDeleteV1" 3129 + | `Sync_ack_v1 -> "SyncAckV1" 3130 + | `Sync_reset_v1 -> "SyncResetV1" 3131 + | `Sync_complete_v1 -> "SyncCompleteV1") 3124 3132 end 3125 3133 end 3126 3134 ··· 3714 3722 let op_name = "get_sync_ack" in 3715 3723 let url_path = "/sync/ack" in 3716 3724 let query = "" in 3717 - let url = client.Client_.base_url ^ url_path ^ query in 3725 + let url = client.base_url ^ url_path ^ query in 3718 3726 let response = 3719 - try Requests.get client.Client_.session url 3727 + try Requests.get client.session url 3720 3728 with Eio.Io _ as ex -> 3721 3729 let bt = Printexc.get_raw_backtrace () in 3722 3730 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 3735 3743 3736 3744 module StorageFolder = struct 3737 3745 module T = struct 3738 - type t = 3739 - | Encoded_video 3740 - | Library 3741 - | Upload 3742 - | Profile 3743 - | Thumbs 3744 - | Backups 3746 + type t = [ 3747 + | `Encoded_video 3748 + | `Library 3749 + | `Upload 3750 + | `Profile 3751 + | `Thumbs 3752 + | `Backups 3753 + ] 3745 3754 3746 3755 let jsont : t Jsont.t = 3747 3756 Jsont.map Jsont.string ~kind:"StorageFolder" 3748 3757 ~dec:(function 3749 - | "encoded-video" -> Encoded_video 3750 - | "library" -> Library 3751 - | "upload" -> Upload 3752 - | "profile" -> Profile 3753 - | "thumbs" -> Thumbs 3754 - | "backups" -> Backups 3758 + | "encoded-video" -> `Encoded_video 3759 + | "library" -> `Library 3760 + | "upload" -> `Upload 3761 + | "profile" -> `Profile 3762 + | "thumbs" -> `Thumbs 3763 + | "backups" -> `Backups 3755 3764 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 3756 3765 ~enc:(function 3757 - | Encoded_video -> "encoded-video" 3758 - | Library -> "library" 3759 - | Upload -> "upload" 3760 - | Profile -> "profile" 3761 - | Thumbs -> "thumbs" 3762 - | Backups -> "backups") 3766 + | `Encoded_video -> "encoded-video" 3767 + | `Library -> "library" 3768 + | `Upload -> "upload" 3769 + | `Profile -> "profile" 3770 + | `Thumbs -> "thumbs" 3771 + | `Backups -> "backups") 3763 3772 end 3764 3773 end 3765 3774 ··· 3891 3900 let op_name = "search_asset_statistics" in 3892 3901 let url_path = "/search/statistics" in 3893 3902 let query = "" in 3894 - let url = client.Client_.base_url ^ url_path ^ query in 3903 + let url = client.base_url ^ url_path ^ query in 3895 3904 let response = 3896 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json StatisticsSearch.Dto.jsont body)) url 3905 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json StatisticsSearch.Dto.jsont body)) url 3897 3906 with Eio.Io _ as ex -> 3898 3907 let bt = Printexc.get_raw_backtrace () in 3899 3908 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 3912 3921 3913 3922 module Source = struct 3914 3923 module Type = struct 3915 - type t = 3916 - | Machine_learning 3917 - | Exif 3918 - | Manual 3924 + type t = [ 3925 + | `Machine_learning 3926 + | `Exif 3927 + | `Manual 3928 + ] 3919 3929 3920 3930 let jsont : t Jsont.t = 3921 3931 Jsont.map Jsont.string ~kind:"SourceType" 3922 3932 ~dec:(function 3923 - | "machine-learning" -> Machine_learning 3924 - | "exif" -> Exif 3925 - | "manual" -> Manual 3933 + | "machine-learning" -> `Machine_learning 3934 + | "exif" -> `Exif 3935 + | "manual" -> `Manual 3926 3936 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 3927 3937 ~enc:(function 3928 - | Machine_learning -> "machine-learning" 3929 - | Exif -> "exif" 3930 - | Manual -> "manual") 3938 + | `Machine_learning -> "machine-learning" 3939 + | `Exif -> "exif" 3940 + | `Manual -> "manual") 3931 3941 end 3932 3942 end 3933 3943 ··· 4294 4304 let op_name = "get_user_sessions_admin" in 4295 4305 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}/sessions" in 4296 4306 let query = "" in 4297 - let url = client.Client_.base_url ^ url_path ^ query in 4307 + let url = client.base_url ^ url_path ^ query in 4298 4308 let response = 4299 - try Requests.get client.Client_.session url 4309 + try Requests.get client.session url 4300 4310 with Eio.Io _ as ex -> 4301 4311 let bt = Printexc.get_raw_backtrace () in 4302 4312 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4319 4329 let op_name = "get_sessions" in 4320 4330 let url_path = "/sessions" in 4321 4331 let query = "" in 4322 - let url = client.Client_.base_url ^ url_path ^ query in 4332 + let url = client.base_url ^ url_path ^ query in 4323 4333 let response = 4324 - try Requests.get client.Client_.session url 4334 + try Requests.get client.session url 4325 4335 with Eio.Io _ as ex -> 4326 4336 let bt = Printexc.get_raw_backtrace () in 4327 4337 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4344 4354 let op_name = "update_session" in 4345 4355 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/sessions/{id}" in 4346 4356 let query = "" in 4347 - let url = client.Client_.base_url ^ url_path ^ query in 4357 + let url = client.base_url ^ url_path ^ query in 4348 4358 let response = 4349 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 4359 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 4350 4360 with Eio.Io _ as ex -> 4351 4361 let bt = Printexc.get_raw_backtrace () in 4352 4362 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 4415 4425 let op_name = "create_session" in 4416 4426 let url_path = "/sessions" in 4417 4427 let query = "" in 4418 - let url = client.Client_.base_url ^ url_path ^ query in 4428 + let url = client.base_url ^ url_path ^ query in 4419 4429 let response = 4420 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Session.CreateDto.jsont body)) url 4430 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Session.CreateDto.jsont body)) url 4421 4431 with Eio.Io _ as ex -> 4422 4432 let bt = Printexc.get_raw_backtrace () in 4423 4433 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 4465 4475 let op_name = "get_version_history" in 4466 4476 let url_path = "/server/version-history" in 4467 4477 let query = "" in 4468 - let url = client.Client_.base_url ^ url_path ^ query in 4478 + let url = client.base_url ^ url_path ^ query in 4469 4479 let response = 4470 - try Requests.get client.Client_.session url 4480 + try Requests.get client.session url 4471 4481 with Eio.Io _ as ex -> 4472 4482 let bt = Printexc.get_raw_backtrace () in 4473 4483 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4515 4525 let op_name = "get_server_version" in 4516 4526 let url_path = "/server/version" in 4517 4527 let query = "" in 4518 - let url = client.Client_.base_url ^ url_path ^ query in 4528 + let url = client.base_url ^ url_path ^ query in 4519 4529 let response = 4520 - try Requests.get client.Client_.session url 4530 + try Requests.get client.session url 4521 4531 with Eio.Io _ as ex -> 4522 4532 let bt = Printexc.get_raw_backtrace () in 4523 4533 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4559 4569 let op_name = "get_theme" in 4560 4570 let url_path = "/server/theme" in 4561 4571 let query = "" in 4562 - let url = client.Client_.base_url ^ url_path ^ query in 4572 + let url = client.base_url ^ url_path ^ query in 4563 4573 let response = 4564 - try Requests.get client.Client_.session url 4574 + try Requests.get client.session url 4565 4575 with Eio.Io _ as ex -> 4566 4576 let bt = Printexc.get_raw_backtrace () in 4567 4577 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4621 4631 let op_name = "get_storage" in 4622 4632 let url_path = "/server/storage" in 4623 4633 let query = "" in 4624 - let url = client.Client_.base_url ^ url_path ^ query in 4634 + let url = client.base_url ^ url_path ^ query in 4625 4635 let response = 4626 - try Requests.get client.Client_.session url 4636 + try Requests.get client.session url 4627 4637 with Eio.Io _ as ex -> 4628 4638 let bt = Printexc.get_raw_backtrace () in 4629 4639 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4665 4675 let op_name = "ping_server" in 4666 4676 let url_path = "/server/ping" in 4667 4677 let query = "" in 4668 - let url = client.Client_.base_url ^ url_path ^ query in 4678 + let url = client.base_url ^ url_path ^ query in 4669 4679 let response = 4670 - try Requests.get client.Client_.session url 4680 + try Requests.get client.session url 4671 4681 with Eio.Io _ as ex -> 4672 4682 let bt = Printexc.get_raw_backtrace () in 4673 4683 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4715 4725 let op_name = "get_supported_media_types" in 4716 4726 let url_path = "/server/media-types" in 4717 4727 let query = "" in 4718 - let url = client.Client_.base_url ^ url_path ^ query in 4728 + let url = client.base_url ^ url_path ^ query in 4719 4729 let response = 4720 - try Requests.get client.Client_.session url 4730 + try Requests.get client.session url 4721 4731 with Eio.Io _ as ex -> 4722 4732 let bt = Printexc.get_raw_backtrace () in 4723 4733 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4801 4811 let op_name = "get_server_features" in 4802 4812 let url_path = "/server/features" in 4803 4813 let query = "" in 4804 - let url = client.Client_.base_url ^ url_path ^ query in 4814 + let url = client.base_url ^ url_path ^ query in 4805 4815 let response = 4806 - try Requests.get client.Client_.session url 4816 + try Requests.get client.session url 4807 4817 with Eio.Io _ as ex -> 4808 4818 let bt = Printexc.get_raw_backtrace () in 4809 4819 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4875 4885 let op_name = "get_server_config" in 4876 4886 let url_path = "/server/config" in 4877 4887 let query = "" in 4878 - let url = client.Client_.base_url ^ url_path ^ query in 4888 + let url = client.base_url ^ url_path ^ query in 4879 4889 let response = 4880 - try Requests.get client.Client_.session url 4890 + try Requests.get client.session url 4881 4891 with Eio.Io _ as ex -> 4882 4892 let bt = Printexc.get_raw_backtrace () in 4883 4893 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 4928 4938 let op_name = "get_apk_links" in 4929 4939 let url_path = "/server/apk-links" in 4930 4940 let query = "" in 4931 - let url = client.Client_.base_url ^ url_path ^ query in 4941 + let url = client.base_url ^ url_path ^ query in 4932 4942 let response = 4933 - try Requests.get client.Client_.session url 4943 + try Requests.get client.session url 4934 4944 with Eio.Io _ as ex -> 4935 4945 let bt = Printexc.get_raw_backtrace () in 4936 4946 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 5032 5042 let op_name = "get_about_info" in 5033 5043 let url_path = "/server/about" in 5034 5044 let query = "" in 5035 - let url = client.Client_.base_url ^ url_path ^ query in 5045 + let url = client.base_url ^ url_path ^ query in 5036 5046 let response = 5037 - try Requests.get client.Client_.session url 5047 + try Requests.get client.session url 5038 5048 with Eio.Io _ as ex -> 5039 5049 let bt = Printexc.get_raw_backtrace () in 5040 5050 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 5053 5063 5054 5064 module SearchSuggestion = struct 5055 5065 module Type = struct 5056 - type t = 5057 - | Country 5058 - | State 5059 - | City 5060 - | Camera_make 5061 - | Camera_model 5062 - | Camera_lens_model 5066 + type t = [ 5067 + | `Country 5068 + | `State 5069 + | `City 5070 + | `Camera_make 5071 + | `Camera_model 5072 + | `Camera_lens_model 5073 + ] 5063 5074 5064 5075 let jsont : t Jsont.t = 5065 5076 Jsont.map Jsont.string ~kind:"SearchSuggestionType" 5066 5077 ~dec:(function 5067 - | "country" -> Country 5068 - | "state" -> State 5069 - | "city" -> City 5070 - | "camera-make" -> Camera_make 5071 - | "camera-model" -> Camera_model 5072 - | "camera-lens-model" -> Camera_lens_model 5078 + | "country" -> `Country 5079 + | "state" -> `State 5080 + | "city" -> `City 5081 + | "camera-make" -> `Camera_make 5082 + | "camera-model" -> `Camera_model 5083 + | "camera-lens-model" -> `Camera_lens_model 5073 5084 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 5074 5085 ~enc:(function 5075 - | Country -> "country" 5076 - | State -> "state" 5077 - | City -> "city" 5078 - | Camera_make -> "camera-make" 5079 - | Camera_model -> "camera-model" 5080 - | Camera_lens_model -> "camera-lens-model") 5086 + | `Country -> "country" 5087 + | `State -> "state" 5088 + | `City -> "city" 5089 + | `Camera_make -> "camera-make" 5090 + | `Camera_model -> "camera-model" 5091 + | `Camera_lens_model -> "camera-lens-model") 5081 5092 end 5082 5093 end 5083 5094 ··· 5194 5205 let op_name = "get_reverse_geocoding_state" in 5195 5206 let url_path = "/system-metadata/reverse-geocoding-state" in 5196 5207 let query = "" in 5197 - let url = client.Client_.base_url ^ url_path ^ query in 5208 + let url = client.base_url ^ url_path ^ query in 5198 5209 let response = 5199 - try Requests.get client.Client_.session url 5210 + try Requests.get client.session url 5200 5211 with Eio.Io _ as ex -> 5201 5212 let bt = Printexc.get_raw_backtrace () in 5202 5213 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 5215 5226 5216 5227 module ReactionLevel = struct 5217 5228 module T = struct 5218 - type t = 5219 - | Album 5220 - | Asset 5229 + type t = [ 5230 + | `Album 5231 + | `Asset 5232 + ] 5221 5233 5222 5234 let jsont : t Jsont.t = 5223 5235 Jsont.map Jsont.string ~kind:"ReactionLevel" 5224 5236 ~dec:(function 5225 - | "album" -> Album 5226 - | "asset" -> Asset 5237 + | "album" -> `Album 5238 + | "asset" -> `Asset 5227 5239 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 5228 5240 ~enc:(function 5229 - | Album -> "album" 5230 - | Asset -> "asset") 5241 + | `Album -> "album" 5242 + | `Asset -> "asset") 5231 5243 end 5232 5244 end 5233 5245 5234 5246 module Reaction = struct 5235 5247 module Type = struct 5236 - type t = 5237 - | Comment 5238 - | Like 5248 + type t = [ 5249 + | `Comment 5250 + | `Like 5251 + ] 5239 5252 5240 5253 let jsont : t Jsont.t = 5241 5254 Jsont.map Jsont.string ~kind:"ReactionType" 5242 5255 ~dec:(function 5243 - | "comment" -> Comment 5244 - | "like" -> Like 5256 + | "comment" -> `Comment 5257 + | "like" -> `Like 5245 5258 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 5246 5259 ~enc:(function 5247 - | Comment -> "comment" 5248 - | Like -> "like") 5260 + | `Comment -> "comment" 5261 + | `Like -> "like") 5249 5262 end 5250 5263 end 5251 5264 ··· 5504 5517 let op_name = "get_queues" in 5505 5518 let url_path = "/queues" in 5506 5519 let query = "" in 5507 - let url = client.Client_.base_url ^ url_path ^ query in 5520 + let url = client.base_url ^ url_path ^ query in 5508 5521 let response = 5509 - try Requests.get client.Client_.session url 5522 + try Requests.get client.session url 5510 5523 with Eio.Io _ as ex -> 5511 5524 let bt = Printexc.get_raw_backtrace () in 5512 5525 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 5529 5542 let op_name = "get_queue" in 5530 5543 let url_path = Openapi.Runtime.Path.render ~params:[("name", name)] "/queues/{name}" in 5531 5544 let query = "" in 5532 - let url = client.Client_.base_url ^ url_path ^ query in 5545 + let url = client.base_url ^ url_path ^ query in 5533 5546 let response = 5534 - try Requests.get client.Client_.session url 5547 + try Requests.get client.session url 5535 5548 with Eio.Io _ as ex -> 5536 5549 let bt = Printexc.get_raw_backtrace () in 5537 5550 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 5554 5567 let op_name = "update_queue" in 5555 5568 let url_path = Openapi.Runtime.Path.render ~params:[("name", name)] "/queues/{name}" in 5556 5569 let query = "" in 5557 - let url = client.Client_.base_url ^ url_path ^ query in 5570 + let url = client.base_url ^ url_path ^ query in 5558 5571 let response = 5559 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 5572 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 5560 5573 with Eio.Io _ as ex -> 5561 5574 let bt = Printexc.get_raw_backtrace () in 5562 5575 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 5575 5588 5576 5589 module QueueName = struct 5577 5590 module T = struct 5578 - type t = 5579 - | Thumbnail_generation 5580 - | Metadata_extraction 5581 - | Video_conversion 5582 - | Face_detection 5583 - | Facial_recognition 5584 - | Smart_search 5585 - | Duplicate_detection 5586 - | Background_task 5587 - | Storage_template_migration 5588 - | Migration 5589 - | Search 5590 - | Sidecar 5591 - | Library 5592 - | Notifications 5593 - | Backup_database 5594 - | Ocr 5595 - | Workflow 5596 - | Editor 5591 + type t = [ 5592 + | `Thumbnail_generation 5593 + | `Metadata_extraction 5594 + | `Video_conversion 5595 + | `Face_detection 5596 + | `Facial_recognition 5597 + | `Smart_search 5598 + | `Duplicate_detection 5599 + | `Background_task 5600 + | `Storage_template_migration 5601 + | `Migration 5602 + | `Search 5603 + | `Sidecar 5604 + | `Library 5605 + | `Notifications 5606 + | `Backup_database 5607 + | `Ocr 5608 + | `Workflow 5609 + | `Editor 5610 + ] 5597 5611 5598 5612 let jsont : t Jsont.t = 5599 5613 Jsont.map Jsont.string ~kind:"QueueName" 5600 5614 ~dec:(function 5601 - | "thumbnailGeneration" -> Thumbnail_generation 5602 - | "metadataExtraction" -> Metadata_extraction 5603 - | "videoConversion" -> Video_conversion 5604 - | "faceDetection" -> Face_detection 5605 - | "facialRecognition" -> Facial_recognition 5606 - | "smartSearch" -> Smart_search 5607 - | "duplicateDetection" -> Duplicate_detection 5608 - | "backgroundTask" -> Background_task 5609 - | "storageTemplateMigration" -> Storage_template_migration 5610 - | "migration" -> Migration 5611 - | "search" -> Search 5612 - | "sidecar" -> Sidecar 5613 - | "library" -> Library 5614 - | "notifications" -> Notifications 5615 - | "backupDatabase" -> Backup_database 5616 - | "ocr" -> Ocr 5617 - | "workflow" -> Workflow 5618 - | "editor" -> Editor 5615 + | "thumbnailGeneration" -> `Thumbnail_generation 5616 + | "metadataExtraction" -> `Metadata_extraction 5617 + | "videoConversion" -> `Video_conversion 5618 + | "faceDetection" -> `Face_detection 5619 + | "facialRecognition" -> `Facial_recognition 5620 + | "smartSearch" -> `Smart_search 5621 + | "duplicateDetection" -> `Duplicate_detection 5622 + | "backgroundTask" -> `Background_task 5623 + | "storageTemplateMigration" -> `Storage_template_migration 5624 + | "migration" -> `Migration 5625 + | "search" -> `Search 5626 + | "sidecar" -> `Sidecar 5627 + | "library" -> `Library 5628 + | "notifications" -> `Notifications 5629 + | "backupDatabase" -> `Backup_database 5630 + | "ocr" -> `Ocr 5631 + | "workflow" -> `Workflow 5632 + | "editor" -> `Editor 5619 5633 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 5620 5634 ~enc:(function 5621 - | Thumbnail_generation -> "thumbnailGeneration" 5622 - | Metadata_extraction -> "metadataExtraction" 5623 - | Video_conversion -> "videoConversion" 5624 - | Face_detection -> "faceDetection" 5625 - | Facial_recognition -> "facialRecognition" 5626 - | Smart_search -> "smartSearch" 5627 - | Duplicate_detection -> "duplicateDetection" 5628 - | Background_task -> "backgroundTask" 5629 - | Storage_template_migration -> "storageTemplateMigration" 5630 - | Migration -> "migration" 5631 - | Search -> "search" 5632 - | Sidecar -> "sidecar" 5633 - | Library -> "library" 5634 - | Notifications -> "notifications" 5635 - | Backup_database -> "backupDatabase" 5636 - | Ocr -> "ocr" 5637 - | Workflow -> "workflow" 5638 - | Editor -> "editor") 5635 + | `Thumbnail_generation -> "thumbnailGeneration" 5636 + | `Metadata_extraction -> "metadataExtraction" 5637 + | `Video_conversion -> "videoConversion" 5638 + | `Face_detection -> "faceDetection" 5639 + | `Facial_recognition -> "facialRecognition" 5640 + | `Smart_search -> "smartSearch" 5641 + | `Duplicate_detection -> "duplicateDetection" 5642 + | `Background_task -> "backgroundTask" 5643 + | `Storage_template_migration -> "storageTemplateMigration" 5644 + | `Migration -> "migration" 5645 + | `Search -> "search" 5646 + | `Sidecar -> "sidecar" 5647 + | `Library -> "library" 5648 + | `Notifications -> "notifications" 5649 + | `Backup_database -> "backupDatabase" 5650 + | `Ocr -> "ocr" 5651 + | `Workflow -> "workflow" 5652 + | `Editor -> "editor") 5639 5653 end 5640 5654 end 5641 5655 5642 5656 module QueueJob = struct 5643 5657 module Status = struct 5644 - type t = 5645 - | Active 5646 - | Failed 5647 - | Completed 5648 - | Delayed 5649 - | Waiting 5650 - | Paused 5658 + type t = [ 5659 + | `Active 5660 + | `Failed 5661 + | `Completed 5662 + | `Delayed 5663 + | `Waiting 5664 + | `Paused 5665 + ] 5651 5666 5652 5667 let jsont : t Jsont.t = 5653 5668 Jsont.map Jsont.string ~kind:"QueueJobStatus" 5654 5669 ~dec:(function 5655 - | "active" -> Active 5656 - | "failed" -> Failed 5657 - | "completed" -> Completed 5658 - | "delayed" -> Delayed 5659 - | "waiting" -> Waiting 5660 - | "paused" -> Paused 5670 + | "active" -> `Active 5671 + | "failed" -> `Failed 5672 + | "completed" -> `Completed 5673 + | "delayed" -> `Delayed 5674 + | "waiting" -> `Waiting 5675 + | "paused" -> `Paused 5661 5676 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 5662 5677 ~enc:(function 5663 - | Active -> "active" 5664 - | Failed -> "failed" 5665 - | Completed -> "completed" 5666 - | Delayed -> "delayed" 5667 - | Waiting -> "waiting" 5668 - | Paused -> "paused") 5678 + | `Active -> "active" 5679 + | `Failed -> "failed" 5680 + | `Completed -> "completed" 5681 + | `Delayed -> "delayed" 5682 + | `Waiting -> "waiting" 5683 + | `Paused -> "paused") 5669 5684 end 5670 5685 5671 5686 module ResponseDto = struct ··· 5701 5716 let op_name = "get_queue_jobs" in 5702 5717 let url_path = Openapi.Runtime.Path.render ~params:[("name", name)] "/queues/{name}/jobs" in 5703 5718 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"status" ~value:status]) in 5704 - let url = client.Client_.base_url ^ url_path ^ query in 5719 + let url = client.base_url ^ url_path ^ query in 5705 5720 let response = 5706 - try Requests.get client.Client_.session url 5721 + try Requests.get client.session url 5707 5722 with Eio.Io _ as ex -> 5708 5723 let bt = Printexc.get_raw_backtrace () in 5709 5724 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 5761 5776 end 5762 5777 5763 5778 module T = struct 5764 - type t = 5765 - | Start 5766 - | Pause 5767 - | Resume 5768 - | Empty 5769 - | Clear_failed 5779 + type t = [ 5780 + | `Start 5781 + | `Pause 5782 + | `Resume 5783 + | `Empty 5784 + | `Clear_failed 5785 + ] 5770 5786 5771 5787 let jsont : t Jsont.t = 5772 5788 Jsont.map Jsont.string ~kind:"QueueCommand" 5773 5789 ~dec:(function 5774 - | "start" -> Start 5775 - | "pause" -> Pause 5776 - | "resume" -> Resume 5777 - | "empty" -> Empty 5778 - | "clear-failed" -> Clear_failed 5790 + | "start" -> `Start 5791 + | "pause" -> `Pause 5792 + | "resume" -> `Resume 5793 + | "empty" -> `Empty 5794 + | "clear-failed" -> `Clear_failed 5779 5795 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 5780 5796 ~enc:(function 5781 - | Start -> "start" 5782 - | Pause -> "pause" 5783 - | Resume -> "resume" 5784 - | Empty -> "empty" 5785 - | Clear_failed -> "clear-failed") 5797 + | `Start -> "start" 5798 + | `Pause -> "pause" 5799 + | `Resume -> "resume" 5800 + | `Empty -> "empty" 5801 + | `Clear_failed -> "clear-failed") 5786 5802 end 5787 5803 end 5788 5804 ··· 5814 5830 let op_name = "run_queue_command_legacy" in 5815 5831 let url_path = Openapi.Runtime.Path.render ~params:[("name", name)] "/jobs/{name}" in 5816 5832 let query = "" in 5817 - let url = client.Client_.base_url ^ url_path ^ query in 5833 + let url = client.base_url ^ url_path ^ query in 5818 5834 let response = 5819 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json QueueCommand.Dto.jsont body)) url 5835 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json QueueCommand.Dto.jsont body)) url 5820 5836 with Eio.Io _ as ex -> 5821 5837 let bt = Printexc.get_raw_backtrace () in 5822 5838 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 5909 5925 let op_name = "get_queues_legacy" in 5910 5926 let url_path = "/jobs" in 5911 5927 let query = "" in 5912 - let url = client.Client_.base_url ^ url_path ^ query in 5928 + let url = client.base_url ^ url_path ^ query in 5913 5929 let response = 5914 - try Requests.get client.Client_.session url 5930 + try Requests.get client.session url 5915 5931 with Eio.Io _ as ex -> 5916 5932 let bt = Printexc.get_raw_backtrace () in 5917 5933 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 5972 5988 5973 5989 module PluginTrigger = struct 5974 5990 module Type = struct 5975 - type t = 5976 - | Asset_create 5977 - | Person_recognized 5991 + type t = [ 5992 + | `Asset_create 5993 + | `Person_recognized 5994 + ] 5978 5995 5979 5996 let jsont : t Jsont.t = 5980 5997 Jsont.map Jsont.string ~kind:"PluginTriggerType" 5981 5998 ~dec:(function 5982 - | "AssetCreate" -> Asset_create 5983 - | "PersonRecognized" -> Person_recognized 5999 + | "AssetCreate" -> `Asset_create 6000 + | "PersonRecognized" -> `Person_recognized 5984 6001 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 5985 6002 ~enc:(function 5986 - | Asset_create -> "AssetCreate" 5987 - | Person_recognized -> "PersonRecognized") 6003 + | `Asset_create -> "AssetCreate" 6004 + | `Person_recognized -> "PersonRecognized") 5988 6005 end 5989 6006 5990 6007 module ResponseDto = struct ··· 6014 6031 let op_name = "get_plugin_triggers" in 6015 6032 let url_path = "/plugins/triggers" in 6016 6033 let query = "" in 6017 - let url = client.Client_.base_url ^ url_path ^ query in 6034 + let url = client.base_url ^ url_path ^ query in 6018 6035 let response = 6019 - try Requests.get client.Client_.session url 6036 + try Requests.get client.session url 6020 6037 with Eio.Io _ as ex -> 6021 6038 let bt = Printexc.get_raw_backtrace () in 6022 6039 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 6035 6052 6036 6053 module PluginContext = struct 6037 6054 module Type = struct 6038 - type t = 6039 - | Asset 6040 - | Album 6041 - | Person 6055 + type t = [ 6056 + | `Asset 6057 + | `Album 6058 + | `Person 6059 + ] 6042 6060 6043 6061 let jsont : t Jsont.t = 6044 6062 Jsont.map Jsont.string ~kind:"PluginContextType" 6045 6063 ~dec:(function 6046 - | "asset" -> Asset 6047 - | "album" -> Album 6048 - | "person" -> Person 6064 + | "asset" -> `Asset 6065 + | "album" -> `Album 6066 + | "person" -> `Person 6049 6067 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 6050 6068 ~enc:(function 6051 - | Asset -> "asset" 6052 - | Album -> "album" 6053 - | Person -> "person") 6069 + | `Asset -> "asset" 6070 + | `Album -> "album" 6071 + | `Person -> "person") 6054 6072 end 6055 6073 end 6056 6074 ··· 6180 6198 let op_name = "get_plugins" in 6181 6199 let url_path = "/plugins" in 6182 6200 let query = "" in 6183 - let url = client.Client_.base_url ^ url_path ^ query in 6201 + let url = client.base_url ^ url_path ^ query in 6184 6202 let response = 6185 - try Requests.get client.Client_.session url 6203 + try Requests.get client.session url 6186 6204 with Eio.Io _ as ex -> 6187 6205 let bt = Printexc.get_raw_backtrace () in 6188 6206 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 6205 6223 let op_name = "get_plugin" in 6206 6224 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/plugins/{id}" in 6207 6225 let query = "" in 6208 - let url = client.Client_.base_url ^ url_path ^ query in 6226 + let url = client.base_url ^ url_path ^ query in 6209 6227 let response = 6210 - try Requests.get client.Client_.session url 6228 + try Requests.get client.session url 6211 6229 with Eio.Io _ as ex -> 6212 6230 let bt = Printexc.get_raw_backtrace () in 6213 6231 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 6261 6279 let op_name = "search_places" in 6262 6280 let url_path = "/search/places" in 6263 6281 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"name" ~value:name]) in 6264 - let url = client.Client_.base_url ^ url_path ^ query in 6282 + let url = client.base_url ^ url_path ^ query in 6265 6283 let response = 6266 - try Requests.get client.Client_.session url 6284 + try Requests.get client.session url 6267 6285 with Eio.Io _ as ex -> 6268 6286 let bt = Printexc.get_raw_backtrace () in 6269 6287 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 6371 6389 let op_name = "get_person_statistics" in 6372 6390 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/people/{id}/statistics" in 6373 6391 let query = "" in 6374 - let url = client.Client_.base_url ^ url_path ^ query in 6392 + let url = client.base_url ^ url_path ^ query in 6375 6393 let response = 6376 - try Requests.get client.Client_.session url 6394 + try Requests.get client.session url 6377 6395 with Eio.Io _ as ex -> 6378 6396 let bt = Printexc.get_raw_backtrace () in 6379 6397 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 6392 6410 6393 6411 module Permission = struct 6394 6412 module T = struct 6395 - type t = 6396 - | All 6397 - | Activity_create 6398 - | Activity_read 6399 - | Activity_update 6400 - | Activity_delete 6401 - | Activity_statistics 6402 - | Api_key_create 6403 - | Api_key_read 6404 - | Api_key_update 6405 - | Api_key_delete 6406 - | Asset_read 6407 - | Asset_update 6408 - | Asset_delete 6409 - | Asset_statistics 6410 - | Asset_share 6411 - | Asset_view 6412 - | Asset_download 6413 - | Asset_upload 6414 - | Asset_replace 6415 - | Asset_copy 6416 - | Asset_derive 6417 - | Asset_edit_get 6418 - | Asset_edit_create 6419 - | Asset_edit_delete 6420 - | Album_create 6421 - | Album_read 6422 - | Album_update 6423 - | Album_delete 6424 - | Album_statistics 6425 - | Album_share 6426 - | Album_download 6427 - | Album_asset_create 6428 - | Album_asset_delete 6429 - | Album_user_create 6430 - | Album_user_update 6431 - | Album_user_delete 6432 - | Auth_change_password 6433 - | Auth_device_delete 6434 - | Archive_read 6435 - | Backup_list 6436 - | Backup_download 6437 - | Backup_upload 6438 - | Backup_delete 6439 - | Duplicate_read 6440 - | Duplicate_delete 6441 - | Face_create 6442 - | Face_read 6443 - | Face_update 6444 - | Face_delete 6445 - | Folder_read 6446 - | Job_create 6447 - | Job_read 6448 - | Library_create 6449 - | Library_read 6450 - | Library_update 6451 - | Library_delete 6452 - | Library_statistics 6453 - | Timeline_read 6454 - | Timeline_download 6455 - | Maintenance 6456 - | Map_read 6457 - | Map_search 6458 - | Memory_create 6459 - | Memory_read 6460 - | Memory_update 6461 - | Memory_delete 6462 - | Memory_statistics 6463 - | Memory_asset_create 6464 - | Memory_asset_delete 6465 - | Notification_create 6466 - | Notification_read 6467 - | Notification_update 6468 - | Notification_delete 6469 - | Partner_create 6470 - | Partner_read 6471 - | Partner_update 6472 - | Partner_delete 6473 - | Person_create 6474 - | Person_read 6475 - | Person_update 6476 - | Person_delete 6477 - | Person_statistics 6478 - | Person_merge 6479 - | Person_reassign 6480 - | Pin_code_create 6481 - | Pin_code_update 6482 - | Pin_code_delete 6483 - | Plugin_create 6484 - | Plugin_read 6485 - | Plugin_update 6486 - | Plugin_delete 6487 - | Server_about 6488 - | Server_apk_links 6489 - | Server_storage 6490 - | Server_statistics 6491 - | Server_version_check 6492 - | Server_license_read 6493 - | Server_license_update 6494 - | Server_license_delete 6495 - | Session_create 6496 - | Session_read 6497 - | Session_update 6498 - | Session_delete 6499 - | Session_lock 6500 - | Shared_link_create 6501 - | Shared_link_read 6502 - | Shared_link_update 6503 - | Shared_link_delete 6504 - | Stack_create 6505 - | Stack_read 6506 - | Stack_update 6507 - | Stack_delete 6508 - | Sync_stream 6509 - | Sync_checkpoint_read 6510 - | Sync_checkpoint_update 6511 - | Sync_checkpoint_delete 6512 - | System_config_read 6513 - | System_config_update 6514 - | System_metadata_read 6515 - | System_metadata_update 6516 - | Tag_create 6517 - | Tag_read 6518 - | Tag_update 6519 - | Tag_delete 6520 - | Tag_asset 6521 - | User_read 6522 - | User_update 6523 - | User_license_create 6524 - | User_license_read 6525 - | User_license_update 6526 - | User_license_delete 6527 - | User_onboarding_read 6528 - | User_onboarding_update 6529 - | User_onboarding_delete 6530 - | User_preference_read 6531 - | User_preference_update 6532 - | User_profile_image_create 6533 - | User_profile_image_read 6534 - | User_profile_image_update 6535 - | User_profile_image_delete 6536 - | Queue_read 6537 - | Queue_update 6538 - | Queue_job_create 6539 - | Queue_job_read 6540 - | Queue_job_update 6541 - | Queue_job_delete 6542 - | Workflow_create 6543 - | Workflow_read 6544 - | Workflow_update 6545 - | Workflow_delete 6546 - | Admin_user_create 6547 - | Admin_user_read 6548 - | Admin_user_update 6549 - | Admin_user_delete 6550 - | Admin_session_read 6551 - | Admin_auth_unlink_all 6413 + type t = [ 6414 + | `All 6415 + | `Activity_create 6416 + | `Activity_read 6417 + | `Activity_update 6418 + | `Activity_delete 6419 + | `Activity_statistics 6420 + | `Api_key_create 6421 + | `Api_key_read 6422 + | `Api_key_update 6423 + | `Api_key_delete 6424 + | `Asset_read 6425 + | `Asset_update 6426 + | `Asset_delete 6427 + | `Asset_statistics 6428 + | `Asset_share 6429 + | `Asset_view 6430 + | `Asset_download 6431 + | `Asset_upload 6432 + | `Asset_replace 6433 + | `Asset_copy 6434 + | `Asset_derive 6435 + | `Asset_edit_get 6436 + | `Asset_edit_create 6437 + | `Asset_edit_delete 6438 + | `Album_create 6439 + | `Album_read 6440 + | `Album_update 6441 + | `Album_delete 6442 + | `Album_statistics 6443 + | `Album_share 6444 + | `Album_download 6445 + | `Album_asset_create 6446 + | `Album_asset_delete 6447 + | `Album_user_create 6448 + | `Album_user_update 6449 + | `Album_user_delete 6450 + | `Auth_change_password 6451 + | `Auth_device_delete 6452 + | `Archive_read 6453 + | `Backup_list 6454 + | `Backup_download 6455 + | `Backup_upload 6456 + | `Backup_delete 6457 + | `Duplicate_read 6458 + | `Duplicate_delete 6459 + | `Face_create 6460 + | `Face_read 6461 + | `Face_update 6462 + | `Face_delete 6463 + | `Folder_read 6464 + | `Job_create 6465 + | `Job_read 6466 + | `Library_create 6467 + | `Library_read 6468 + | `Library_update 6469 + | `Library_delete 6470 + | `Library_statistics 6471 + | `Timeline_read 6472 + | `Timeline_download 6473 + | `Maintenance 6474 + | `Map_read 6475 + | `Map_search 6476 + | `Memory_create 6477 + | `Memory_read 6478 + | `Memory_update 6479 + | `Memory_delete 6480 + | `Memory_statistics 6481 + | `Memory_asset_create 6482 + | `Memory_asset_delete 6483 + | `Notification_create 6484 + | `Notification_read 6485 + | `Notification_update 6486 + | `Notification_delete 6487 + | `Partner_create 6488 + | `Partner_read 6489 + | `Partner_update 6490 + | `Partner_delete 6491 + | `Person_create 6492 + | `Person_read 6493 + | `Person_update 6494 + | `Person_delete 6495 + | `Person_statistics 6496 + | `Person_merge 6497 + | `Person_reassign 6498 + | `Pin_code_create 6499 + | `Pin_code_update 6500 + | `Pin_code_delete 6501 + | `Plugin_create 6502 + | `Plugin_read 6503 + | `Plugin_update 6504 + | `Plugin_delete 6505 + | `Server_about 6506 + | `Server_apk_links 6507 + | `Server_storage 6508 + | `Server_statistics 6509 + | `Server_version_check 6510 + | `Server_license_read 6511 + | `Server_license_update 6512 + | `Server_license_delete 6513 + | `Session_create 6514 + | `Session_read 6515 + | `Session_update 6516 + | `Session_delete 6517 + | `Session_lock 6518 + | `Shared_link_create 6519 + | `Shared_link_read 6520 + | `Shared_link_update 6521 + | `Shared_link_delete 6522 + | `Stack_create 6523 + | `Stack_read 6524 + | `Stack_update 6525 + | `Stack_delete 6526 + | `Sync_stream 6527 + | `Sync_checkpoint_read 6528 + | `Sync_checkpoint_update 6529 + | `Sync_checkpoint_delete 6530 + | `System_config_read 6531 + | `System_config_update 6532 + | `System_metadata_read 6533 + | `System_metadata_update 6534 + | `Tag_create 6535 + | `Tag_read 6536 + | `Tag_update 6537 + | `Tag_delete 6538 + | `Tag_asset 6539 + | `User_read 6540 + | `User_update 6541 + | `User_license_create 6542 + | `User_license_read 6543 + | `User_license_update 6544 + | `User_license_delete 6545 + | `User_onboarding_read 6546 + | `User_onboarding_update 6547 + | `User_onboarding_delete 6548 + | `User_preference_read 6549 + | `User_preference_update 6550 + | `User_profile_image_create 6551 + | `User_profile_image_read 6552 + | `User_profile_image_update 6553 + | `User_profile_image_delete 6554 + | `Queue_read 6555 + | `Queue_update 6556 + | `Queue_job_create 6557 + | `Queue_job_read 6558 + | `Queue_job_update 6559 + | `Queue_job_delete 6560 + | `Workflow_create 6561 + | `Workflow_read 6562 + | `Workflow_update 6563 + | `Workflow_delete 6564 + | `Admin_user_create 6565 + | `Admin_user_read 6566 + | `Admin_user_update 6567 + | `Admin_user_delete 6568 + | `Admin_session_read 6569 + | `Admin_auth_unlink_all 6570 + ] 6552 6571 6553 6572 let jsont : t Jsont.t = 6554 6573 Jsont.map Jsont.string ~kind:"Permission" 6555 6574 ~dec:(function 6556 - | "all" -> All 6557 - | "activity.create" -> Activity_create 6558 - | "activity.read" -> Activity_read 6559 - | "activity.update" -> Activity_update 6560 - | "activity.delete" -> Activity_delete 6561 - | "activity.statistics" -> Activity_statistics 6562 - | "apiKey.create" -> Api_key_create 6563 - | "apiKey.read" -> Api_key_read 6564 - | "apiKey.update" -> Api_key_update 6565 - | "apiKey.delete" -> Api_key_delete 6566 - | "asset.read" -> Asset_read 6567 - | "asset.update" -> Asset_update 6568 - | "asset.delete" -> Asset_delete 6569 - | "asset.statistics" -> Asset_statistics 6570 - | "asset.share" -> Asset_share 6571 - | "asset.view" -> Asset_view 6572 - | "asset.download" -> Asset_download 6573 - | "asset.upload" -> Asset_upload 6574 - | "asset.replace" -> Asset_replace 6575 - | "asset.copy" -> Asset_copy 6576 - | "asset.derive" -> Asset_derive 6577 - | "asset.edit.get" -> Asset_edit_get 6578 - | "asset.edit.create" -> Asset_edit_create 6579 - | "asset.edit.delete" -> Asset_edit_delete 6580 - | "album.create" -> Album_create 6581 - | "album.read" -> Album_read 6582 - | "album.update" -> Album_update 6583 - | "album.delete" -> Album_delete 6584 - | "album.statistics" -> Album_statistics 6585 - | "album.share" -> Album_share 6586 - | "album.download" -> Album_download 6587 - | "albumAsset.create" -> Album_asset_create 6588 - | "albumAsset.delete" -> Album_asset_delete 6589 - | "albumUser.create" -> Album_user_create 6590 - | "albumUser.update" -> Album_user_update 6591 - | "albumUser.delete" -> Album_user_delete 6592 - | "auth.changePassword" -> Auth_change_password 6593 - | "authDevice.delete" -> Auth_device_delete 6594 - | "archive.read" -> Archive_read 6595 - | "backup.list" -> Backup_list 6596 - | "backup.download" -> Backup_download 6597 - | "backup.upload" -> Backup_upload 6598 - | "backup.delete" -> Backup_delete 6599 - | "duplicate.read" -> Duplicate_read 6600 - | "duplicate.delete" -> Duplicate_delete 6601 - | "face.create" -> Face_create 6602 - | "face.read" -> Face_read 6603 - | "face.update" -> Face_update 6604 - | "face.delete" -> Face_delete 6605 - | "folder.read" -> Folder_read 6606 - | "job.create" -> Job_create 6607 - | "job.read" -> Job_read 6608 - | "library.create" -> Library_create 6609 - | "library.read" -> Library_read 6610 - | "library.update" -> Library_update 6611 - | "library.delete" -> Library_delete 6612 - | "library.statistics" -> Library_statistics 6613 - | "timeline.read" -> Timeline_read 6614 - | "timeline.download" -> Timeline_download 6615 - | "maintenance" -> Maintenance 6616 - | "map.read" -> Map_read 6617 - | "map.search" -> Map_search 6618 - | "memory.create" -> Memory_create 6619 - | "memory.read" -> Memory_read 6620 - | "memory.update" -> Memory_update 6621 - | "memory.delete" -> Memory_delete 6622 - | "memory.statistics" -> Memory_statistics 6623 - | "memoryAsset.create" -> Memory_asset_create 6624 - | "memoryAsset.delete" -> Memory_asset_delete 6625 - | "notification.create" -> Notification_create 6626 - | "notification.read" -> Notification_read 6627 - | "notification.update" -> Notification_update 6628 - | "notification.delete" -> Notification_delete 6629 - | "partner.create" -> Partner_create 6630 - | "partner.read" -> Partner_read 6631 - | "partner.update" -> Partner_update 6632 - | "partner.delete" -> Partner_delete 6633 - | "person.create" -> Person_create 6634 - | "person.read" -> Person_read 6635 - | "person.update" -> Person_update 6636 - | "person.delete" -> Person_delete 6637 - | "person.statistics" -> Person_statistics 6638 - | "person.merge" -> Person_merge 6639 - | "person.reassign" -> Person_reassign 6640 - | "pinCode.create" -> Pin_code_create 6641 - | "pinCode.update" -> Pin_code_update 6642 - | "pinCode.delete" -> Pin_code_delete 6643 - | "plugin.create" -> Plugin_create 6644 - | "plugin.read" -> Plugin_read 6645 - | "plugin.update" -> Plugin_update 6646 - | "plugin.delete" -> Plugin_delete 6647 - | "server.about" -> Server_about 6648 - | "server.apkLinks" -> Server_apk_links 6649 - | "server.storage" -> Server_storage 6650 - | "server.statistics" -> Server_statistics 6651 - | "server.versionCheck" -> Server_version_check 6652 - | "serverLicense.read" -> Server_license_read 6653 - | "serverLicense.update" -> Server_license_update 6654 - | "serverLicense.delete" -> Server_license_delete 6655 - | "session.create" -> Session_create 6656 - | "session.read" -> Session_read 6657 - | "session.update" -> Session_update 6658 - | "session.delete" -> Session_delete 6659 - | "session.lock" -> Session_lock 6660 - | "sharedLink.create" -> Shared_link_create 6661 - | "sharedLink.read" -> Shared_link_read 6662 - | "sharedLink.update" -> Shared_link_update 6663 - | "sharedLink.delete" -> Shared_link_delete 6664 - | "stack.create" -> Stack_create 6665 - | "stack.read" -> Stack_read 6666 - | "stack.update" -> Stack_update 6667 - | "stack.delete" -> Stack_delete 6668 - | "sync.stream" -> Sync_stream 6669 - | "syncCheckpoint.read" -> Sync_checkpoint_read 6670 - | "syncCheckpoint.update" -> Sync_checkpoint_update 6671 - | "syncCheckpoint.delete" -> Sync_checkpoint_delete 6672 - | "systemConfig.read" -> System_config_read 6673 - | "systemConfig.update" -> System_config_update 6674 - | "systemMetadata.read" -> System_metadata_read 6675 - | "systemMetadata.update" -> System_metadata_update 6676 - | "tag.create" -> Tag_create 6677 - | "tag.read" -> Tag_read 6678 - | "tag.update" -> Tag_update 6679 - | "tag.delete" -> Tag_delete 6680 - | "tag.asset" -> Tag_asset 6681 - | "user.read" -> User_read 6682 - | "user.update" -> User_update 6683 - | "userLicense.create" -> User_license_create 6684 - | "userLicense.read" -> User_license_read 6685 - | "userLicense.update" -> User_license_update 6686 - | "userLicense.delete" -> User_license_delete 6687 - | "userOnboarding.read" -> User_onboarding_read 6688 - | "userOnboarding.update" -> User_onboarding_update 6689 - | "userOnboarding.delete" -> User_onboarding_delete 6690 - | "userPreference.read" -> User_preference_read 6691 - | "userPreference.update" -> User_preference_update 6692 - | "userProfileImage.create" -> User_profile_image_create 6693 - | "userProfileImage.read" -> User_profile_image_read 6694 - | "userProfileImage.update" -> User_profile_image_update 6695 - | "userProfileImage.delete" -> User_profile_image_delete 6696 - | "queue.read" -> Queue_read 6697 - | "queue.update" -> Queue_update 6698 - | "queueJob.create" -> Queue_job_create 6699 - | "queueJob.read" -> Queue_job_read 6700 - | "queueJob.update" -> Queue_job_update 6701 - | "queueJob.delete" -> Queue_job_delete 6702 - | "workflow.create" -> Workflow_create 6703 - | "workflow.read" -> Workflow_read 6704 - | "workflow.update" -> Workflow_update 6705 - | "workflow.delete" -> Workflow_delete 6706 - | "adminUser.create" -> Admin_user_create 6707 - | "adminUser.read" -> Admin_user_read 6708 - | "adminUser.update" -> Admin_user_update 6709 - | "adminUser.delete" -> Admin_user_delete 6710 - | "adminSession.read" -> Admin_session_read 6711 - | "adminAuth.unlinkAll" -> Admin_auth_unlink_all 6575 + | "all" -> `All 6576 + | "activity.create" -> `Activity_create 6577 + | "activity.read" -> `Activity_read 6578 + | "activity.update" -> `Activity_update 6579 + | "activity.delete" -> `Activity_delete 6580 + | "activity.statistics" -> `Activity_statistics 6581 + | "apiKey.create" -> `Api_key_create 6582 + | "apiKey.read" -> `Api_key_read 6583 + | "apiKey.update" -> `Api_key_update 6584 + | "apiKey.delete" -> `Api_key_delete 6585 + | "asset.read" -> `Asset_read 6586 + | "asset.update" -> `Asset_update 6587 + | "asset.delete" -> `Asset_delete 6588 + | "asset.statistics" -> `Asset_statistics 6589 + | "asset.share" -> `Asset_share 6590 + | "asset.view" -> `Asset_view 6591 + | "asset.download" -> `Asset_download 6592 + | "asset.upload" -> `Asset_upload 6593 + | "asset.replace" -> `Asset_replace 6594 + | "asset.copy" -> `Asset_copy 6595 + | "asset.derive" -> `Asset_derive 6596 + | "asset.edit.get" -> `Asset_edit_get 6597 + | "asset.edit.create" -> `Asset_edit_create 6598 + | "asset.edit.delete" -> `Asset_edit_delete 6599 + | "album.create" -> `Album_create 6600 + | "album.read" -> `Album_read 6601 + | "album.update" -> `Album_update 6602 + | "album.delete" -> `Album_delete 6603 + | "album.statistics" -> `Album_statistics 6604 + | "album.share" -> `Album_share 6605 + | "album.download" -> `Album_download 6606 + | "albumAsset.create" -> `Album_asset_create 6607 + | "albumAsset.delete" -> `Album_asset_delete 6608 + | "albumUser.create" -> `Album_user_create 6609 + | "albumUser.update" -> `Album_user_update 6610 + | "albumUser.delete" -> `Album_user_delete 6611 + | "auth.changePassword" -> `Auth_change_password 6612 + | "authDevice.delete" -> `Auth_device_delete 6613 + | "archive.read" -> `Archive_read 6614 + | "backup.list" -> `Backup_list 6615 + | "backup.download" -> `Backup_download 6616 + | "backup.upload" -> `Backup_upload 6617 + | "backup.delete" -> `Backup_delete 6618 + | "duplicate.read" -> `Duplicate_read 6619 + | "duplicate.delete" -> `Duplicate_delete 6620 + | "face.create" -> `Face_create 6621 + | "face.read" -> `Face_read 6622 + | "face.update" -> `Face_update 6623 + | "face.delete" -> `Face_delete 6624 + | "folder.read" -> `Folder_read 6625 + | "job.create" -> `Job_create 6626 + | "job.read" -> `Job_read 6627 + | "library.create" -> `Library_create 6628 + | "library.read" -> `Library_read 6629 + | "library.update" -> `Library_update 6630 + | "library.delete" -> `Library_delete 6631 + | "library.statistics" -> `Library_statistics 6632 + | "timeline.read" -> `Timeline_read 6633 + | "timeline.download" -> `Timeline_download 6634 + | "maintenance" -> `Maintenance 6635 + | "map.read" -> `Map_read 6636 + | "map.search" -> `Map_search 6637 + | "memory.create" -> `Memory_create 6638 + | "memory.read" -> `Memory_read 6639 + | "memory.update" -> `Memory_update 6640 + | "memory.delete" -> `Memory_delete 6641 + | "memory.statistics" -> `Memory_statistics 6642 + | "memoryAsset.create" -> `Memory_asset_create 6643 + | "memoryAsset.delete" -> `Memory_asset_delete 6644 + | "notification.create" -> `Notification_create 6645 + | "notification.read" -> `Notification_read 6646 + | "notification.update" -> `Notification_update 6647 + | "notification.delete" -> `Notification_delete 6648 + | "partner.create" -> `Partner_create 6649 + | "partner.read" -> `Partner_read 6650 + | "partner.update" -> `Partner_update 6651 + | "partner.delete" -> `Partner_delete 6652 + | "person.create" -> `Person_create 6653 + | "person.read" -> `Person_read 6654 + | "person.update" -> `Person_update 6655 + | "person.delete" -> `Person_delete 6656 + | "person.statistics" -> `Person_statistics 6657 + | "person.merge" -> `Person_merge 6658 + | "person.reassign" -> `Person_reassign 6659 + | "pinCode.create" -> `Pin_code_create 6660 + | "pinCode.update" -> `Pin_code_update 6661 + | "pinCode.delete" -> `Pin_code_delete 6662 + | "plugin.create" -> `Plugin_create 6663 + | "plugin.read" -> `Plugin_read 6664 + | "plugin.update" -> `Plugin_update 6665 + | "plugin.delete" -> `Plugin_delete 6666 + | "server.about" -> `Server_about 6667 + | "server.apkLinks" -> `Server_apk_links 6668 + | "server.storage" -> `Server_storage 6669 + | "server.statistics" -> `Server_statistics 6670 + | "server.versionCheck" -> `Server_version_check 6671 + | "serverLicense.read" -> `Server_license_read 6672 + | "serverLicense.update" -> `Server_license_update 6673 + | "serverLicense.delete" -> `Server_license_delete 6674 + | "session.create" -> `Session_create 6675 + | "session.read" -> `Session_read 6676 + | "session.update" -> `Session_update 6677 + | "session.delete" -> `Session_delete 6678 + | "session.lock" -> `Session_lock 6679 + | "sharedLink.create" -> `Shared_link_create 6680 + | "sharedLink.read" -> `Shared_link_read 6681 + | "sharedLink.update" -> `Shared_link_update 6682 + | "sharedLink.delete" -> `Shared_link_delete 6683 + | "stack.create" -> `Stack_create 6684 + | "stack.read" -> `Stack_read 6685 + | "stack.update" -> `Stack_update 6686 + | "stack.delete" -> `Stack_delete 6687 + | "sync.stream" -> `Sync_stream 6688 + | "syncCheckpoint.read" -> `Sync_checkpoint_read 6689 + | "syncCheckpoint.update" -> `Sync_checkpoint_update 6690 + | "syncCheckpoint.delete" -> `Sync_checkpoint_delete 6691 + | "systemConfig.read" -> `System_config_read 6692 + | "systemConfig.update" -> `System_config_update 6693 + | "systemMetadata.read" -> `System_metadata_read 6694 + | "systemMetadata.update" -> `System_metadata_update 6695 + | "tag.create" -> `Tag_create 6696 + | "tag.read" -> `Tag_read 6697 + | "tag.update" -> `Tag_update 6698 + | "tag.delete" -> `Tag_delete 6699 + | "tag.asset" -> `Tag_asset 6700 + | "user.read" -> `User_read 6701 + | "user.update" -> `User_update 6702 + | "userLicense.create" -> `User_license_create 6703 + | "userLicense.read" -> `User_license_read 6704 + | "userLicense.update" -> `User_license_update 6705 + | "userLicense.delete" -> `User_license_delete 6706 + | "userOnboarding.read" -> `User_onboarding_read 6707 + | "userOnboarding.update" -> `User_onboarding_update 6708 + | "userOnboarding.delete" -> `User_onboarding_delete 6709 + | "userPreference.read" -> `User_preference_read 6710 + | "userPreference.update" -> `User_preference_update 6711 + | "userProfileImage.create" -> `User_profile_image_create 6712 + | "userProfileImage.read" -> `User_profile_image_read 6713 + | "userProfileImage.update" -> `User_profile_image_update 6714 + | "userProfileImage.delete" -> `User_profile_image_delete 6715 + | "queue.read" -> `Queue_read 6716 + | "queue.update" -> `Queue_update 6717 + | "queueJob.create" -> `Queue_job_create 6718 + | "queueJob.read" -> `Queue_job_read 6719 + | "queueJob.update" -> `Queue_job_update 6720 + | "queueJob.delete" -> `Queue_job_delete 6721 + | "workflow.create" -> `Workflow_create 6722 + | "workflow.read" -> `Workflow_read 6723 + | "workflow.update" -> `Workflow_update 6724 + | "workflow.delete" -> `Workflow_delete 6725 + | "adminUser.create" -> `Admin_user_create 6726 + | "adminUser.read" -> `Admin_user_read 6727 + | "adminUser.update" -> `Admin_user_update 6728 + | "adminUser.delete" -> `Admin_user_delete 6729 + | "adminSession.read" -> `Admin_session_read 6730 + | "adminAuth.unlinkAll" -> `Admin_auth_unlink_all 6712 6731 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 6713 6732 ~enc:(function 6714 - | All -> "all" 6715 - | Activity_create -> "activity.create" 6716 - | Activity_read -> "activity.read" 6717 - | Activity_update -> "activity.update" 6718 - | Activity_delete -> "activity.delete" 6719 - | Activity_statistics -> "activity.statistics" 6720 - | Api_key_create -> "apiKey.create" 6721 - | Api_key_read -> "apiKey.read" 6722 - | Api_key_update -> "apiKey.update" 6723 - | Api_key_delete -> "apiKey.delete" 6724 - | Asset_read -> "asset.read" 6725 - | Asset_update -> "asset.update" 6726 - | Asset_delete -> "asset.delete" 6727 - | Asset_statistics -> "asset.statistics" 6728 - | Asset_share -> "asset.share" 6729 - | Asset_view -> "asset.view" 6730 - | Asset_download -> "asset.download" 6731 - | Asset_upload -> "asset.upload" 6732 - | Asset_replace -> "asset.replace" 6733 - | Asset_copy -> "asset.copy" 6734 - | Asset_derive -> "asset.derive" 6735 - | Asset_edit_get -> "asset.edit.get" 6736 - | Asset_edit_create -> "asset.edit.create" 6737 - | Asset_edit_delete -> "asset.edit.delete" 6738 - | Album_create -> "album.create" 6739 - | Album_read -> "album.read" 6740 - | Album_update -> "album.update" 6741 - | Album_delete -> "album.delete" 6742 - | Album_statistics -> "album.statistics" 6743 - | Album_share -> "album.share" 6744 - | Album_download -> "album.download" 6745 - | Album_asset_create -> "albumAsset.create" 6746 - | Album_asset_delete -> "albumAsset.delete" 6747 - | Album_user_create -> "albumUser.create" 6748 - | Album_user_update -> "albumUser.update" 6749 - | Album_user_delete -> "albumUser.delete" 6750 - | Auth_change_password -> "auth.changePassword" 6751 - | Auth_device_delete -> "authDevice.delete" 6752 - | Archive_read -> "archive.read" 6753 - | Backup_list -> "backup.list" 6754 - | Backup_download -> "backup.download" 6755 - | Backup_upload -> "backup.upload" 6756 - | Backup_delete -> "backup.delete" 6757 - | Duplicate_read -> "duplicate.read" 6758 - | Duplicate_delete -> "duplicate.delete" 6759 - | Face_create -> "face.create" 6760 - | Face_read -> "face.read" 6761 - | Face_update -> "face.update" 6762 - | Face_delete -> "face.delete" 6763 - | Folder_read -> "folder.read" 6764 - | Job_create -> "job.create" 6765 - | Job_read -> "job.read" 6766 - | Library_create -> "library.create" 6767 - | Library_read -> "library.read" 6768 - | Library_update -> "library.update" 6769 - | Library_delete -> "library.delete" 6770 - | Library_statistics -> "library.statistics" 6771 - | Timeline_read -> "timeline.read" 6772 - | Timeline_download -> "timeline.download" 6773 - | Maintenance -> "maintenance" 6774 - | Map_read -> "map.read" 6775 - | Map_search -> "map.search" 6776 - | Memory_create -> "memory.create" 6777 - | Memory_read -> "memory.read" 6778 - | Memory_update -> "memory.update" 6779 - | Memory_delete -> "memory.delete" 6780 - | Memory_statistics -> "memory.statistics" 6781 - | Memory_asset_create -> "memoryAsset.create" 6782 - | Memory_asset_delete -> "memoryAsset.delete" 6783 - | Notification_create -> "notification.create" 6784 - | Notification_read -> "notification.read" 6785 - | Notification_update -> "notification.update" 6786 - | Notification_delete -> "notification.delete" 6787 - | Partner_create -> "partner.create" 6788 - | Partner_read -> "partner.read" 6789 - | Partner_update -> "partner.update" 6790 - | Partner_delete -> "partner.delete" 6791 - | Person_create -> "person.create" 6792 - | Person_read -> "person.read" 6793 - | Person_update -> "person.update" 6794 - | Person_delete -> "person.delete" 6795 - | Person_statistics -> "person.statistics" 6796 - | Person_merge -> "person.merge" 6797 - | Person_reassign -> "person.reassign" 6798 - | Pin_code_create -> "pinCode.create" 6799 - | Pin_code_update -> "pinCode.update" 6800 - | Pin_code_delete -> "pinCode.delete" 6801 - | Plugin_create -> "plugin.create" 6802 - | Plugin_read -> "plugin.read" 6803 - | Plugin_update -> "plugin.update" 6804 - | Plugin_delete -> "plugin.delete" 6805 - | Server_about -> "server.about" 6806 - | Server_apk_links -> "server.apkLinks" 6807 - | Server_storage -> "server.storage" 6808 - | Server_statistics -> "server.statistics" 6809 - | Server_version_check -> "server.versionCheck" 6810 - | Server_license_read -> "serverLicense.read" 6811 - | Server_license_update -> "serverLicense.update" 6812 - | Server_license_delete -> "serverLicense.delete" 6813 - | Session_create -> "session.create" 6814 - | Session_read -> "session.read" 6815 - | Session_update -> "session.update" 6816 - | Session_delete -> "session.delete" 6817 - | Session_lock -> "session.lock" 6818 - | Shared_link_create -> "sharedLink.create" 6819 - | Shared_link_read -> "sharedLink.read" 6820 - | Shared_link_update -> "sharedLink.update" 6821 - | Shared_link_delete -> "sharedLink.delete" 6822 - | Stack_create -> "stack.create" 6823 - | Stack_read -> "stack.read" 6824 - | Stack_update -> "stack.update" 6825 - | Stack_delete -> "stack.delete" 6826 - | Sync_stream -> "sync.stream" 6827 - | Sync_checkpoint_read -> "syncCheckpoint.read" 6828 - | Sync_checkpoint_update -> "syncCheckpoint.update" 6829 - | Sync_checkpoint_delete -> "syncCheckpoint.delete" 6830 - | System_config_read -> "systemConfig.read" 6831 - | System_config_update -> "systemConfig.update" 6832 - | System_metadata_read -> "systemMetadata.read" 6833 - | System_metadata_update -> "systemMetadata.update" 6834 - | Tag_create -> "tag.create" 6835 - | Tag_read -> "tag.read" 6836 - | Tag_update -> "tag.update" 6837 - | Tag_delete -> "tag.delete" 6838 - | Tag_asset -> "tag.asset" 6839 - | User_read -> "user.read" 6840 - | User_update -> "user.update" 6841 - | User_license_create -> "userLicense.create" 6842 - | User_license_read -> "userLicense.read" 6843 - | User_license_update -> "userLicense.update" 6844 - | User_license_delete -> "userLicense.delete" 6845 - | User_onboarding_read -> "userOnboarding.read" 6846 - | User_onboarding_update -> "userOnboarding.update" 6847 - | User_onboarding_delete -> "userOnboarding.delete" 6848 - | User_preference_read -> "userPreference.read" 6849 - | User_preference_update -> "userPreference.update" 6850 - | User_profile_image_create -> "userProfileImage.create" 6851 - | User_profile_image_read -> "userProfileImage.read" 6852 - | User_profile_image_update -> "userProfileImage.update" 6853 - | User_profile_image_delete -> "userProfileImage.delete" 6854 - | Queue_read -> "queue.read" 6855 - | Queue_update -> "queue.update" 6856 - | Queue_job_create -> "queueJob.create" 6857 - | Queue_job_read -> "queueJob.read" 6858 - | Queue_job_update -> "queueJob.update" 6859 - | Queue_job_delete -> "queueJob.delete" 6860 - | Workflow_create -> "workflow.create" 6861 - | Workflow_read -> "workflow.read" 6862 - | Workflow_update -> "workflow.update" 6863 - | Workflow_delete -> "workflow.delete" 6864 - | Admin_user_create -> "adminUser.create" 6865 - | Admin_user_read -> "adminUser.read" 6866 - | Admin_user_update -> "adminUser.update" 6867 - | Admin_user_delete -> "adminUser.delete" 6868 - | Admin_session_read -> "adminSession.read" 6869 - | Admin_auth_unlink_all -> "adminAuth.unlinkAll") 6733 + | `All -> "all" 6734 + | `Activity_create -> "activity.create" 6735 + | `Activity_read -> "activity.read" 6736 + | `Activity_update -> "activity.update" 6737 + | `Activity_delete -> "activity.delete" 6738 + | `Activity_statistics -> "activity.statistics" 6739 + | `Api_key_create -> "apiKey.create" 6740 + | `Api_key_read -> "apiKey.read" 6741 + | `Api_key_update -> "apiKey.update" 6742 + | `Api_key_delete -> "apiKey.delete" 6743 + | `Asset_read -> "asset.read" 6744 + | `Asset_update -> "asset.update" 6745 + | `Asset_delete -> "asset.delete" 6746 + | `Asset_statistics -> "asset.statistics" 6747 + | `Asset_share -> "asset.share" 6748 + | `Asset_view -> "asset.view" 6749 + | `Asset_download -> "asset.download" 6750 + | `Asset_upload -> "asset.upload" 6751 + | `Asset_replace -> "asset.replace" 6752 + | `Asset_copy -> "asset.copy" 6753 + | `Asset_derive -> "asset.derive" 6754 + | `Asset_edit_get -> "asset.edit.get" 6755 + | `Asset_edit_create -> "asset.edit.create" 6756 + | `Asset_edit_delete -> "asset.edit.delete" 6757 + | `Album_create -> "album.create" 6758 + | `Album_read -> "album.read" 6759 + | `Album_update -> "album.update" 6760 + | `Album_delete -> "album.delete" 6761 + | `Album_statistics -> "album.statistics" 6762 + | `Album_share -> "album.share" 6763 + | `Album_download -> "album.download" 6764 + | `Album_asset_create -> "albumAsset.create" 6765 + | `Album_asset_delete -> "albumAsset.delete" 6766 + | `Album_user_create -> "albumUser.create" 6767 + | `Album_user_update -> "albumUser.update" 6768 + | `Album_user_delete -> "albumUser.delete" 6769 + | `Auth_change_password -> "auth.changePassword" 6770 + | `Auth_device_delete -> "authDevice.delete" 6771 + | `Archive_read -> "archive.read" 6772 + | `Backup_list -> "backup.list" 6773 + | `Backup_download -> "backup.download" 6774 + | `Backup_upload -> "backup.upload" 6775 + | `Backup_delete -> "backup.delete" 6776 + | `Duplicate_read -> "duplicate.read" 6777 + | `Duplicate_delete -> "duplicate.delete" 6778 + | `Face_create -> "face.create" 6779 + | `Face_read -> "face.read" 6780 + | `Face_update -> "face.update" 6781 + | `Face_delete -> "face.delete" 6782 + | `Folder_read -> "folder.read" 6783 + | `Job_create -> "job.create" 6784 + | `Job_read -> "job.read" 6785 + | `Library_create -> "library.create" 6786 + | `Library_read -> "library.read" 6787 + | `Library_update -> "library.update" 6788 + | `Library_delete -> "library.delete" 6789 + | `Library_statistics -> "library.statistics" 6790 + | `Timeline_read -> "timeline.read" 6791 + | `Timeline_download -> "timeline.download" 6792 + | `Maintenance -> "maintenance" 6793 + | `Map_read -> "map.read" 6794 + | `Map_search -> "map.search" 6795 + | `Memory_create -> "memory.create" 6796 + | `Memory_read -> "memory.read" 6797 + | `Memory_update -> "memory.update" 6798 + | `Memory_delete -> "memory.delete" 6799 + | `Memory_statistics -> "memory.statistics" 6800 + | `Memory_asset_create -> "memoryAsset.create" 6801 + | `Memory_asset_delete -> "memoryAsset.delete" 6802 + | `Notification_create -> "notification.create" 6803 + | `Notification_read -> "notification.read" 6804 + | `Notification_update -> "notification.update" 6805 + | `Notification_delete -> "notification.delete" 6806 + | `Partner_create -> "partner.create" 6807 + | `Partner_read -> "partner.read" 6808 + | `Partner_update -> "partner.update" 6809 + | `Partner_delete -> "partner.delete" 6810 + | `Person_create -> "person.create" 6811 + | `Person_read -> "person.read" 6812 + | `Person_update -> "person.update" 6813 + | `Person_delete -> "person.delete" 6814 + | `Person_statistics -> "person.statistics" 6815 + | `Person_merge -> "person.merge" 6816 + | `Person_reassign -> "person.reassign" 6817 + | `Pin_code_create -> "pinCode.create" 6818 + | `Pin_code_update -> "pinCode.update" 6819 + | `Pin_code_delete -> "pinCode.delete" 6820 + | `Plugin_create -> "plugin.create" 6821 + | `Plugin_read -> "plugin.read" 6822 + | `Plugin_update -> "plugin.update" 6823 + | `Plugin_delete -> "plugin.delete" 6824 + | `Server_about -> "server.about" 6825 + | `Server_apk_links -> "server.apkLinks" 6826 + | `Server_storage -> "server.storage" 6827 + | `Server_statistics -> "server.statistics" 6828 + | `Server_version_check -> "server.versionCheck" 6829 + | `Server_license_read -> "serverLicense.read" 6830 + | `Server_license_update -> "serverLicense.update" 6831 + | `Server_license_delete -> "serverLicense.delete" 6832 + | `Session_create -> "session.create" 6833 + | `Session_read -> "session.read" 6834 + | `Session_update -> "session.update" 6835 + | `Session_delete -> "session.delete" 6836 + | `Session_lock -> "session.lock" 6837 + | `Shared_link_create -> "sharedLink.create" 6838 + | `Shared_link_read -> "sharedLink.read" 6839 + | `Shared_link_update -> "sharedLink.update" 6840 + | `Shared_link_delete -> "sharedLink.delete" 6841 + | `Stack_create -> "stack.create" 6842 + | `Stack_read -> "stack.read" 6843 + | `Stack_update -> "stack.update" 6844 + | `Stack_delete -> "stack.delete" 6845 + | `Sync_stream -> "sync.stream" 6846 + | `Sync_checkpoint_read -> "syncCheckpoint.read" 6847 + | `Sync_checkpoint_update -> "syncCheckpoint.update" 6848 + | `Sync_checkpoint_delete -> "syncCheckpoint.delete" 6849 + | `System_config_read -> "systemConfig.read" 6850 + | `System_config_update -> "systemConfig.update" 6851 + | `System_metadata_read -> "systemMetadata.read" 6852 + | `System_metadata_update -> "systemMetadata.update" 6853 + | `Tag_create -> "tag.create" 6854 + | `Tag_read -> "tag.read" 6855 + | `Tag_update -> "tag.update" 6856 + | `Tag_delete -> "tag.delete" 6857 + | `Tag_asset -> "tag.asset" 6858 + | `User_read -> "user.read" 6859 + | `User_update -> "user.update" 6860 + | `User_license_create -> "userLicense.create" 6861 + | `User_license_read -> "userLicense.read" 6862 + | `User_license_update -> "userLicense.update" 6863 + | `User_license_delete -> "userLicense.delete" 6864 + | `User_onboarding_read -> "userOnboarding.read" 6865 + | `User_onboarding_update -> "userOnboarding.update" 6866 + | `User_onboarding_delete -> "userOnboarding.delete" 6867 + | `User_preference_read -> "userPreference.read" 6868 + | `User_preference_update -> "userPreference.update" 6869 + | `User_profile_image_create -> "userProfileImage.create" 6870 + | `User_profile_image_read -> "userProfileImage.read" 6871 + | `User_profile_image_update -> "userProfileImage.update" 6872 + | `User_profile_image_delete -> "userProfileImage.delete" 6873 + | `Queue_read -> "queue.read" 6874 + | `Queue_update -> "queue.update" 6875 + | `Queue_job_create -> "queueJob.create" 6876 + | `Queue_job_read -> "queueJob.read" 6877 + | `Queue_job_update -> "queueJob.update" 6878 + | `Queue_job_delete -> "queueJob.delete" 6879 + | `Workflow_create -> "workflow.create" 6880 + | `Workflow_read -> "workflow.read" 6881 + | `Workflow_update -> "workflow.update" 6882 + | `Workflow_delete -> "workflow.delete" 6883 + | `Admin_user_create -> "adminUser.create" 6884 + | `Admin_user_read -> "adminUser.read" 6885 + | `Admin_user_update -> "adminUser.update" 6886 + | `Admin_user_delete -> "adminUser.delete" 6887 + | `Admin_session_read -> "adminSession.read" 6888 + | `Admin_auth_unlink_all -> "adminAuth.unlinkAll") 6870 6889 end 6871 6890 end 6872 6891 ··· 6947 6966 let op_name = "get_api_keys" in 6948 6967 let url_path = "/api-keys" in 6949 6968 let query = "" in 6950 - let url = client.Client_.base_url ^ url_path ^ query in 6969 + let url = client.base_url ^ url_path ^ query in 6951 6970 let response = 6952 - try Requests.get client.Client_.session url 6971 + try Requests.get client.session url 6953 6972 with Eio.Io _ as ex -> 6954 6973 let bt = Printexc.get_raw_backtrace () in 6955 6974 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 6972 6991 let op_name = "get_my_api_key" in 6973 6992 let url_path = "/api-keys/me" in 6974 6993 let query = "" in 6975 - let url = client.Client_.base_url ^ url_path ^ query in 6994 + let url = client.base_url ^ url_path ^ query in 6976 6995 let response = 6977 - try Requests.get client.Client_.session url 6996 + try Requests.get client.session url 6978 6997 with Eio.Io _ as ex -> 6979 6998 let bt = Printexc.get_raw_backtrace () in 6980 6999 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 6997 7016 let op_name = "get_api_key" in 6998 7017 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/api-keys/{id}" in 6999 7018 let query = "" in 7000 - let url = client.Client_.base_url ^ url_path ^ query in 7019 + let url = client.base_url ^ url_path ^ query in 7001 7020 let response = 7002 - try Requests.get client.Client_.session url 7021 + try Requests.get client.session url 7003 7022 with Eio.Io _ as ex -> 7004 7023 let bt = Printexc.get_raw_backtrace () in 7005 7024 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 7022 7041 let op_name = "update_api_key" in 7023 7042 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/api-keys/{id}" in 7024 7043 let query = "" in 7025 - let url = client.Client_.base_url ^ url_path ^ query in 7044 + let url = client.base_url ^ url_path ^ query in 7026 7045 let response = 7027 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 7046 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 7028 7047 with Eio.Io _ as ex -> 7029 7048 let bt = Printexc.get_raw_backtrace () in 7030 7049 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 7069 7088 let op_name = "create_api_key" in 7070 7089 let url_path = "/api-keys" in 7071 7090 let query = "" in 7072 - let url = client.Client_.base_url ^ url_path ^ query in 7091 + let url = client.base_url ^ url_path ^ query in 7073 7092 let response = 7074 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Apikey.CreateDto.jsont body)) url 7093 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Apikey.CreateDto.jsont body)) url 7075 7094 with Eio.Io _ as ex -> 7076 7095 let bt = Printexc.get_raw_backtrace () in 7077 7096 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 7128 7147 7129 7148 module PartnerDirection = struct 7130 7149 module T = struct 7131 - type t = 7132 - | Shared_by 7133 - | Shared_with 7150 + type t = [ 7151 + | `Shared_by 7152 + | `Shared_with 7153 + ] 7134 7154 7135 7155 let jsont : t Jsont.t = 7136 7156 Jsont.map Jsont.string ~kind:"PartnerDirection" 7137 7157 ~dec:(function 7138 - | "shared-by" -> Shared_by 7139 - | "shared-with" -> Shared_with 7158 + | "shared-by" -> `Shared_by 7159 + | "shared-with" -> `Shared_with 7140 7160 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 7141 7161 ~enc:(function 7142 - | Shared_by -> "shared-by" 7143 - | Shared_with -> "shared-with") 7162 + | `Shared_by -> "shared-by" 7163 + | `Shared_with -> "shared-with") 7144 7164 end 7145 7165 end 7146 7166 ··· 7221 7241 let op_name = "get_partners" in 7222 7242 let url_path = "/partners" in 7223 7243 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"direction" ~value:direction]) in 7224 - let url = client.Client_.base_url ^ url_path ^ query in 7244 + let url = client.base_url ^ url_path ^ query in 7225 7245 let response = 7226 - try Requests.get client.Client_.session url 7246 + try Requests.get client.session url 7227 7247 with Eio.Io _ as ex -> 7228 7248 let bt = Printexc.get_raw_backtrace () in 7229 7249 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 7246 7266 let op_name = "create_partner" in 7247 7267 let url_path = "/partners" in 7248 7268 let query = "" in 7249 - let url = client.Client_.base_url ^ url_path ^ query in 7269 + let url = client.base_url ^ url_path ^ query in 7250 7270 let response = 7251 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 7271 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 7252 7272 with Eio.Io _ as ex -> 7253 7273 let bt = Printexc.get_raw_backtrace () in 7254 7274 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 7271 7291 let op_name = "create_partner_deprecated" in 7272 7292 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/partners/{id}" in 7273 7293 let query = "" in 7274 - let url = client.Client_.base_url ^ url_path ^ query in 7294 + let url = client.base_url ^ url_path ^ query in 7275 7295 let response = 7276 - try Requests.post client.Client_.session url 7296 + try Requests.post client.session url 7277 7297 with Eio.Io _ as ex -> 7278 7298 let bt = Printexc.get_raw_backtrace () in 7279 7299 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 7296 7316 let op_name = "update_partner" in 7297 7317 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/partners/{id}" in 7298 7318 let query = "" in 7299 - let url = client.Client_.base_url ^ url_path ^ query in 7319 + let url = client.base_url ^ url_path ^ query in 7300 7320 let response = 7301 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 7321 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 7302 7322 with Eio.Io _ as ex -> 7303 7323 let bt = Printexc.get_raw_backtrace () in 7304 7324 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 7357 7377 let op_name = "get_user_onboarding" in 7358 7378 let url_path = "/users/me/onboarding" in 7359 7379 let query = "" in 7360 - let url = client.Client_.base_url ^ url_path ^ query in 7380 + let url = client.base_url ^ url_path ^ query in 7361 7381 let response = 7362 - try Requests.get client.Client_.session url 7382 + try Requests.get client.session url 7363 7383 with Eio.Io _ as ex -> 7364 7384 let bt = Printexc.get_raw_backtrace () in 7365 7385 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 7382 7402 let op_name = "set_user_onboarding" in 7383 7403 let url_path = "/users/me/onboarding" in 7384 7404 let query = "" in 7385 - let url = client.Client_.base_url ^ url_path ^ query in 7405 + let url = client.base_url ^ url_path ^ query in 7386 7406 let response = 7387 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 7407 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 7388 7408 with Eio.Io _ as ex -> 7389 7409 let bt = Printexc.get_raw_backtrace () in 7390 7410 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 7453 7473 7454 7474 module OauthTokenEndpointAuthMethod = struct 7455 7475 module T = struct 7456 - type t = 7457 - | Client_secret_post 7458 - | Client_secret_basic 7476 + type t = [ 7477 + | `Client_secret_post 7478 + | `Client_secret_basic 7479 + ] 7459 7480 7460 7481 let jsont : t Jsont.t = 7461 7482 Jsont.map Jsont.string ~kind:"OAuthTokenEndpointAuthMethod" 7462 7483 ~dec:(function 7463 - | "client_secret_post" -> Client_secret_post 7464 - | "client_secret_basic" -> Client_secret_basic 7484 + | "client_secret_post" -> `Client_secret_post 7485 + | "client_secret_basic" -> `Client_secret_basic 7465 7486 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 7466 7487 ~enc:(function 7467 - | Client_secret_post -> "client_secret_post" 7468 - | Client_secret_basic -> "client_secret_basic") 7488 + | `Client_secret_post -> "client_secret_post" 7489 + | `Client_secret_basic -> "client_secret_basic") 7469 7490 end 7470 7491 end 7471 7492 ··· 7519 7540 let op_name = "start_oauth" in 7520 7541 let url_path = "/oauth/authorize" in 7521 7542 let query = "" in 7522 - let url = client.Client_.base_url ^ url_path ^ query in 7543 + let url = client.base_url ^ url_path ^ query in 7523 7544 let response = 7524 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json OauthConfig.Dto.jsont body)) url 7545 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json OauthConfig.Dto.jsont body)) url 7525 7546 with Eio.Io _ as ex -> 7526 7547 let bt = Printexc.get_raw_backtrace () in 7527 7548 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 7587 7608 7588 7609 module NotificationLevel = struct 7589 7610 module T = struct 7590 - type t = 7591 - | Success 7592 - | Error 7593 - | Warning 7594 - | Info 7611 + type t = [ 7612 + | `Success 7613 + | `Error 7614 + | `Warning 7615 + | `Info 7616 + ] 7595 7617 7596 7618 let jsont : t Jsont.t = 7597 7619 Jsont.map Jsont.string ~kind:"NotificationLevel" 7598 7620 ~dec:(function 7599 - | "success" -> Success 7600 - | "error" -> Error 7601 - | "warning" -> Warning 7602 - | "info" -> Info 7621 + | "success" -> `Success 7622 + | "error" -> `Error 7623 + | "warning" -> `Warning 7624 + | "info" -> `Info 7603 7625 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 7604 7626 ~enc:(function 7605 - | Success -> "success" 7606 - | Error -> "error" 7607 - | Warning -> "warning" 7608 - | Info -> "info") 7627 + | `Success -> "success" 7628 + | `Error -> "error" 7629 + | `Warning -> "warning" 7630 + | `Info -> "info") 7609 7631 end 7610 7632 end 7611 7633 ··· 7647 7669 end 7648 7670 7649 7671 module Type = struct 7650 - type t = 7651 - | Job_failed 7652 - | Backup_failed 7653 - | System_message 7654 - | Album_invite 7655 - | Album_update 7656 - | Custom 7672 + type t = [ 7673 + | `Job_failed 7674 + | `Backup_failed 7675 + | `System_message 7676 + | `Album_invite 7677 + | `Album_update 7678 + | `Custom 7679 + ] 7657 7680 7658 7681 let jsont : t Jsont.t = 7659 7682 Jsont.map Jsont.string ~kind:"NotificationType" 7660 7683 ~dec:(function 7661 - | "JobFailed" -> Job_failed 7662 - | "BackupFailed" -> Backup_failed 7663 - | "SystemMessage" -> System_message 7664 - | "AlbumInvite" -> Album_invite 7665 - | "AlbumUpdate" -> Album_update 7666 - | "Custom" -> Custom 7684 + | "JobFailed" -> `Job_failed 7685 + | "BackupFailed" -> `Backup_failed 7686 + | "SystemMessage" -> `System_message 7687 + | "AlbumInvite" -> `Album_invite 7688 + | "AlbumUpdate" -> `Album_update 7689 + | "Custom" -> `Custom 7667 7690 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 7668 7691 ~enc:(function 7669 - | Job_failed -> "JobFailed" 7670 - | Backup_failed -> "BackupFailed" 7671 - | System_message -> "SystemMessage" 7672 - | Album_invite -> "AlbumInvite" 7673 - | Album_update -> "AlbumUpdate" 7674 - | Custom -> "Custom") 7692 + | `Job_failed -> "JobFailed" 7693 + | `Backup_failed -> "BackupFailed" 7694 + | `System_message -> "SystemMessage" 7695 + | `Album_invite -> "AlbumInvite" 7696 + | `Album_update -> "AlbumUpdate" 7697 + | `Custom -> "Custom") 7675 7698 end 7676 7699 7677 7700 module Dto = struct ··· 7754 7777 let op_name = "create_notification" in 7755 7778 let url_path = "/admin/notifications" in 7756 7779 let query = "" in 7757 - let url = client.Client_.base_url ^ url_path ^ query in 7780 + let url = client.base_url ^ url_path ^ query in 7758 7781 let response = 7759 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 7782 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 7760 7783 with Eio.Io _ as ex -> 7761 7784 let bt = Printexc.get_raw_backtrace () in 7762 7785 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 7779 7802 let op_name = "get_notifications" in 7780 7803 let url_path = "/notifications" in 7781 7804 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"id" ~value:id; Openapi.Runtime.Query.optional ~key:"level" ~value:level; Openapi.Runtime.Query.optional ~key:"type" ~value:type_; Openapi.Runtime.Query.optional ~key:"unread" ~value:unread]) in 7782 - let url = client.Client_.base_url ^ url_path ^ query in 7805 + let url = client.base_url ^ url_path ^ query in 7783 7806 let response = 7784 - try Requests.get client.Client_.session url 7807 + try Requests.get client.session url 7785 7808 with Eio.Io _ as ex -> 7786 7809 let bt = Printexc.get_raw_backtrace () in 7787 7810 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 7804 7827 let op_name = "get_notification" in 7805 7828 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/notifications/{id}" in 7806 7829 let query = "" in 7807 - let url = client.Client_.base_url ^ url_path ^ query in 7830 + let url = client.base_url ^ url_path ^ query in 7808 7831 let response = 7809 - try Requests.get client.Client_.session url 7832 + try Requests.get client.session url 7810 7833 with Eio.Io _ as ex -> 7811 7834 let bt = Printexc.get_raw_backtrace () in 7812 7835 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 7829 7852 let op_name = "update_notification" in 7830 7853 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/notifications/{id}" in 7831 7854 let query = "" in 7832 - let url = client.Client_.base_url ^ url_path ^ query in 7855 + let url = client.base_url ^ url_path ^ query in 7833 7856 let response = 7834 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 7857 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 7835 7858 with Eio.Io _ as ex -> 7836 7859 let bt = Printexc.get_raw_backtrace () in 7837 7860 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 7892 7915 module MirrorAxis = struct 7893 7916 module T = struct 7894 7917 (** Axis to mirror along *) 7895 - type t = 7896 - | Horizontal 7897 - | Vertical 7918 + type t = [ 7919 + | `Horizontal 7920 + | `Vertical 7921 + ] 7898 7922 7899 7923 let jsont : t Jsont.t = 7900 7924 Jsont.map Jsont.string ~kind:"MirrorAxis" 7901 7925 ~dec:(function 7902 - | "horizontal" -> Horizontal 7903 - | "vertical" -> Vertical 7926 + | "horizontal" -> `Horizontal 7927 + | "vertical" -> `Vertical 7904 7928 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 7905 7929 ~enc:(function 7906 - | Horizontal -> "horizontal" 7907 - | Vertical -> "vertical") 7930 + | `Horizontal -> "horizontal" 7931 + | `Vertical -> "vertical") 7908 7932 end 7909 7933 end 7910 7934 ··· 8101 8125 let op_name = "memories_statistics" in 8102 8126 let url_path = "/memories/statistics" in 8103 8127 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"for" ~value:for_; Openapi.Runtime.Query.optional ~key:"isSaved" ~value:is_saved; Openapi.Runtime.Query.optional ~key:"isTrashed" ~value:is_trashed; Openapi.Runtime.Query.optional ~key:"order" ~value:order; Openapi.Runtime.Query.optional ~key:"size" ~value:size; Openapi.Runtime.Query.optional ~key:"type" ~value:type_]) in 8104 - let url = client.Client_.base_url ^ url_path ^ query in 8128 + let url = client.base_url ^ url_path ^ query in 8105 8129 let response = 8106 - try Requests.get client.Client_.session url 8130 + try Requests.get client.session url 8107 8131 with Eio.Io _ as ex -> 8108 8132 let bt = Printexc.get_raw_backtrace () in 8109 8133 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 8122 8146 8123 8147 module MemorySearchOrder = struct 8124 8148 module T = struct 8125 - type t = 8126 - | Asc 8127 - | Desc 8128 - | Random 8149 + type t = [ 8150 + | `Asc 8151 + | `Desc 8152 + | `Random 8153 + ] 8129 8154 8130 8155 let jsont : t Jsont.t = 8131 8156 Jsont.map Jsont.string ~kind:"MemorySearchOrder" 8132 8157 ~dec:(function 8133 - | "asc" -> Asc 8134 - | "desc" -> Desc 8135 - | "random" -> Random 8158 + | "asc" -> `Asc 8159 + | "desc" -> `Desc 8160 + | "random" -> `Random 8136 8161 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 8137 8162 ~enc:(function 8138 - | Asc -> "asc" 8139 - | Desc -> "desc" 8140 - | Random -> "random") 8163 + | `Asc -> "asc" 8164 + | `Desc -> "desc" 8165 + | `Random -> "random") 8141 8166 end 8142 8167 end 8143 8168 ··· 8214 8239 let op_name = "reverse_geocode" in 8215 8240 let url_path = "/map/reverse-geocode" in 8216 8241 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"lat" ~value:lat; Openapi.Runtime.Query.singleton ~key:"lon" ~value:lon]) in 8217 - let url = client.Client_.base_url ^ url_path ^ query in 8242 + let url = client.base_url ^ url_path ^ query in 8218 8243 let response = 8219 - try Requests.get client.Client_.session url 8244 + try Requests.get client.session url 8220 8245 with Eio.Io _ as ex -> 8221 8246 let bt = Printexc.get_raw_backtrace () in 8222 8247 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 8273 8298 let op_name = "get_map_markers" in 8274 8299 let url_path = "/map/markers" in 8275 8300 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"fileCreatedAfter" ~value:file_created_after; Openapi.Runtime.Query.optional ~key:"fileCreatedBefore" ~value:file_created_before; Openapi.Runtime.Query.optional ~key:"isArchived" ~value:is_archived; Openapi.Runtime.Query.optional ~key:"isFavorite" ~value:is_favorite; Openapi.Runtime.Query.optional ~key:"withPartners" ~value:with_partners; Openapi.Runtime.Query.optional ~key:"withSharedAlbums" ~value:with_shared_albums]) in 8276 - let url = client.Client_.base_url ^ url_path ^ query in 8301 + let url = client.base_url ^ url_path ^ query in 8277 8302 let response = 8278 - try Requests.get client.Client_.session url 8303 + try Requests.get client.session url 8279 8304 with Eio.Io _ as ex -> 8280 8305 let bt = Printexc.get_raw_backtrace () in 8281 8306 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 8294 8319 8295 8320 module ManualJobName = struct 8296 8321 module T = struct 8297 - type t = 8298 - | Person_cleanup 8299 - | Tag_cleanup 8300 - | User_cleanup 8301 - | Memory_cleanup 8302 - | Memory_create 8303 - | Backup_database 8322 + type t = [ 8323 + | `Person_cleanup 8324 + | `Tag_cleanup 8325 + | `User_cleanup 8326 + | `Memory_cleanup 8327 + | `Memory_create 8328 + | `Backup_database 8329 + ] 8304 8330 8305 8331 let jsont : t Jsont.t = 8306 8332 Jsont.map Jsont.string ~kind:"ManualJobName" 8307 8333 ~dec:(function 8308 - | "person-cleanup" -> Person_cleanup 8309 - | "tag-cleanup" -> Tag_cleanup 8310 - | "user-cleanup" -> User_cleanup 8311 - | "memory-cleanup" -> Memory_cleanup 8312 - | "memory-create" -> Memory_create 8313 - | "backup-database" -> Backup_database 8334 + | "person-cleanup" -> `Person_cleanup 8335 + | "tag-cleanup" -> `Tag_cleanup 8336 + | "user-cleanup" -> `User_cleanup 8337 + | "memory-cleanup" -> `Memory_cleanup 8338 + | "memory-create" -> `Memory_create 8339 + | "backup-database" -> `Backup_database 8314 8340 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 8315 8341 ~enc:(function 8316 - | Person_cleanup -> "person-cleanup" 8317 - | Tag_cleanup -> "tag-cleanup" 8318 - | User_cleanup -> "user-cleanup" 8319 - | Memory_cleanup -> "memory-cleanup" 8320 - | Memory_create -> "memory-create" 8321 - | Backup_database -> "backup-database") 8342 + | `Person_cleanup -> "person-cleanup" 8343 + | `Tag_cleanup -> "tag-cleanup" 8344 + | `User_cleanup -> "user-cleanup" 8345 + | `Memory_cleanup -> "memory-cleanup" 8346 + | `Memory_create -> "memory-create" 8347 + | `Backup_database -> "backup-database") 8322 8348 end 8323 8349 end 8324 8350 ··· 8359 8385 let op_name = "get_maintenance_status" in 8360 8386 let url_path = "/admin/maintenance/status" in 8361 8387 let query = "" in 8362 - let url = client.Client_.base_url ^ url_path ^ query in 8388 + let url = client.base_url ^ url_path ^ query in 8363 8389 let response = 8364 - try Requests.get client.Client_.session url 8390 + try Requests.get client.session url 8365 8391 with Eio.Io _ as ex -> 8366 8392 let bt = Printexc.get_raw_backtrace () in 8367 8393 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 8422 8448 let op_name = "maintenance_login" in 8423 8449 let url_path = "/admin/maintenance/login" in 8424 8450 let query = "" in 8425 - let url = client.Client_.base_url ^ url_path ^ query in 8451 + let url = client.base_url ^ url_path ^ query in 8426 8452 let response = 8427 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json MaintenanceLogin.Dto.jsont body)) url 8453 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json MaintenanceLogin.Dto.jsont body)) url 8428 8454 with Eio.Io _ as ex -> 8429 8455 let bt = Printexc.get_raw_backtrace () in 8430 8456 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 8494 8520 let op_name = "detect_prior_install" in 8495 8521 let url_path = "/admin/maintenance/detect-install" in 8496 8522 let query = "" in 8497 - let url = client.Client_.base_url ^ url_path ^ query in 8523 + let url = client.base_url ^ url_path ^ query in 8498 8524 let response = 8499 - try Requests.get client.Client_.session url 8525 + try Requests.get client.session url 8500 8526 with Eio.Io _ as ex -> 8501 8527 let bt = Printexc.get_raw_backtrace () in 8502 8528 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 8515 8541 8516 8542 module MaintenanceAction = struct 8517 8543 module T = struct 8518 - type t = 8519 - | Start 8520 - | End_ 8521 - | Select_database_restore 8522 - | Restore_database 8544 + type t = [ 8545 + | `Start 8546 + | `End_ 8547 + | `Select_database_restore 8548 + | `Restore_database 8549 + ] 8523 8550 8524 8551 let jsont : t Jsont.t = 8525 8552 Jsont.map Jsont.string ~kind:"MaintenanceAction" 8526 8553 ~dec:(function 8527 - | "start" -> Start 8528 - | "end" -> End_ 8529 - | "select_database_restore" -> Select_database_restore 8530 - | "restore_database" -> Restore_database 8554 + | "start" -> `Start 8555 + | "end" -> `End_ 8556 + | "select_database_restore" -> `Select_database_restore 8557 + | "restore_database" -> `Restore_database 8531 8558 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 8532 8559 ~enc:(function 8533 - | Start -> "start" 8534 - | End_ -> "end" 8535 - | Select_database_restore -> "select_database_restore" 8536 - | Restore_database -> "restore_database") 8560 + | `Start -> "start" 8561 + | `End_ -> "end" 8562 + | `Select_database_restore -> "select_database_restore" 8563 + | `Restore_database -> "restore_database") 8537 8564 end 8538 8565 end 8539 8566 ··· 8590 8617 let op_name = "logout" in 8591 8618 let url_path = "/auth/logout" in 8592 8619 let query = "" in 8593 - let url = client.Client_.base_url ^ url_path ^ query in 8620 + let url = client.base_url ^ url_path ^ query in 8594 8621 let response = 8595 - try Requests.post client.Client_.session url 8622 + try Requests.post client.session url 8596 8623 with Eio.Io _ as ex -> 8597 8624 let bt = Printexc.get_raw_backtrace () in 8598 8625 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 8677 8704 let op_name = "login" in 8678 8705 let url_path = "/auth/login" in 8679 8706 let query = "" in 8680 - let url = client.Client_.base_url ^ url_path ^ query in 8707 + let url = client.base_url ^ url_path ^ query in 8681 8708 let response = 8682 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json LoginCredential.Dto.jsont body)) url 8709 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json LoginCredential.Dto.jsont body)) url 8683 8710 with Eio.Io _ as ex -> 8684 8711 let bt = Printexc.get_raw_backtrace () in 8685 8712 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 8702 8729 let op_name = "finish_oauth" in 8703 8730 let url_path = "/oauth/callback" in 8704 8731 let query = "" in 8705 - let url = client.Client_.base_url ^ url_path ^ query in 8732 + let url = client.base_url ^ url_path ^ query in 8706 8733 let response = 8707 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json OauthCallback.Dto.jsont body)) url 8734 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json OauthCallback.Dto.jsont body)) url 8708 8735 with Eio.Io _ as ex -> 8709 8736 let bt = Printexc.get_raw_backtrace () in 8710 8737 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 8723 8750 8724 8751 module LogLevel = struct 8725 8752 module T = struct 8726 - type t = 8727 - | Verbose 8728 - | Debug 8729 - | Log 8730 - | Warn 8731 - | Error 8732 - | Fatal 8753 + type t = [ 8754 + | `Verbose 8755 + | `Debug 8756 + | `Log 8757 + | `Warn 8758 + | `Error 8759 + | `Fatal 8760 + ] 8733 8761 8734 8762 let jsont : t Jsont.t = 8735 8763 Jsont.map Jsont.string ~kind:"LogLevel" 8736 8764 ~dec:(function 8737 - | "verbose" -> Verbose 8738 - | "debug" -> Debug 8739 - | "log" -> Log 8740 - | "warn" -> Warn 8741 - | "error" -> Error 8742 - | "fatal" -> Fatal 8765 + | "verbose" -> `Verbose 8766 + | "debug" -> `Debug 8767 + | "log" -> `Log 8768 + | "warn" -> `Warn 8769 + | "error" -> `Error 8770 + | "fatal" -> `Fatal 8743 8771 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 8744 8772 ~enc:(function 8745 - | Verbose -> "verbose" 8746 - | Debug -> "debug" 8747 - | Log -> "log" 8748 - | Warn -> "warn" 8749 - | Error -> "error" 8750 - | Fatal -> "fatal") 8773 + | `Verbose -> "verbose" 8774 + | `Debug -> "debug" 8775 + | `Log -> "log" 8776 + | `Warn -> "warn" 8777 + | `Error -> "error" 8778 + | `Fatal -> "fatal") 8751 8779 end 8752 8780 end 8753 8781 ··· 8804 8832 let op_name = "get_server_license" in 8805 8833 let url_path = "/server/license" in 8806 8834 let query = "" in 8807 - let url = client.Client_.base_url ^ url_path ^ query in 8835 + let url = client.base_url ^ url_path ^ query in 8808 8836 let response = 8809 - try Requests.get client.Client_.session url 8837 + try Requests.get client.session url 8810 8838 with Eio.Io _ as ex -> 8811 8839 let bt = Printexc.get_raw_backtrace () in 8812 8840 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 8829 8857 let op_name = "set_server_license" in 8830 8858 let url_path = "/server/license" in 8831 8859 let query = "" in 8832 - let url = client.Client_.base_url ^ url_path ^ query in 8860 + let url = client.base_url ^ url_path ^ query in 8833 8861 let response = 8834 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json LicenseKey.Dto.jsont body)) url 8862 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json LicenseKey.Dto.jsont body)) url 8835 8863 with Eio.Io _ as ex -> 8836 8864 let bt = Printexc.get_raw_backtrace () in 8837 8865 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 8854 8882 let op_name = "get_user_license" in 8855 8883 let url_path = "/users/me/license" in 8856 8884 let query = "" in 8857 - let url = client.Client_.base_url ^ url_path ^ query in 8885 + let url = client.base_url ^ url_path ^ query in 8858 8886 let response = 8859 - try Requests.get client.Client_.session url 8887 + try Requests.get client.session url 8860 8888 with Eio.Io _ as ex -> 8861 8889 let bt = Printexc.get_raw_backtrace () in 8862 8890 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 8879 8907 let op_name = "set_user_license" in 8880 8908 let url_path = "/users/me/license" in 8881 8909 let query = "" in 8882 - let url = client.Client_.base_url ^ url_path ^ query in 8910 + let url = client.base_url ^ url_path ^ query in 8883 8911 let response = 8884 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json LicenseKey.Dto.jsont body)) url 8912 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json LicenseKey.Dto.jsont body)) url 8885 8913 with Eio.Io _ as ex -> 8886 8914 let bt = Printexc.get_raw_backtrace () in 8887 8915 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 8932 8960 let op_name = "get_library_statistics" in 8933 8961 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/libraries/{id}/statistics" in 8934 8962 let query = "" in 8935 - let url = client.Client_.base_url ^ url_path ^ query in 8963 + let url = client.base_url ^ url_path ^ query in 8936 8964 let response = 8937 - try Requests.get client.Client_.session url 8965 + try Requests.get client.session url 8938 8966 with Eio.Io _ as ex -> 8939 8967 let bt = Printexc.get_raw_backtrace () in 8940 8968 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 9030 9058 9031 9059 module JobName = struct 9032 9060 module T = struct 9033 - type t = 9034 - | Asset_delete 9035 - | Asset_delete_check 9036 - | Asset_detect_faces_queue_all 9037 - | Asset_detect_faces 9038 - | Asset_detect_duplicates_queue_all 9039 - | Asset_detect_duplicates 9040 - | Asset_edit_thumbnail_generation 9041 - | Asset_encode_video_queue_all 9042 - | Asset_encode_video 9043 - | Asset_empty_trash 9044 - | Asset_extract_metadata_queue_all 9045 - | Asset_extract_metadata 9046 - | Asset_file_migration 9047 - | Asset_generate_thumbnails_queue_all 9048 - | Asset_generate_thumbnails 9049 - | Audit_log_cleanup 9050 - | Audit_table_cleanup 9051 - | Database_backup 9052 - | Facial_recognition_queue_all 9053 - | Facial_recognition 9054 - | File_delete 9055 - | File_migration_queue_all 9056 - | Library_delete_check 9057 - | Library_delete 9058 - | Library_remove_asset 9059 - | Library_scan_assets_queue_all 9060 - | Library_sync_assets 9061 - | Library_sync_files_queue_all 9062 - | Library_sync_files 9063 - | Library_scan_queue_all 9064 - | Memory_cleanup 9065 - | Memory_generate 9066 - | Notifications_cleanup 9067 - | Notify_user_signup 9068 - | Notify_album_invite 9069 - | Notify_album_update 9070 - | User_delete 9071 - | User_delete_check 9072 - | User_sync_usage 9073 - | Person_cleanup 9074 - | Person_file_migration 9075 - | Person_generate_thumbnail 9076 - | Session_cleanup 9077 - | Send_mail 9078 - | Sidecar_queue_all 9079 - | Sidecar_check 9080 - | Sidecar_write 9081 - | Smart_search_queue_all 9082 - | Smart_search 9083 - | Storage_template_migration 9084 - | Storage_template_migration_single 9085 - | Tag_cleanup 9086 - | Version_check 9087 - | Ocr_queue_all 9088 - | Ocr 9089 - | Workflow_run 9061 + type t = [ 9062 + | `Asset_delete 9063 + | `Asset_delete_check 9064 + | `Asset_detect_faces_queue_all 9065 + | `Asset_detect_faces 9066 + | `Asset_detect_duplicates_queue_all 9067 + | `Asset_detect_duplicates 9068 + | `Asset_edit_thumbnail_generation 9069 + | `Asset_encode_video_queue_all 9070 + | `Asset_encode_video 9071 + | `Asset_empty_trash 9072 + | `Asset_extract_metadata_queue_all 9073 + | `Asset_extract_metadata 9074 + | `Asset_file_migration 9075 + | `Asset_generate_thumbnails_queue_all 9076 + | `Asset_generate_thumbnails 9077 + | `Audit_log_cleanup 9078 + | `Audit_table_cleanup 9079 + | `Database_backup 9080 + | `Facial_recognition_queue_all 9081 + | `Facial_recognition 9082 + | `File_delete 9083 + | `File_migration_queue_all 9084 + | `Library_delete_check 9085 + | `Library_delete 9086 + | `Library_remove_asset 9087 + | `Library_scan_assets_queue_all 9088 + | `Library_sync_assets 9089 + | `Library_sync_files_queue_all 9090 + | `Library_sync_files 9091 + | `Library_scan_queue_all 9092 + | `Memory_cleanup 9093 + | `Memory_generate 9094 + | `Notifications_cleanup 9095 + | `Notify_user_signup 9096 + | `Notify_album_invite 9097 + | `Notify_album_update 9098 + | `User_delete 9099 + | `User_delete_check 9100 + | `User_sync_usage 9101 + | `Person_cleanup 9102 + | `Person_file_migration 9103 + | `Person_generate_thumbnail 9104 + | `Session_cleanup 9105 + | `Send_mail 9106 + | `Sidecar_queue_all 9107 + | `Sidecar_check 9108 + | `Sidecar_write 9109 + | `Smart_search_queue_all 9110 + | `Smart_search 9111 + | `Storage_template_migration 9112 + | `Storage_template_migration_single 9113 + | `Tag_cleanup 9114 + | `Version_check 9115 + | `Ocr_queue_all 9116 + | `Ocr 9117 + | `Workflow_run 9118 + ] 9090 9119 9091 9120 let jsont : t Jsont.t = 9092 9121 Jsont.map Jsont.string ~kind:"JobName" 9093 9122 ~dec:(function 9094 - | "AssetDelete" -> Asset_delete 9095 - | "AssetDeleteCheck" -> Asset_delete_check 9096 - | "AssetDetectFacesQueueAll" -> Asset_detect_faces_queue_all 9097 - | "AssetDetectFaces" -> Asset_detect_faces 9098 - | "AssetDetectDuplicatesQueueAll" -> Asset_detect_duplicates_queue_all 9099 - | "AssetDetectDuplicates" -> Asset_detect_duplicates 9100 - | "AssetEditThumbnailGeneration" -> Asset_edit_thumbnail_generation 9101 - | "AssetEncodeVideoQueueAll" -> Asset_encode_video_queue_all 9102 - | "AssetEncodeVideo" -> Asset_encode_video 9103 - | "AssetEmptyTrash" -> Asset_empty_trash 9104 - | "AssetExtractMetadataQueueAll" -> Asset_extract_metadata_queue_all 9105 - | "AssetExtractMetadata" -> Asset_extract_metadata 9106 - | "AssetFileMigration" -> Asset_file_migration 9107 - | "AssetGenerateThumbnailsQueueAll" -> Asset_generate_thumbnails_queue_all 9108 - | "AssetGenerateThumbnails" -> Asset_generate_thumbnails 9109 - | "AuditLogCleanup" -> Audit_log_cleanup 9110 - | "AuditTableCleanup" -> Audit_table_cleanup 9111 - | "DatabaseBackup" -> Database_backup 9112 - | "FacialRecognitionQueueAll" -> Facial_recognition_queue_all 9113 - | "FacialRecognition" -> Facial_recognition 9114 - | "FileDelete" -> File_delete 9115 - | "FileMigrationQueueAll" -> File_migration_queue_all 9116 - | "LibraryDeleteCheck" -> Library_delete_check 9117 - | "LibraryDelete" -> Library_delete 9118 - | "LibraryRemoveAsset" -> Library_remove_asset 9119 - | "LibraryScanAssetsQueueAll" -> Library_scan_assets_queue_all 9120 - | "LibrarySyncAssets" -> Library_sync_assets 9121 - | "LibrarySyncFilesQueueAll" -> Library_sync_files_queue_all 9122 - | "LibrarySyncFiles" -> Library_sync_files 9123 - | "LibraryScanQueueAll" -> Library_scan_queue_all 9124 - | "MemoryCleanup" -> Memory_cleanup 9125 - | "MemoryGenerate" -> Memory_generate 9126 - | "NotificationsCleanup" -> Notifications_cleanup 9127 - | "NotifyUserSignup" -> Notify_user_signup 9128 - | "NotifyAlbumInvite" -> Notify_album_invite 9129 - | "NotifyAlbumUpdate" -> Notify_album_update 9130 - | "UserDelete" -> User_delete 9131 - | "UserDeleteCheck" -> User_delete_check 9132 - | "UserSyncUsage" -> User_sync_usage 9133 - | "PersonCleanup" -> Person_cleanup 9134 - | "PersonFileMigration" -> Person_file_migration 9135 - | "PersonGenerateThumbnail" -> Person_generate_thumbnail 9136 - | "SessionCleanup" -> Session_cleanup 9137 - | "SendMail" -> Send_mail 9138 - | "SidecarQueueAll" -> Sidecar_queue_all 9139 - | "SidecarCheck" -> Sidecar_check 9140 - | "SidecarWrite" -> Sidecar_write 9141 - | "SmartSearchQueueAll" -> Smart_search_queue_all 9142 - | "SmartSearch" -> Smart_search 9143 - | "StorageTemplateMigration" -> Storage_template_migration 9144 - | "StorageTemplateMigrationSingle" -> Storage_template_migration_single 9145 - | "TagCleanup" -> Tag_cleanup 9146 - | "VersionCheck" -> Version_check 9147 - | "OcrQueueAll" -> Ocr_queue_all 9148 - | "Ocr" -> Ocr 9149 - | "WorkflowRun" -> Workflow_run 9123 + | "AssetDelete" -> `Asset_delete 9124 + | "AssetDeleteCheck" -> `Asset_delete_check 9125 + | "AssetDetectFacesQueueAll" -> `Asset_detect_faces_queue_all 9126 + | "AssetDetectFaces" -> `Asset_detect_faces 9127 + | "AssetDetectDuplicatesQueueAll" -> `Asset_detect_duplicates_queue_all 9128 + | "AssetDetectDuplicates" -> `Asset_detect_duplicates 9129 + | "AssetEditThumbnailGeneration" -> `Asset_edit_thumbnail_generation 9130 + | "AssetEncodeVideoQueueAll" -> `Asset_encode_video_queue_all 9131 + | "AssetEncodeVideo" -> `Asset_encode_video 9132 + | "AssetEmptyTrash" -> `Asset_empty_trash 9133 + | "AssetExtractMetadataQueueAll" -> `Asset_extract_metadata_queue_all 9134 + | "AssetExtractMetadata" -> `Asset_extract_metadata 9135 + | "AssetFileMigration" -> `Asset_file_migration 9136 + | "AssetGenerateThumbnailsQueueAll" -> `Asset_generate_thumbnails_queue_all 9137 + | "AssetGenerateThumbnails" -> `Asset_generate_thumbnails 9138 + | "AuditLogCleanup" -> `Audit_log_cleanup 9139 + | "AuditTableCleanup" -> `Audit_table_cleanup 9140 + | "DatabaseBackup" -> `Database_backup 9141 + | "FacialRecognitionQueueAll" -> `Facial_recognition_queue_all 9142 + | "FacialRecognition" -> `Facial_recognition 9143 + | "FileDelete" -> `File_delete 9144 + | "FileMigrationQueueAll" -> `File_migration_queue_all 9145 + | "LibraryDeleteCheck" -> `Library_delete_check 9146 + | "LibraryDelete" -> `Library_delete 9147 + | "LibraryRemoveAsset" -> `Library_remove_asset 9148 + | "LibraryScanAssetsQueueAll" -> `Library_scan_assets_queue_all 9149 + | "LibrarySyncAssets" -> `Library_sync_assets 9150 + | "LibrarySyncFilesQueueAll" -> `Library_sync_files_queue_all 9151 + | "LibrarySyncFiles" -> `Library_sync_files 9152 + | "LibraryScanQueueAll" -> `Library_scan_queue_all 9153 + | "MemoryCleanup" -> `Memory_cleanup 9154 + | "MemoryGenerate" -> `Memory_generate 9155 + | "NotificationsCleanup" -> `Notifications_cleanup 9156 + | "NotifyUserSignup" -> `Notify_user_signup 9157 + | "NotifyAlbumInvite" -> `Notify_album_invite 9158 + | "NotifyAlbumUpdate" -> `Notify_album_update 9159 + | "UserDelete" -> `User_delete 9160 + | "UserDeleteCheck" -> `User_delete_check 9161 + | "UserSyncUsage" -> `User_sync_usage 9162 + | "PersonCleanup" -> `Person_cleanup 9163 + | "PersonFileMigration" -> `Person_file_migration 9164 + | "PersonGenerateThumbnail" -> `Person_generate_thumbnail 9165 + | "SessionCleanup" -> `Session_cleanup 9166 + | "SendMail" -> `Send_mail 9167 + | "SidecarQueueAll" -> `Sidecar_queue_all 9168 + | "SidecarCheck" -> `Sidecar_check 9169 + | "SidecarWrite" -> `Sidecar_write 9170 + | "SmartSearchQueueAll" -> `Smart_search_queue_all 9171 + | "SmartSearch" -> `Smart_search 9172 + | "StorageTemplateMigration" -> `Storage_template_migration 9173 + | "StorageTemplateMigrationSingle" -> `Storage_template_migration_single 9174 + | "TagCleanup" -> `Tag_cleanup 9175 + | "VersionCheck" -> `Version_check 9176 + | "OcrQueueAll" -> `Ocr_queue_all 9177 + | "Ocr" -> `Ocr 9178 + | "WorkflowRun" -> `Workflow_run 9150 9179 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 9151 9180 ~enc:(function 9152 - | Asset_delete -> "AssetDelete" 9153 - | Asset_delete_check -> "AssetDeleteCheck" 9154 - | Asset_detect_faces_queue_all -> "AssetDetectFacesQueueAll" 9155 - | Asset_detect_faces -> "AssetDetectFaces" 9156 - | Asset_detect_duplicates_queue_all -> "AssetDetectDuplicatesQueueAll" 9157 - | Asset_detect_duplicates -> "AssetDetectDuplicates" 9158 - | Asset_edit_thumbnail_generation -> "AssetEditThumbnailGeneration" 9159 - | Asset_encode_video_queue_all -> "AssetEncodeVideoQueueAll" 9160 - | Asset_encode_video -> "AssetEncodeVideo" 9161 - | Asset_empty_trash -> "AssetEmptyTrash" 9162 - | Asset_extract_metadata_queue_all -> "AssetExtractMetadataQueueAll" 9163 - | Asset_extract_metadata -> "AssetExtractMetadata" 9164 - | Asset_file_migration -> "AssetFileMigration" 9165 - | Asset_generate_thumbnails_queue_all -> "AssetGenerateThumbnailsQueueAll" 9166 - | Asset_generate_thumbnails -> "AssetGenerateThumbnails" 9167 - | Audit_log_cleanup -> "AuditLogCleanup" 9168 - | Audit_table_cleanup -> "AuditTableCleanup" 9169 - | Database_backup -> "DatabaseBackup" 9170 - | Facial_recognition_queue_all -> "FacialRecognitionQueueAll" 9171 - | Facial_recognition -> "FacialRecognition" 9172 - | File_delete -> "FileDelete" 9173 - | File_migration_queue_all -> "FileMigrationQueueAll" 9174 - | Library_delete_check -> "LibraryDeleteCheck" 9175 - | Library_delete -> "LibraryDelete" 9176 - | Library_remove_asset -> "LibraryRemoveAsset" 9177 - | Library_scan_assets_queue_all -> "LibraryScanAssetsQueueAll" 9178 - | Library_sync_assets -> "LibrarySyncAssets" 9179 - | Library_sync_files_queue_all -> "LibrarySyncFilesQueueAll" 9180 - | Library_sync_files -> "LibrarySyncFiles" 9181 - | Library_scan_queue_all -> "LibraryScanQueueAll" 9182 - | Memory_cleanup -> "MemoryCleanup" 9183 - | Memory_generate -> "MemoryGenerate" 9184 - | Notifications_cleanup -> "NotificationsCleanup" 9185 - | Notify_user_signup -> "NotifyUserSignup" 9186 - | Notify_album_invite -> "NotifyAlbumInvite" 9187 - | Notify_album_update -> "NotifyAlbumUpdate" 9188 - | User_delete -> "UserDelete" 9189 - | User_delete_check -> "UserDeleteCheck" 9190 - | User_sync_usage -> "UserSyncUsage" 9191 - | Person_cleanup -> "PersonCleanup" 9192 - | Person_file_migration -> "PersonFileMigration" 9193 - | Person_generate_thumbnail -> "PersonGenerateThumbnail" 9194 - | Session_cleanup -> "SessionCleanup" 9195 - | Send_mail -> "SendMail" 9196 - | Sidecar_queue_all -> "SidecarQueueAll" 9197 - | Sidecar_check -> "SidecarCheck" 9198 - | Sidecar_write -> "SidecarWrite" 9199 - | Smart_search_queue_all -> "SmartSearchQueueAll" 9200 - | Smart_search -> "SmartSearch" 9201 - | Storage_template_migration -> "StorageTemplateMigration" 9202 - | Storage_template_migration_single -> "StorageTemplateMigrationSingle" 9203 - | Tag_cleanup -> "TagCleanup" 9204 - | Version_check -> "VersionCheck" 9205 - | Ocr_queue_all -> "OcrQueueAll" 9206 - | Ocr -> "Ocr" 9207 - | Workflow_run -> "WorkflowRun") 9181 + | `Asset_delete -> "AssetDelete" 9182 + | `Asset_delete_check -> "AssetDeleteCheck" 9183 + | `Asset_detect_faces_queue_all -> "AssetDetectFacesQueueAll" 9184 + | `Asset_detect_faces -> "AssetDetectFaces" 9185 + | `Asset_detect_duplicates_queue_all -> "AssetDetectDuplicatesQueueAll" 9186 + | `Asset_detect_duplicates -> "AssetDetectDuplicates" 9187 + | `Asset_edit_thumbnail_generation -> "AssetEditThumbnailGeneration" 9188 + | `Asset_encode_video_queue_all -> "AssetEncodeVideoQueueAll" 9189 + | `Asset_encode_video -> "AssetEncodeVideo" 9190 + | `Asset_empty_trash -> "AssetEmptyTrash" 9191 + | `Asset_extract_metadata_queue_all -> "AssetExtractMetadataQueueAll" 9192 + | `Asset_extract_metadata -> "AssetExtractMetadata" 9193 + | `Asset_file_migration -> "AssetFileMigration" 9194 + | `Asset_generate_thumbnails_queue_all -> "AssetGenerateThumbnailsQueueAll" 9195 + | `Asset_generate_thumbnails -> "AssetGenerateThumbnails" 9196 + | `Audit_log_cleanup -> "AuditLogCleanup" 9197 + | `Audit_table_cleanup -> "AuditTableCleanup" 9198 + | `Database_backup -> "DatabaseBackup" 9199 + | `Facial_recognition_queue_all -> "FacialRecognitionQueueAll" 9200 + | `Facial_recognition -> "FacialRecognition" 9201 + | `File_delete -> "FileDelete" 9202 + | `File_migration_queue_all -> "FileMigrationQueueAll" 9203 + | `Library_delete_check -> "LibraryDeleteCheck" 9204 + | `Library_delete -> "LibraryDelete" 9205 + | `Library_remove_asset -> "LibraryRemoveAsset" 9206 + | `Library_scan_assets_queue_all -> "LibraryScanAssetsQueueAll" 9207 + | `Library_sync_assets -> "LibrarySyncAssets" 9208 + | `Library_sync_files_queue_all -> "LibrarySyncFilesQueueAll" 9209 + | `Library_sync_files -> "LibrarySyncFiles" 9210 + | `Library_scan_queue_all -> "LibraryScanQueueAll" 9211 + | `Memory_cleanup -> "MemoryCleanup" 9212 + | `Memory_generate -> "MemoryGenerate" 9213 + | `Notifications_cleanup -> "NotificationsCleanup" 9214 + | `Notify_user_signup -> "NotifyUserSignup" 9215 + | `Notify_album_invite -> "NotifyAlbumInvite" 9216 + | `Notify_album_update -> "NotifyAlbumUpdate" 9217 + | `User_delete -> "UserDelete" 9218 + | `User_delete_check -> "UserDeleteCheck" 9219 + | `User_sync_usage -> "UserSyncUsage" 9220 + | `Person_cleanup -> "PersonCleanup" 9221 + | `Person_file_migration -> "PersonFileMigration" 9222 + | `Person_generate_thumbnail -> "PersonGenerateThumbnail" 9223 + | `Session_cleanup -> "SessionCleanup" 9224 + | `Send_mail -> "SendMail" 9225 + | `Sidecar_queue_all -> "SidecarQueueAll" 9226 + | `Sidecar_check -> "SidecarCheck" 9227 + | `Sidecar_write -> "SidecarWrite" 9228 + | `Smart_search_queue_all -> "SmartSearchQueueAll" 9229 + | `Smart_search -> "SmartSearch" 9230 + | `Storage_template_migration -> "StorageTemplateMigration" 9231 + | `Storage_template_migration_single -> "StorageTemplateMigrationSingle" 9232 + | `Tag_cleanup -> "TagCleanup" 9233 + | `Version_check -> "VersionCheck" 9234 + | `Ocr_queue_all -> "OcrQueueAll" 9235 + | `Ocr -> "Ocr" 9236 + | `Workflow_run -> "WorkflowRun") 9208 9237 end 9209 9238 end 9210 9239 ··· 9229 9258 9230 9259 module ImageFormat = struct 9231 9260 module T = struct 9232 - type t = 9233 - | Jpeg 9234 - | Webp 9261 + type t = [ 9262 + | `Jpeg 9263 + | `Webp 9264 + ] 9235 9265 9236 9266 let jsont : t Jsont.t = 9237 9267 Jsont.map Jsont.string ~kind:"ImageFormat" 9238 9268 ~dec:(function 9239 - | "jpeg" -> Jpeg 9240 - | "webp" -> Webp 9269 + | "jpeg" -> `Jpeg 9270 + | "webp" -> `Webp 9241 9271 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 9242 9272 ~enc:(function 9243 - | Jpeg -> "jpeg" 9244 - | Webp -> "webp") 9273 + | `Jpeg -> "jpeg" 9274 + | `Webp -> "webp") 9245 9275 end 9246 9276 end 9247 9277 ··· 9607 9637 let op_name = "get_download_info" in 9608 9638 let url_path = "/download/info" in 9609 9639 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 9610 - let url = client.Client_.base_url ^ url_path ^ query in 9640 + let url = client.base_url ^ url_path ^ query in 9611 9641 let response = 9612 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json DownloadInfo.Dto.jsont body)) url 9642 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json DownloadInfo.Dto.jsont body)) url 9613 9643 with Eio.Io _ as ex -> 9614 9644 let bt = Printexc.get_raw_backtrace () in 9615 9645 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 9753 9783 let op_name = "list_database_backups" in 9754 9784 let url_path = "/admin/database-backups" in 9755 9785 let query = "" in 9756 - let url = client.Client_.base_url ^ url_path ^ query in 9786 + let url = client.base_url ^ url_path ^ query in 9757 9787 let response = 9758 - try Requests.get client.Client_.session url 9788 + try Requests.get client.session url 9759 9789 with Eio.Io _ as ex -> 9760 9790 let bt = Printexc.get_raw_backtrace () in 9761 9791 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 9870 9900 let op_name = "create_profile_image" in 9871 9901 let url_path = "/users/profile-image" in 9872 9902 let query = "" in 9873 - let url = client.Client_.base_url ^ url_path ^ query in 9903 + let url = client.base_url ^ url_path ^ query in 9874 9904 let response = 9875 - try Requests.post client.Client_.session url 9905 + try Requests.post client.session url 9876 9906 with Eio.Io _ as ex -> 9877 9907 let bt = Printexc.get_raw_backtrace () in 9878 9908 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 9966 9996 let op_name = "get_all_libraries" in 9967 9997 let url_path = "/libraries" in 9968 9998 let query = "" in 9969 - let url = client.Client_.base_url ^ url_path ^ query in 9999 + let url = client.base_url ^ url_path ^ query in 9970 10000 let response = 9971 - try Requests.get client.Client_.session url 10001 + try Requests.get client.session url 9972 10002 with Eio.Io _ as ex -> 9973 10003 let bt = Printexc.get_raw_backtrace () in 9974 10004 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 9991 10021 let op_name = "create_library" in 9992 10022 let url_path = "/libraries" in 9993 10023 let query = "" in 9994 - let url = client.Client_.base_url ^ url_path ^ query in 10024 + let url = client.base_url ^ url_path ^ query in 9995 10025 let response = 9996 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateLibrary.Dto.jsont body)) url 10026 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateLibrary.Dto.jsont body)) url 9997 10027 with Eio.Io _ as ex -> 9998 10028 let bt = Printexc.get_raw_backtrace () in 9999 10029 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10016 10046 let op_name = "get_library" in 10017 10047 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/libraries/{id}" in 10018 10048 let query = "" in 10019 - let url = client.Client_.base_url ^ url_path ^ query in 10049 + let url = client.base_url ^ url_path ^ query in 10020 10050 let response = 10021 - try Requests.get client.Client_.session url 10051 + try Requests.get client.session url 10022 10052 with Eio.Io _ as ex -> 10023 10053 let bt = Printexc.get_raw_backtrace () in 10024 10054 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 10041 10071 let op_name = "update_library" in 10042 10072 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/libraries/{id}" in 10043 10073 let query = "" in 10044 - let url = client.Client_.base_url ^ url_path ^ query in 10074 + let url = client.base_url ^ url_path ^ query in 10045 10075 let response = 10046 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateLibrary.Dto.jsont body)) url 10076 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateLibrary.Dto.jsont body)) url 10047 10077 with Eio.Io _ as ex -> 10048 10078 let bt = Printexc.get_raw_backtrace () in 10049 10079 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 10062 10092 10063 10093 module Cqmode = struct 10064 10094 module T = struct 10065 - type t = 10066 - | Auto 10067 - | Cqp 10068 - | Icq 10095 + type t = [ 10096 + | `Auto 10097 + | `Cqp 10098 + | `Icq 10099 + ] 10069 10100 10070 10101 let jsont : t Jsont.t = 10071 10102 Jsont.map Jsont.string ~kind:"CQMode" 10072 10103 ~dec:(function 10073 - | "auto" -> Auto 10074 - | "cqp" -> Cqp 10075 - | "icq" -> Icq 10104 + | "auto" -> `Auto 10105 + | "cqp" -> `Cqp 10106 + | "icq" -> `Icq 10076 10107 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 10077 10108 ~enc:(function 10078 - | Auto -> "auto" 10079 - | Cqp -> "cqp" 10080 - | Icq -> "icq") 10109 + | `Auto -> "auto" 10110 + | `Cqp -> "cqp" 10111 + | `Icq -> "icq") 10081 10112 end 10082 10113 end 10083 10114 ··· 10105 10136 10106 10137 module Colorspace = struct 10107 10138 module T = struct 10108 - type t = 10109 - | Srgb 10110 - | P3 10139 + type t = [ 10140 + | `Srgb 10141 + | `P3 10142 + ] 10111 10143 10112 10144 let jsont : t Jsont.t = 10113 10145 Jsont.map Jsont.string ~kind:"Colorspace" 10114 10146 ~dec:(function 10115 - | "srgb" -> Srgb 10116 - | "p3" -> P3 10147 + | "srgb" -> `Srgb 10148 + | "p3" -> `P3 10117 10149 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 10118 10150 ~enc:(function 10119 - | Srgb -> "srgb" 10120 - | P3 -> "p3") 10151 + | `Srgb -> "srgb" 10152 + | `P3 -> "p3") 10121 10153 end 10122 10154 end 10123 10155 ··· 10225 10257 let op_name = "check_existing_assets" in 10226 10258 let url_path = "/assets/exist" in 10227 10259 let query = "" in 10228 - let url = client.Client_.base_url ^ url_path ^ query in 10260 + let url = client.base_url ^ url_path ^ query in 10229 10261 let response = 10230 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 10262 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 10231 10263 with Eio.Io _ as ex -> 10232 10264 let bt = Printexc.get_raw_backtrace () in 10233 10265 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10425 10457 let op_name = "search_users_admin" in 10426 10458 let url_path = "/admin/users" in 10427 10459 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"id" ~value:id; Openapi.Runtime.Query.optional ~key:"withDeleted" ~value:with_deleted]) in 10428 - let url = client.Client_.base_url ^ url_path ^ query in 10460 + let url = client.base_url ^ url_path ^ query in 10429 10461 let response = 10430 - try Requests.get client.Client_.session url 10462 + try Requests.get client.session url 10431 10463 with Eio.Io _ as ex -> 10432 10464 let bt = Printexc.get_raw_backtrace () in 10433 10465 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 10450 10482 let op_name = "create_user_admin" in 10451 10483 let url_path = "/admin/users" in 10452 10484 let query = "" in 10453 - let url = client.Client_.base_url ^ url_path ^ query in 10485 + let url = client.base_url ^ url_path ^ query in 10454 10486 let response = 10455 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 10487 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 10456 10488 with Eio.Io _ as ex -> 10457 10489 let bt = Printexc.get_raw_backtrace () in 10458 10490 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10475 10507 let op_name = "get_user_admin" in 10476 10508 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}" in 10477 10509 let query = "" in 10478 - let url = client.Client_.base_url ^ url_path ^ query in 10510 + let url = client.base_url ^ url_path ^ query in 10479 10511 let response = 10480 - try Requests.get client.Client_.session url 10512 + try Requests.get client.session url 10481 10513 with Eio.Io _ as ex -> 10482 10514 let bt = Printexc.get_raw_backtrace () in 10483 10515 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 10500 10532 let op_name = "update_user_admin" in 10501 10533 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}" in 10502 10534 let query = "" in 10503 - let url = client.Client_.base_url ^ url_path ^ query in 10535 + let url = client.base_url ^ url_path ^ query in 10504 10536 let response = 10505 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 10537 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 10506 10538 with Eio.Io _ as ex -> 10507 10539 let bt = Printexc.get_raw_backtrace () in 10508 10540 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 10525 10557 let op_name = "delete_user_admin" in 10526 10558 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}" in 10527 10559 let query = "" in 10528 - let url = client.Client_.base_url ^ url_path ^ query in 10560 + let url = client.base_url ^ url_path ^ query in 10529 10561 let response = 10530 - try Requests.delete client.Client_.session url 10562 + try Requests.delete client.session url 10531 10563 with Eio.Io _ as ex -> 10532 10564 let bt = Printexc.get_raw_backtrace () in 10533 10565 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 10550 10582 let op_name = "restore_user_admin" in 10551 10583 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}/restore" in 10552 10584 let query = "" in 10553 - let url = client.Client_.base_url ^ url_path ^ query in 10585 + let url = client.base_url ^ url_path ^ query in 10554 10586 let response = 10555 - try Requests.post client.Client_.session url 10587 + try Requests.post client.session url 10556 10588 with Eio.Io _ as ex -> 10557 10589 let bt = Printexc.get_raw_backtrace () in 10558 10590 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10575 10607 let op_name = "sign_up_admin" in 10576 10608 let url_path = "/auth/admin-sign-up" in 10577 10609 let query = "" in 10578 - let url = client.Client_.base_url ^ url_path ^ query in 10610 + let url = client.base_url ^ url_path ^ query in 10579 10611 let response = 10580 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SignUp.Dto.jsont body)) url 10612 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SignUp.Dto.jsont body)) url 10581 10613 with Eio.Io _ as ex -> 10582 10614 let bt = Printexc.get_raw_backtrace () in 10583 10615 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10600 10632 let op_name = "change_password" in 10601 10633 let url_path = "/auth/change-password" in 10602 10634 let query = "" in 10603 - let url = client.Client_.base_url ^ url_path ^ query in 10635 + let url = client.base_url ^ url_path ^ query in 10604 10636 let response = 10605 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json ChangePassword.Dto.jsont body)) url 10637 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json ChangePassword.Dto.jsont body)) url 10606 10638 with Eio.Io _ as ex -> 10607 10639 let bt = Printexc.get_raw_backtrace () in 10608 10640 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10625 10657 let op_name = "link_oauth_account" in 10626 10658 let url_path = "/oauth/link" in 10627 10659 let query = "" in 10628 - let url = client.Client_.base_url ^ url_path ^ query in 10660 + let url = client.base_url ^ url_path ^ query in 10629 10661 let response = 10630 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json OauthCallback.Dto.jsont body)) url 10662 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json OauthCallback.Dto.jsont body)) url 10631 10663 with Eio.Io _ as ex -> 10632 10664 let bt = Printexc.get_raw_backtrace () in 10633 10665 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10650 10682 let op_name = "unlink_oauth_account" in 10651 10683 let url_path = "/oauth/unlink" in 10652 10684 let query = "" in 10653 - let url = client.Client_.base_url ^ url_path ^ query in 10685 + let url = client.base_url ^ url_path ^ query in 10654 10686 let response = 10655 - try Requests.post client.Client_.session url 10687 + try Requests.post client.session url 10656 10688 with Eio.Io _ as ex -> 10657 10689 let bt = Printexc.get_raw_backtrace () in 10658 10690 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10675 10707 let op_name = "get_my_user" in 10676 10708 let url_path = "/users/me" in 10677 10709 let query = "" in 10678 - let url = client.Client_.base_url ^ url_path ^ query in 10710 + let url = client.base_url ^ url_path ^ query in 10679 10711 let response = 10680 - try Requests.get client.Client_.session url 10712 + try Requests.get client.session url 10681 10713 with Eio.Io _ as ex -> 10682 10714 let bt = Printexc.get_raw_backtrace () in 10683 10715 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 10700 10732 let op_name = "update_my_user" in 10701 10733 let url_path = "/users/me" in 10702 10734 let query = "" in 10703 - let url = client.Client_.base_url ^ url_path ^ query in 10735 + let url = client.base_url ^ url_path ^ query in 10704 10736 let response = 10705 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UserUpdateMe.Dto.jsont body)) url 10737 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UserUpdateMe.Dto.jsont body)) url 10706 10738 with Eio.Io _ as ex -> 10707 10739 let bt = Printexc.get_raw_backtrace () in 10708 10740 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 10799 10831 let op_name = "empty_trash" in 10800 10832 let url_path = "/trash/empty" in 10801 10833 let query = "" in 10802 - let url = client.Client_.base_url ^ url_path ^ query in 10834 + let url = client.base_url ^ url_path ^ query in 10803 10835 let response = 10804 - try Requests.post client.Client_.session url 10836 + try Requests.post client.session url 10805 10837 with Eio.Io _ as ex -> 10806 10838 let bt = Printexc.get_raw_backtrace () in 10807 10839 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10824 10856 let op_name = "restore_trash" in 10825 10857 let url_path = "/trash/restore" in 10826 10858 let query = "" in 10827 - let url = client.Client_.base_url ^ url_path ^ query in 10859 + let url = client.base_url ^ url_path ^ query in 10828 10860 let response = 10829 - try Requests.post client.Client_.session url 10861 + try Requests.post client.session url 10830 10862 with Eio.Io _ as ex -> 10831 10863 let bt = Printexc.get_raw_backtrace () in 10832 10864 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10849 10881 let op_name = "restore_assets" in 10850 10882 let url_path = "/trash/restore/assets" in 10851 10883 let query = "" in 10852 - let url = client.Client_.base_url ^ url_path ^ query in 10884 + let url = client.base_url ^ url_path ^ query in 10853 10885 let response = 10854 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 10886 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 10855 10887 with Eio.Io _ as ex -> 10856 10888 let bt = Printexc.get_raw_backtrace () in 10857 10889 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 10870 10902 10871 10903 module BulkIdErrorReason = struct 10872 10904 module T = struct 10873 - type t = 10874 - | Duplicate 10875 - | No_permission 10876 - | Not_found 10877 - | Unknown 10905 + type t = [ 10906 + | `Duplicate 10907 + | `No_permission 10908 + | `Not_found 10909 + | `Unknown 10910 + ] 10878 10911 10879 10912 let jsont : t Jsont.t = 10880 10913 Jsont.map Jsont.string ~kind:"BulkIdErrorReason" 10881 10914 ~dec:(function 10882 - | "duplicate" -> Duplicate 10883 - | "no_permission" -> No_permission 10884 - | "not_found" -> Not_found 10885 - | "unknown" -> Unknown 10915 + | "duplicate" -> `Duplicate 10916 + | "no_permission" -> `No_permission 10917 + | "not_found" -> `Not_found 10918 + | "unknown" -> `Unknown 10886 10919 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 10887 10920 ~enc:(function 10888 - | Duplicate -> "duplicate" 10889 - | No_permission -> "no_permission" 10890 - | Not_found -> "not_found" 10891 - | Unknown -> "unknown") 10921 + | `Duplicate -> "duplicate" 10922 + | `No_permission -> "no_permission" 10923 + | `Not_found -> "not_found" 10924 + | `Unknown -> "unknown") 10892 10925 end 10893 10926 end 10894 10927 ··· 10948 10981 let op_name = "get_auth_status" in 10949 10982 let url_path = "/auth/status" in 10950 10983 let query = "" in 10951 - let url = client.Client_.base_url ^ url_path ^ query in 10984 + let url = client.base_url ^ url_path ^ query in 10952 10985 let response = 10953 - try Requests.get client.Client_.session url 10986 + try Requests.get client.session url 10954 10987 with Eio.Io _ as ex -> 10955 10988 let bt = Printexc.get_raw_backtrace () in 10956 10989 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 10969 11002 10970 11003 module AudioCodec = struct 10971 11004 module T = struct 10972 - type t = 10973 - | Mp3 10974 - | Aac 10975 - | Libopus 10976 - | Pcm_s16le 11005 + type t = [ 11006 + | `Mp3 11007 + | `Aac 11008 + | `Libopus 11009 + | `Pcm_s16le 11010 + ] 10977 11011 10978 11012 let jsont : t Jsont.t = 10979 11013 Jsont.map Jsont.string ~kind:"AudioCodec" 10980 11014 ~dec:(function 10981 - | "mp3" -> Mp3 10982 - | "aac" -> Aac 10983 - | "libopus" -> Libopus 10984 - | "pcm_s16le" -> Pcm_s16le 11015 + | "mp3" -> `Mp3 11016 + | "aac" -> `Aac 11017 + | "libopus" -> `Libopus 11018 + | "pcm_s16le" -> `Pcm_s16le 10985 11019 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 10986 11020 ~enc:(function 10987 - | Mp3 -> "mp3" 10988 - | Aac -> "aac" 10989 - | Libopus -> "libopus" 10990 - | Pcm_s16le -> "pcm_s16le") 11021 + | `Mp3 -> "mp3" 11022 + | `Aac -> "aac" 11023 + | `Libopus -> "libopus" 11024 + | `Pcm_s16le -> "pcm_s16le") 10991 11025 end 10992 11026 end 10993 11027 ··· 11155 11189 let op_name = "get_config" in 11156 11190 let url_path = "/system-config" in 11157 11191 let query = "" in 11158 - let url = client.Client_.base_url ^ url_path ^ query in 11192 + let url = client.base_url ^ url_path ^ query in 11159 11193 let response = 11160 - try Requests.get client.Client_.session url 11194 + try Requests.get client.session url 11161 11195 with Eio.Io _ as ex -> 11162 11196 let bt = Printexc.get_raw_backtrace () in 11163 11197 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11180 11214 let op_name = "update_config" in 11181 11215 let url_path = "/system-config" in 11182 11216 let query = "" in 11183 - let url = client.Client_.base_url ^ url_path ^ query in 11217 + let url = client.base_url ^ url_path ^ query in 11184 11218 let response = 11185 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 11219 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 11186 11220 with Eio.Io _ as ex -> 11187 11221 let bt = Printexc.get_raw_backtrace () in 11188 11222 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 11205 11239 let op_name = "get_config_defaults" in 11206 11240 let url_path = "/system-config/defaults" in 11207 11241 let query = "" in 11208 - let url = client.Client_.base_url ^ url_path ^ query in 11242 + let url = client.base_url ^ url_path ^ query in 11209 11243 let response = 11210 - try Requests.get client.Client_.session url 11244 + try Requests.get client.session url 11211 11245 with Eio.Io _ as ex -> 11212 11246 let bt = Printexc.get_raw_backtrace () in 11213 11247 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11226 11260 11227 11261 module AssetVisibility = struct 11228 11262 module T = struct 11229 - type t = 11230 - | Archive 11231 - | Timeline 11232 - | Hidden 11233 - | Locked 11263 + type t = [ 11264 + | `Archive 11265 + | `Timeline 11266 + | `Hidden 11267 + | `Locked 11268 + ] 11234 11269 11235 11270 let jsont : t Jsont.t = 11236 11271 Jsont.map Jsont.string ~kind:"AssetVisibility" 11237 11272 ~dec:(function 11238 - | "archive" -> Archive 11239 - | "timeline" -> Timeline 11240 - | "hidden" -> Hidden 11241 - | "locked" -> Locked 11273 + | "archive" -> `Archive 11274 + | "timeline" -> `Timeline 11275 + | "hidden" -> `Hidden 11276 + | "locked" -> `Locked 11242 11277 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 11243 11278 ~enc:(function 11244 - | Archive -> "archive" 11245 - | Timeline -> "timeline" 11246 - | Hidden -> "hidden" 11247 - | Locked -> "locked") 11279 + | `Archive -> "archive" 11280 + | `Timeline -> "timeline" 11281 + | `Hidden -> "hidden" 11282 + | `Locked -> "locked") 11248 11283 end 11249 11284 end 11250 11285 ··· 11336 11371 let op_name = "get_time_bucket" in 11337 11372 let url_path = "/timeline/bucket" in 11338 11373 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"albumId" ~value:album_id; Openapi.Runtime.Query.optional ~key:"isFavorite" ~value:is_favorite; Openapi.Runtime.Query.optional ~key:"isTrashed" ~value:is_trashed; Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"order" ~value:order; Openapi.Runtime.Query.optional ~key:"personId" ~value:person_id; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug; Openapi.Runtime.Query.optional ~key:"tagId" ~value:tag_id; Openapi.Runtime.Query.singleton ~key:"timeBucket" ~value:time_bucket; Openapi.Runtime.Query.optional ~key:"userId" ~value:user_id; Openapi.Runtime.Query.optional ~key:"visibility" ~value:visibility; Openapi.Runtime.Query.optional ~key:"withCoordinates" ~value:with_coordinates; Openapi.Runtime.Query.optional ~key:"withPartners" ~value:with_partners; Openapi.Runtime.Query.optional ~key:"withStacked" ~value:with_stacked]) in 11339 - let url = client.Client_.base_url ^ url_path ^ query in 11374 + let url = client.base_url ^ url_path ^ query in 11340 11375 let response = 11341 - try Requests.get client.Client_.session url 11376 + try Requests.get client.session url 11342 11377 with Eio.Io _ as ex -> 11343 11378 let bt = Printexc.get_raw_backtrace () in 11344 11379 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11357 11392 11358 11393 module AssetTypeEnum = struct 11359 11394 module T = struct 11360 - type t = 11361 - | Image 11362 - | Video 11363 - | Audio 11364 - | Other 11395 + type t = [ 11396 + | `Image 11397 + | `Video 11398 + | `Audio 11399 + | `Other 11400 + ] 11365 11401 11366 11402 let jsont : t Jsont.t = 11367 11403 Jsont.map Jsont.string ~kind:"AssetTypeEnum" 11368 11404 ~dec:(function 11369 - | "IMAGE" -> Image 11370 - | "VIDEO" -> Video 11371 - | "AUDIO" -> Audio 11372 - | "OTHER" -> Other 11405 + | "IMAGE" -> `Image 11406 + | "VIDEO" -> `Video 11407 + | "AUDIO" -> `Audio 11408 + | "OTHER" -> `Other 11373 11409 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 11374 11410 ~enc:(function 11375 - | Image -> "IMAGE" 11376 - | Video -> "VIDEO" 11377 - | Audio -> "AUDIO" 11378 - | Other -> "OTHER") 11411 + | `Image -> "IMAGE" 11412 + | `Video -> "VIDEO" 11413 + | `Audio -> "AUDIO" 11414 + | `Other -> "OTHER") 11379 11415 end 11380 11416 end 11381 11417 ··· 11410 11446 let op_name = "get_user_statistics_admin" in 11411 11447 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}/statistics" in 11412 11448 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"isFavorite" ~value:is_favorite; Openapi.Runtime.Query.optional ~key:"isTrashed" ~value:is_trashed; Openapi.Runtime.Query.optional ~key:"visibility" ~value:visibility]) in 11413 - let url = client.Client_.base_url ^ url_path ^ query in 11449 + let url = client.base_url ^ url_path ^ query in 11414 11450 let response = 11415 - try Requests.get client.Client_.session url 11451 + try Requests.get client.session url 11416 11452 with Eio.Io _ as ex -> 11417 11453 let bt = Printexc.get_raw_backtrace () in 11418 11454 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11435 11471 let op_name = "get_asset_statistics" in 11436 11472 let url_path = "/assets/statistics" in 11437 11473 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"isFavorite" ~value:is_favorite; Openapi.Runtime.Query.optional ~key:"isTrashed" ~value:is_trashed; Openapi.Runtime.Query.optional ~key:"visibility" ~value:visibility]) in 11438 - let url = client.Client_.base_url ^ url_path ^ query in 11474 + let url = client.base_url ^ url_path ^ query in 11439 11475 let response = 11440 - try Requests.get client.Client_.session url 11476 + try Requests.get client.session url 11441 11477 with Eio.Io _ as ex -> 11442 11478 let bt = Printexc.get_raw_backtrace () in 11443 11479 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11481 11517 11482 11518 module AssetOrder = struct 11483 11519 module T = struct 11484 - type t = 11485 - | Asc 11486 - | Desc 11520 + type t = [ 11521 + | `Asc 11522 + | `Desc 11523 + ] 11487 11524 11488 11525 let jsont : t Jsont.t = 11489 11526 Jsont.map Jsont.string ~kind:"AssetOrder" 11490 11527 ~dec:(function 11491 - | "asc" -> Asc 11492 - | "desc" -> Desc 11528 + | "asc" -> `Asc 11529 + | "desc" -> `Desc 11493 11530 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 11494 11531 ~enc:(function 11495 - | Asc -> "asc" 11496 - | Desc -> "desc") 11532 + | `Asc -> "asc" 11533 + | `Desc -> "desc") 11497 11534 end 11498 11535 end 11499 11536 ··· 11558 11595 let op_name = "get_asset_ocr" in 11559 11596 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/ocr" in 11560 11597 let query = "" in 11561 - let url = client.Client_.base_url ^ url_path ^ query in 11598 + let url = client.base_url ^ url_path ^ query in 11562 11599 let response = 11563 - try Requests.get client.Client_.session url 11600 + try Requests.get client.session url 11564 11601 with Eio.Io _ as ex -> 11565 11602 let bt = Printexc.get_raw_backtrace () in 11566 11603 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11649 11686 let op_name = "get_asset_metadata" in 11650 11687 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/metadata" in 11651 11688 let query = "" in 11652 - let url = client.Client_.base_url ^ url_path ^ query in 11689 + let url = client.base_url ^ url_path ^ query in 11653 11690 let response = 11654 - try Requests.get client.Client_.session url 11691 + try Requests.get client.session url 11655 11692 with Eio.Io _ as ex -> 11656 11693 let bt = Printexc.get_raw_backtrace () in 11657 11694 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11674 11711 let op_name = "update_asset_metadata" in 11675 11712 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/metadata" in 11676 11713 let query = "" in 11677 - let url = client.Client_.base_url ^ url_path ^ query in 11714 + let url = client.base_url ^ url_path ^ query in 11678 11715 let response = 11679 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetMetadataUpsert.Dto.jsont body)) url 11716 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetMetadataUpsert.Dto.jsont body)) url 11680 11717 with Eio.Io _ as ex -> 11681 11718 let bt = Printexc.get_raw_backtrace () in 11682 11719 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 11699 11736 let op_name = "get_asset_metadata_by_key" in 11700 11737 let url_path = Openapi.Runtime.Path.render ~params:[("id", id); ("key", key)] "/assets/{id}/metadata/{key}" in 11701 11738 let query = "" in 11702 - let url = client.Client_.base_url ^ url_path ^ query in 11739 + let url = client.base_url ^ url_path ^ query in 11703 11740 let response = 11704 - try Requests.get client.Client_.session url 11741 + try Requests.get client.session url 11705 11742 with Eio.Io _ as ex -> 11706 11743 let bt = Printexc.get_raw_backtrace () in 11707 11744 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 11720 11757 11721 11758 module AssetMedia = struct 11722 11759 module Status = struct 11723 - type t = 11724 - | Created 11725 - | Replaced 11726 - | Duplicate 11760 + type t = [ 11761 + | `Created 11762 + | `Replaced 11763 + | `Duplicate 11764 + ] 11727 11765 11728 11766 let jsont : t Jsont.t = 11729 11767 Jsont.map Jsont.string ~kind:"AssetMediaStatus" 11730 11768 ~dec:(function 11731 - | "created" -> Created 11732 - | "replaced" -> Replaced 11733 - | "duplicate" -> Duplicate 11769 + | "created" -> `Created 11770 + | "replaced" -> `Replaced 11771 + | "duplicate" -> `Duplicate 11734 11772 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 11735 11773 ~enc:(function 11736 - | Created -> "created" 11737 - | Replaced -> "replaced" 11738 - | Duplicate -> "duplicate") 11774 + | `Created -> "created" 11775 + | `Replaced -> "replaced" 11776 + | `Duplicate -> "duplicate") 11739 11777 end 11740 11778 11741 11779 module ResponseDto = struct ··· 11815 11853 let op_name = "upload_asset" in 11816 11854 let url_path = "/assets" in 11817 11855 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 11818 - let url = client.Client_.base_url ^ url_path ^ query in 11856 + let url = client.base_url ^ url_path ^ query in 11819 11857 let response = 11820 - try Requests.post client.Client_.session url 11858 + try Requests.post client.session url 11821 11859 with Eio.Io _ as ex -> 11822 11860 let bt = Printexc.get_raw_backtrace () in 11823 11861 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 11840 11878 let op_name = "replace_asset" in 11841 11879 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/original" in 11842 11880 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 11843 - let url = client.Client_.base_url ^ url_path ^ query in 11881 + let url = client.base_url ^ url_path ^ query in 11844 11882 let response = 11845 - try Requests.put client.Client_.session url 11883 + try Requests.put client.session url 11846 11884 with Eio.Io _ as ex -> 11847 11885 let bt = Printexc.get_raw_backtrace () in 11848 11886 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 11937 11975 let op_name = "update_bulk_asset_metadata" in 11938 11976 let url_path = "/assets/metadata" in 11939 11977 let query = "" in 11940 - let url = client.Client_.base_url ^ url_path ^ query in 11978 + let url = client.base_url ^ url_path ^ query in 11941 11979 let response = 11942 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetMetadataBulkUpsert.Dto.jsont body)) url 11980 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetMetadataBulkUpsert.Dto.jsont body)) url 11943 11981 with Eio.Io _ as ex -> 11944 11982 let bt = Printexc.get_raw_backtrace () in 11945 11983 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 11999 12037 12000 12038 module AssetMediaSize = struct 12001 12039 module T = struct 12002 - type t = 12003 - | Original 12004 - | Fullsize 12005 - | Preview 12006 - | Thumbnail 12040 + type t = [ 12041 + | `Original 12042 + | `Fullsize 12043 + | `Preview 12044 + | `Thumbnail 12045 + ] 12007 12046 12008 12047 let jsont : t Jsont.t = 12009 12048 Jsont.map Jsont.string ~kind:"AssetMediaSize" 12010 12049 ~dec:(function 12011 - | "original" -> Original 12012 - | "fullsize" -> Fullsize 12013 - | "preview" -> Preview 12014 - | "thumbnail" -> Thumbnail 12050 + | "original" -> `Original 12051 + | "fullsize" -> `Fullsize 12052 + | "preview" -> `Preview 12053 + | "thumbnail" -> `Thumbnail 12015 12054 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 12016 12055 ~enc:(function 12017 - | Original -> "original" 12018 - | Fullsize -> "fullsize" 12019 - | Preview -> "preview" 12020 - | Thumbnail -> "thumbnail") 12056 + | `Original -> "original" 12057 + | `Fullsize -> "fullsize" 12058 + | `Preview -> "preview" 12059 + | `Thumbnail -> "thumbnail") 12021 12060 end 12022 12061 end 12023 12062 ··· 12082 12121 12083 12122 module AssetJobName = struct 12084 12123 module T = struct 12085 - type t = 12086 - | Refresh_faces 12087 - | Refresh_metadata 12088 - | Regenerate_thumbnail 12089 - | Transcode_video 12124 + type t = [ 12125 + | `Refresh_faces 12126 + | `Refresh_metadata 12127 + | `Regenerate_thumbnail 12128 + | `Transcode_video 12129 + ] 12090 12130 12091 12131 let jsont : t Jsont.t = 12092 12132 Jsont.map Jsont.string ~kind:"AssetJobName" 12093 12133 ~dec:(function 12094 - | "refresh-faces" -> Refresh_faces 12095 - | "refresh-metadata" -> Refresh_metadata 12096 - | "regenerate-thumbnail" -> Regenerate_thumbnail 12097 - | "transcode-video" -> Transcode_video 12134 + | "refresh-faces" -> `Refresh_faces 12135 + | "refresh-metadata" -> `Refresh_metadata 12136 + | "regenerate-thumbnail" -> `Regenerate_thumbnail 12137 + | "transcode-video" -> `Transcode_video 12098 12138 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 12099 12139 ~enc:(function 12100 - | Refresh_faces -> "refresh-faces" 12101 - | Refresh_metadata -> "refresh-metadata" 12102 - | Regenerate_thumbnail -> "regenerate-thumbnail" 12103 - | Transcode_video -> "transcode-video") 12140 + | `Refresh_faces -> "refresh-faces" 12141 + | `Refresh_metadata -> "refresh-metadata" 12142 + | `Regenerate_thumbnail -> "regenerate-thumbnail" 12143 + | `Transcode_video -> "transcode-video") 12104 12144 end 12105 12145 end 12106 12146 ··· 12152 12192 let op_name = "add_shared_link_assets" in 12153 12193 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/shared-links/{id}/assets" in 12154 12194 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 12155 - let url = client.Client_.base_url ^ url_path ^ query in 12195 + let url = client.base_url ^ url_path ^ query in 12156 12196 let response = 12157 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 12197 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 12158 12198 with Eio.Io _ as ex -> 12159 12199 let bt = Printexc.get_raw_backtrace () in 12160 12200 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 12177 12217 let op_name = "remove_shared_link_assets" in 12178 12218 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/shared-links/{id}/assets" in 12179 12219 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 12180 - let url = client.Client_.base_url ^ url_path ^ query in 12220 + let url = client.base_url ^ url_path ^ query in 12181 12221 let response = 12182 - try Requests.delete client.Client_.session url 12222 + try Requests.delete client.session url 12183 12223 with Eio.Io _ as ex -> 12184 12224 let bt = Printexc.get_raw_backtrace () in 12185 12225 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 12434 12474 let op_name = "get_random" in 12435 12475 let url_path = "/assets/random" in 12436 12476 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"count" ~value:count]) in 12437 - let url = client.Client_.base_url ^ url_path ^ query in 12477 + let url = client.base_url ^ url_path ^ query in 12438 12478 let response = 12439 - try Requests.get client.Client_.session url 12479 + try Requests.get client.session url 12440 12480 with Eio.Io _ as ex -> 12441 12481 let bt = Printexc.get_raw_backtrace () in 12442 12482 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 12459 12499 let op_name = "get_asset_info" in 12460 12500 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}" in 12461 12501 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 12462 - let url = client.Client_.base_url ^ url_path ^ query in 12502 + let url = client.base_url ^ url_path ^ query in 12463 12503 let response = 12464 - try Requests.get client.Client_.session url 12504 + try Requests.get client.session url 12465 12505 with Eio.Io _ as ex -> 12466 12506 let bt = Printexc.get_raw_backtrace () in 12467 12507 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 12484 12524 let op_name = "update_asset" in 12485 12525 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}" in 12486 12526 let query = "" in 12487 - let url = client.Client_.base_url ^ url_path ^ query in 12527 + let url = client.base_url ^ url_path ^ query in 12488 12528 let response = 12489 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateAsset.Dto.jsont body)) url 12529 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateAsset.Dto.jsont body)) url 12490 12530 with Eio.Io _ as ex -> 12491 12531 let bt = Printexc.get_raw_backtrace () in 12492 12532 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 12509 12549 let op_name = "get_assets_by_city" in 12510 12550 let url_path = "/search/cities" in 12511 12551 let query = "" in 12512 - let url = client.Client_.base_url ^ url_path ^ query in 12552 + let url = client.base_url ^ url_path ^ query in 12513 12553 let response = 12514 - try Requests.get client.Client_.session url 12554 + try Requests.get client.session url 12515 12555 with Eio.Io _ as ex -> 12516 12556 let bt = Printexc.get_raw_backtrace () in 12517 12557 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 12534 12574 let op_name = "search_large_assets" in 12535 12575 let url_path = "/search/large-assets" in 12536 12576 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"albumIds" ~value:album_ids; Openapi.Runtime.Query.optional ~key:"city" ~value:city; Openapi.Runtime.Query.optional ~key:"country" ~value:country; Openapi.Runtime.Query.optional ~key:"createdAfter" ~value:created_after; Openapi.Runtime.Query.optional ~key:"createdBefore" ~value:created_before; Openapi.Runtime.Query.optional ~key:"deviceId" ~value:device_id; Openapi.Runtime.Query.optional ~key:"isEncoded" ~value:is_encoded; Openapi.Runtime.Query.optional ~key:"isFavorite" ~value:is_favorite; Openapi.Runtime.Query.optional ~key:"isMotion" ~value:is_motion; Openapi.Runtime.Query.optional ~key:"isNotInAlbum" ~value:is_not_in_album; Openapi.Runtime.Query.optional ~key:"isOffline" ~value:is_offline; Openapi.Runtime.Query.optional ~key:"lensModel" ~value:lens_model; Openapi.Runtime.Query.optional ~key:"libraryId" ~value:library_id; Openapi.Runtime.Query.optional ~key:"make" ~value:make; Openapi.Runtime.Query.optional ~key:"minFileSize" ~value:min_file_size; Openapi.Runtime.Query.optional ~key:"model" ~value:model; Openapi.Runtime.Query.optional ~key:"ocr" ~value:ocr; Openapi.Runtime.Query.optional ~key:"personIds" ~value:person_ids; Openapi.Runtime.Query.optional ~key:"rating" ~value:rating; Openapi.Runtime.Query.optional ~key:"size" ~value:size; Openapi.Runtime.Query.optional ~key:"state" ~value:state; Openapi.Runtime.Query.optional ~key:"tagIds" ~value:tag_ids; Openapi.Runtime.Query.optional ~key:"takenAfter" ~value:taken_after; Openapi.Runtime.Query.optional ~key:"takenBefore" ~value:taken_before; Openapi.Runtime.Query.optional ~key:"trashedAfter" ~value:trashed_after; Openapi.Runtime.Query.optional ~key:"trashedBefore" ~value:trashed_before; Openapi.Runtime.Query.optional ~key:"type" ~value:type_; Openapi.Runtime.Query.optional ~key:"updatedAfter" ~value:updated_after; Openapi.Runtime.Query.optional ~key:"updatedBefore" ~value:updated_before; Openapi.Runtime.Query.optional ~key:"visibility" ~value:visibility; Openapi.Runtime.Query.optional ~key:"withDeleted" ~value:with_deleted; Openapi.Runtime.Query.optional ~key:"withExif" ~value:with_exif]) in 12537 - let url = client.Client_.base_url ^ url_path ^ query in 12577 + let url = client.base_url ^ url_path ^ query in 12538 12578 let response = 12539 - try Requests.post client.Client_.session url 12579 + try Requests.post client.session url 12540 12580 with Eio.Io _ as ex -> 12541 12581 let bt = Printexc.get_raw_backtrace () in 12542 12582 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 12559 12599 let op_name = "search_random" in 12560 12600 let url_path = "/search/random" in 12561 12601 let query = "" in 12562 - let url = client.Client_.base_url ^ url_path ^ query in 12602 + let url = client.base_url ^ url_path ^ query in 12563 12603 let response = 12564 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json RandomSearch.Dto.jsont body)) url 12604 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json RandomSearch.Dto.jsont body)) url 12565 12605 with Eio.Io _ as ex -> 12566 12606 let bt = Printexc.get_raw_backtrace () in 12567 12607 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 12584 12624 let op_name = "get_full_sync_for_user" in 12585 12625 let url_path = "/sync/full-sync" in 12586 12626 let query = "" in 12587 - let url = client.Client_.base_url ^ url_path ^ query in 12627 + let url = client.base_url ^ url_path ^ query in 12588 12628 let response = 12589 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetFullSync.Dto.jsont body)) url 12629 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetFullSync.Dto.jsont body)) url 12590 12630 with Eio.Io _ as ex -> 12591 12631 let bt = Printexc.get_raw_backtrace () in 12592 12632 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 12609 12649 let op_name = "get_assets_by_original_path" in 12610 12650 let url_path = "/view/folder" in 12611 12651 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"path" ~value:path]) in 12612 - let url = client.Client_.base_url ^ url_path ^ query in 12652 + let url = client.base_url ^ url_path ^ query in 12613 12653 let response = 12614 - try Requests.get client.Client_.session url 12654 + try Requests.get client.session url 12615 12655 with Eio.Io _ as ex -> 12616 12656 let bt = Printexc.get_raw_backtrace () in 12617 12657 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 12693 12733 let op_name = "search_stacks" in 12694 12734 let url_path = "/stacks" in 12695 12735 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"primaryAssetId" ~value:primary_asset_id]) in 12696 - let url = client.Client_.base_url ^ url_path ^ query in 12736 + let url = client.base_url ^ url_path ^ query in 12697 12737 let response = 12698 - try Requests.get client.Client_.session url 12738 + try Requests.get client.session url 12699 12739 with Eio.Io _ as ex -> 12700 12740 let bt = Printexc.get_raw_backtrace () in 12701 12741 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 12718 12758 let op_name = "create_stack" in 12719 12759 let url_path = "/stacks" in 12720 12760 let query = "" in 12721 - let url = client.Client_.base_url ^ url_path ^ query in 12761 + let url = client.base_url ^ url_path ^ query in 12722 12762 let response = 12723 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 12763 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 12724 12764 with Eio.Io _ as ex -> 12725 12765 let bt = Printexc.get_raw_backtrace () in 12726 12766 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 12743 12783 let op_name = "get_stack" in 12744 12784 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/stacks/{id}" in 12745 12785 let query = "" in 12746 - let url = client.Client_.base_url ^ url_path ^ query in 12786 + let url = client.base_url ^ url_path ^ query in 12747 12787 let response = 12748 - try Requests.get client.Client_.session url 12788 + try Requests.get client.session url 12749 12789 with Eio.Io _ as ex -> 12750 12790 let bt = Printexc.get_raw_backtrace () in 12751 12791 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 12768 12808 let op_name = "update_stack" in 12769 12809 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/stacks/{id}" in 12770 12810 let query = "" in 12771 - let url = client.Client_.base_url ^ url_path ^ query in 12811 + let url = client.base_url ^ url_path ^ query in 12772 12812 let response = 12773 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 12813 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 12774 12814 with Eio.Io _ as ex -> 12775 12815 let bt = Printexc.get_raw_backtrace () in 12776 12816 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 12835 12875 let op_name = "get_explore_data" in 12836 12876 let url_path = "/search/explore" in 12837 12877 let query = "" in 12838 - let url = client.Client_.base_url ^ url_path ^ query in 12878 + let url = client.base_url ^ url_path ^ query in 12839 12879 let response = 12840 - try Requests.get client.Client_.session url 12880 + try Requests.get client.session url 12841 12881 with Eio.Io _ as ex -> 12842 12882 let bt = Printexc.get_raw_backtrace () in 12843 12883 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 12910 12950 end 12911 12951 12912 12952 module Type = struct 12913 - type t = 12914 - | On_this_day 12953 + type t = [ 12954 + | `On_this_day 12955 + ] 12915 12956 12916 12957 let jsont : t Jsont.t = 12917 12958 Jsont.map Jsont.string ~kind:"MemoryType" 12918 12959 ~dec:(function 12919 - | "on_this_day" -> On_this_day 12960 + | "on_this_day" -> `On_this_day 12920 12961 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 12921 12962 ~enc:(function 12922 - | On_this_day -> "on_this_day") 12963 + | `On_this_day -> "on_this_day") 12923 12964 end 12924 12965 12925 12966 module ResponseDto = struct ··· 13015 13056 let op_name = "search_memories" in 13016 13057 let url_path = "/memories" in 13017 13058 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"for" ~value:for_; Openapi.Runtime.Query.optional ~key:"isSaved" ~value:is_saved; Openapi.Runtime.Query.optional ~key:"isTrashed" ~value:is_trashed; Openapi.Runtime.Query.optional ~key:"order" ~value:order; Openapi.Runtime.Query.optional ~key:"size" ~value:size; Openapi.Runtime.Query.optional ~key:"type" ~value:type_]) in 13018 - let url = client.Client_.base_url ^ url_path ^ query in 13059 + let url = client.base_url ^ url_path ^ query in 13019 13060 let response = 13020 - try Requests.get client.Client_.session url 13061 + try Requests.get client.session url 13021 13062 with Eio.Io _ as ex -> 13022 13063 let bt = Printexc.get_raw_backtrace () in 13023 13064 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 13040 13081 let op_name = "create_memory" in 13041 13082 let url_path = "/memories" in 13042 13083 let query = "" in 13043 - let url = client.Client_.base_url ^ url_path ^ query in 13084 + let url = client.base_url ^ url_path ^ query in 13044 13085 let response = 13045 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 13086 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 13046 13087 with Eio.Io _ as ex -> 13047 13088 let bt = Printexc.get_raw_backtrace () in 13048 13089 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 13065 13106 let op_name = "get_memory" in 13066 13107 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/memories/{id}" in 13067 13108 let query = "" in 13068 - let url = client.Client_.base_url ^ url_path ^ query in 13109 + let url = client.base_url ^ url_path ^ query in 13069 13110 let response = 13070 - try Requests.get client.Client_.session url 13111 + try Requests.get client.session url 13071 13112 with Eio.Io _ as ex -> 13072 13113 let bt = Printexc.get_raw_backtrace () in 13073 13114 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 13090 13131 let op_name = "update_memory" in 13091 13132 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/memories/{id}" in 13092 13133 let query = "" in 13093 - let url = client.Client_.base_url ^ url_path ^ query in 13134 + let url = client.base_url ^ url_path ^ query in 13094 13135 let response = 13095 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 13136 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 13096 13137 with Eio.Io _ as ex -> 13097 13138 let bt = Printexc.get_raw_backtrace () in 13098 13139 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13137 13178 let op_name = "get_asset_duplicates" in 13138 13179 let url_path = "/duplicates" in 13139 13180 let query = "" in 13140 - let url = client.Client_.base_url ^ url_path ^ query in 13181 + let url = client.base_url ^ url_path ^ query in 13141 13182 let response = 13142 - try Requests.get client.Client_.session url 13183 + try Requests.get client.session url 13143 13184 with Eio.Io _ as ex -> 13144 13185 let bt = Printexc.get_raw_backtrace () in 13145 13186 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 13207 13248 let op_name = "get_delta_sync" in 13208 13249 let url_path = "/sync/delta-sync" in 13209 13250 let query = "" in 13210 - let url = client.Client_.base_url ^ url_path ^ query in 13251 + let url = client.base_url ^ url_path ^ query in 13211 13252 let response = 13212 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 13253 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 13213 13254 with Eio.Io _ as ex -> 13214 13255 let bt = Printexc.get_raw_backtrace () in 13215 13256 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 13353 13394 let op_name = "get_faces" in 13354 13395 let url_path = "/faces" in 13355 13396 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"id" ~value:id]) in 13356 - let url = client.Client_.base_url ^ url_path ^ query in 13397 + let url = client.base_url ^ url_path ^ query in 13357 13398 let response = 13358 - try Requests.get client.Client_.session url 13399 + try Requests.get client.session url 13359 13400 with Eio.Io _ as ex -> 13360 13401 let bt = Printexc.get_raw_backtrace () in 13361 13402 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 13481 13522 let op_name = "reassign_faces_by_id" in 13482 13523 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/faces/{id}" in 13483 13524 let query = "" in 13484 - let url = client.Client_.base_url ^ url_path ^ query in 13525 + let url = client.base_url ^ url_path ^ query in 13485 13526 let response = 13486 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Face.Dto.jsont body)) url 13527 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Face.Dto.jsont body)) url 13487 13528 with Eio.Io _ as ex -> 13488 13529 let bt = Printexc.get_raw_backtrace () in 13489 13530 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13506 13547 let op_name = "create_person" in 13507 13548 let url_path = "/people" in 13508 13549 let query = "" in 13509 - let url = client.Client_.base_url ^ url_path ^ query in 13550 + let url = client.base_url ^ url_path ^ query in 13510 13551 let response = 13511 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 13552 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 13512 13553 with Eio.Io _ as ex -> 13513 13554 let bt = Printexc.get_raw_backtrace () in 13514 13555 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 13531 13572 let op_name = "get_person" in 13532 13573 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/people/{id}" in 13533 13574 let query = "" in 13534 - let url = client.Client_.base_url ^ url_path ^ query in 13575 + let url = client.base_url ^ url_path ^ query in 13535 13576 let response = 13536 - try Requests.get client.Client_.session url 13577 + try Requests.get client.session url 13537 13578 with Eio.Io _ as ex -> 13538 13579 let bt = Printexc.get_raw_backtrace () in 13539 13580 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 13556 13597 let op_name = "update_person" in 13557 13598 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/people/{id}" in 13558 13599 let query = "" in 13559 - let url = client.Client_.base_url ^ url_path ^ query in 13600 + let url = client.base_url ^ url_path ^ query in 13560 13601 let response = 13561 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 13602 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 13562 13603 with Eio.Io _ as ex -> 13563 13604 let bt = Printexc.get_raw_backtrace () in 13564 13605 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13581 13622 let op_name = "reassign_faces" in 13582 13623 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/people/{id}/reassign" in 13583 13624 let query = "" in 13584 - let url = client.Client_.base_url ^ url_path ^ query in 13625 + let url = client.base_url ^ url_path ^ query in 13585 13626 let response = 13586 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetFace.UpdateDto.jsont body)) url 13627 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetFace.UpdateDto.jsont body)) url 13587 13628 with Eio.Io _ as ex -> 13588 13629 let bt = Printexc.get_raw_backtrace () in 13589 13630 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13606 13647 let op_name = "search_person" in 13607 13648 let url_path = "/search/person" in 13608 13649 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"name" ~value:name; Openapi.Runtime.Query.optional ~key:"withHidden" ~value:with_hidden]) in 13609 - let url = client.Client_.base_url ^ url_path ^ query in 13650 + let url = client.base_url ^ url_path ^ query in 13610 13651 let response = 13611 - try Requests.get client.Client_.session url 13652 + try Requests.get client.session url 13612 13653 with Eio.Io _ as ex -> 13613 13654 let bt = Printexc.get_raw_backtrace () in 13614 13655 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 13718 13759 let op_name = "get_all_people" in 13719 13760 let url_path = "/people" in 13720 13761 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"closestAssetId" ~value:closest_asset_id; Openapi.Runtime.Query.optional ~key:"closestPersonId" ~value:closest_person_id; Openapi.Runtime.Query.optional ~key:"page" ~value:page; Openapi.Runtime.Query.optional ~key:"size" ~value:size; Openapi.Runtime.Query.optional ~key:"withHidden" ~value:with_hidden]) in 13721 - let url = client.Client_.base_url ^ url_path ^ query in 13762 + let url = client.base_url ^ url_path ^ query in 13722 13763 let response = 13723 - try Requests.get client.Client_.session url 13764 + try Requests.get client.session url 13724 13765 with Eio.Io _ as ex -> 13725 13766 let bt = Printexc.get_raw_backtrace () in 13726 13767 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 13768 13809 let op_name = "add_assets_to_album" in 13769 13810 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/albums/{id}/assets" in 13770 13811 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 13771 - let url = client.Client_.base_url ^ url_path ^ query in 13812 + let url = client.base_url ^ url_path ^ query in 13772 13813 let response = 13773 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 13814 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 13774 13815 with Eio.Io _ as ex -> 13775 13816 let bt = Printexc.get_raw_backtrace () in 13776 13817 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13793 13834 let op_name = "remove_asset_from_album" in 13794 13835 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/albums/{id}/assets" in 13795 13836 let query = "" in 13796 - let url = client.Client_.base_url ^ url_path ^ query in 13837 + let url = client.base_url ^ url_path ^ query in 13797 13838 let response = 13798 - try Requests.delete client.Client_.session url 13839 + try Requests.delete client.session url 13799 13840 with Eio.Io _ as ex -> 13800 13841 let bt = Printexc.get_raw_backtrace () in 13801 13842 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 13818 13859 let op_name = "add_memory_assets" in 13819 13860 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/memories/{id}/assets" in 13820 13861 let query = "" in 13821 - let url = client.Client_.base_url ^ url_path ^ query in 13862 + let url = client.base_url ^ url_path ^ query in 13822 13863 let response = 13823 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 13864 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 13824 13865 with Eio.Io _ as ex -> 13825 13866 let bt = Printexc.get_raw_backtrace () in 13826 13867 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13843 13884 let op_name = "remove_memory_assets" in 13844 13885 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/memories/{id}/assets" in 13845 13886 let query = "" in 13846 - let url = client.Client_.base_url ^ url_path ^ query in 13887 + let url = client.base_url ^ url_path ^ query in 13847 13888 let response = 13848 - try Requests.delete client.Client_.session url 13889 + try Requests.delete client.session url 13849 13890 with Eio.Io _ as ex -> 13850 13891 let bt = Printexc.get_raw_backtrace () in 13851 13892 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 13868 13909 let op_name = "update_people" in 13869 13910 let url_path = "/people" in 13870 13911 let query = "" in 13871 - let url = client.Client_.base_url ^ url_path ^ query in 13912 + let url = client.base_url ^ url_path ^ query in 13872 13913 let response = 13873 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json People.UpdateDto.jsont body)) url 13914 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json People.UpdateDto.jsont body)) url 13874 13915 with Eio.Io _ as ex -> 13875 13916 let bt = Printexc.get_raw_backtrace () in 13876 13917 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13893 13934 let op_name = "merge_person" in 13894 13935 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/people/{id}/merge" in 13895 13936 let query = "" in 13896 - let url = client.Client_.base_url ^ url_path ^ query in 13937 + let url = client.base_url ^ url_path ^ query in 13897 13938 let response = 13898 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json MergePerson.Dto.jsont body)) url 13939 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json MergePerson.Dto.jsont body)) url 13899 13940 with Eio.Io _ as ex -> 13900 13941 let bt = Printexc.get_raw_backtrace () in 13901 13942 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 13918 13959 let op_name = "tag_assets" in 13919 13960 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/tags/{id}/assets" in 13920 13961 let query = "" in 13921 - let url = client.Client_.base_url ^ url_path ^ query in 13962 + let url = client.base_url ^ url_path ^ query in 13922 13963 let response = 13923 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 13964 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json BulkIds.Dto.jsont body)) url 13924 13965 with Eio.Io _ as ex -> 13925 13966 let bt = Printexc.get_raw_backtrace () in 13926 13967 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 13943 13984 let op_name = "untag_assets" in 13944 13985 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/tags/{id}/assets" in 13945 13986 let query = "" in 13946 - let url = client.Client_.base_url ^ url_path ^ query in 13987 + let url = client.base_url ^ url_path ^ query in 13947 13988 let response = 13948 - try Requests.delete client.Client_.session url 13989 + try Requests.delete client.session url 13949 13990 with Eio.Io _ as ex -> 13950 13991 let bt = Printexc.get_raw_backtrace () in 13951 13992 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 14028 14069 let op_name = "get_asset_edits" in 14029 14070 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/edits" in 14030 14071 let query = "" in 14031 - let url = client.Client_.base_url ^ url_path ^ query in 14072 + let url = client.base_url ^ url_path ^ query in 14032 14073 let response = 14033 - try Requests.get client.Client_.session url 14074 + try Requests.get client.session url 14034 14075 with Eio.Io _ as ex -> 14035 14076 let bt = Printexc.get_raw_backtrace () in 14036 14077 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 14053 14094 let op_name = "edit_asset" in 14054 14095 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/edits" in 14055 14096 let query = "" in 14056 - let url = client.Client_.base_url ^ url_path ^ query in 14097 + let url = client.base_url ^ url_path ^ query in 14057 14098 let response = 14058 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetEditActionList.Dto.jsont body)) url 14099 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetEditActionList.Dto.jsont body)) url 14059 14100 with Eio.Io _ as ex -> 14060 14101 let bt = Printexc.get_raw_backtrace () in 14061 14102 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 14074 14115 14075 14116 module AssetEditAction = struct 14076 14117 module T = struct 14077 - type t = 14078 - | Crop 14079 - | Rotate 14080 - | Mirror 14118 + type t = [ 14119 + | `Crop 14120 + | `Rotate 14121 + | `Mirror 14122 + ] 14081 14123 14082 14124 let jsont : t Jsont.t = 14083 14125 Jsont.map Jsont.string ~kind:"AssetEditAction" 14084 14126 ~dec:(function 14085 - | "crop" -> Crop 14086 - | "rotate" -> Rotate 14087 - | "mirror" -> Mirror 14127 + | "crop" -> `Crop 14128 + | "rotate" -> `Rotate 14129 + | "mirror" -> `Mirror 14088 14130 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 14089 14131 ~enc:(function 14090 - | Crop -> "crop" 14091 - | Rotate -> "rotate" 14092 - | Mirror -> "mirror") 14132 + | `Crop -> "crop" 14133 + | `Rotate -> "rotate" 14134 + | `Mirror -> "mirror") 14093 14135 end 14094 14136 end 14095 14137 ··· 14221 14263 let op_name = "check_bulk_upload" in 14222 14264 let url_path = "/assets/bulk-upload-check" in 14223 14265 let query = "" in 14224 - let url = client.Client_.base_url ^ url_path ^ query in 14266 + let url = client.base_url ^ url_path ^ query in 14225 14267 let response = 14226 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 14268 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 14227 14269 with Eio.Io _ as ex -> 14228 14270 let bt = Printexc.get_raw_backtrace () in 14229 14271 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 14359 14401 let op_name = "add_assets_to_albums" in 14360 14402 let url_path = "/albums/assets" in 14361 14403 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 14362 - let url = client.Client_.base_url ^ url_path ^ query in 14404 + let url = client.base_url ^ url_path ^ query in 14363 14405 let response = 14364 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 14406 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Dto.jsont body)) url 14365 14407 with Eio.Io _ as ex -> 14366 14408 let bt = Printexc.get_raw_backtrace () in 14367 14409 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 14519 14561 let op_name = "get_user_preferences_admin" in 14520 14562 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}/preferences" in 14521 14563 let query = "" in 14522 - let url = client.Client_.base_url ^ url_path ^ query in 14564 + let url = client.base_url ^ url_path ^ query in 14523 14565 let response = 14524 - try Requests.get client.Client_.session url 14566 + try Requests.get client.session url 14525 14567 with Eio.Io _ as ex -> 14526 14568 let bt = Printexc.get_raw_backtrace () in 14527 14569 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 14544 14586 let op_name = "update_user_preferences_admin" in 14545 14587 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/admin/users/{id}/preferences" in 14546 14588 let query = "" in 14547 - let url = client.Client_.base_url ^ url_path ^ query in 14589 + let url = client.base_url ^ url_path ^ query in 14548 14590 let response = 14549 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 14591 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 14550 14592 with Eio.Io _ as ex -> 14551 14593 let bt = Printexc.get_raw_backtrace () in 14552 14594 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 14569 14611 let op_name = "get_my_preferences" in 14570 14612 let url_path = "/users/me/preferences" in 14571 14613 let query = "" in 14572 - let url = client.Client_.base_url ^ url_path ^ query in 14614 + let url = client.base_url ^ url_path ^ query in 14573 14615 let response = 14574 - try Requests.get client.Client_.session url 14616 + try Requests.get client.session url 14575 14617 with Eio.Io _ as ex -> 14576 14618 let bt = Printexc.get_raw_backtrace () in 14577 14619 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 14594 14636 let op_name = "update_my_preferences" in 14595 14637 let url_path = "/users/me/preferences" in 14596 14638 let query = "" in 14597 - let url = client.Client_.base_url ^ url_path ^ query in 14639 + let url = client.base_url ^ url_path ^ query in 14598 14640 let response = 14599 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 14641 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateDto.jsont body)) url 14600 14642 with Eio.Io _ as ex -> 14601 14643 let bt = Printexc.get_raw_backtrace () in 14602 14644 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 14615 14657 14616 14658 module AlbumUserRole = struct 14617 14659 module T = struct 14618 - type t = 14619 - | Editor 14620 - | Viewer 14660 + type t = [ 14661 + | `Editor 14662 + | `Viewer 14663 + ] 14621 14664 14622 14665 let jsont : t Jsont.t = 14623 14666 Jsont.map Jsont.string ~kind:"AlbumUserRole" 14624 14667 ~dec:(function 14625 - | "editor" -> Editor 14626 - | "viewer" -> Viewer 14668 + | "editor" -> `Editor 14669 + | "viewer" -> `Viewer 14627 14670 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 14628 14671 ~enc:(function 14629 - | Editor -> "editor" 14630 - | Viewer -> "viewer") 14672 + | `Editor -> "editor" 14673 + | `Viewer -> "viewer") 14631 14674 end 14632 14675 end 14633 14676 ··· 14754 14797 let op_name = "get_all_albums" in 14755 14798 let url_path = "/albums" in 14756 14799 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"assetId" ~value:asset_id; Openapi.Runtime.Query.optional ~key:"shared" ~value:shared]) in 14757 - let url = client.Client_.base_url ^ url_path ^ query in 14800 + let url = client.base_url ^ url_path ^ query in 14758 14801 let response = 14759 - try Requests.get client.Client_.session url 14802 + try Requests.get client.session url 14760 14803 with Eio.Io _ as ex -> 14761 14804 let bt = Printexc.get_raw_backtrace () in 14762 14805 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 14779 14822 let op_name = "create_album" in 14780 14823 let url_path = "/albums" in 14781 14824 let query = "" in 14782 - let url = client.Client_.base_url ^ url_path ^ query in 14825 + let url = client.base_url ^ url_path ^ query in 14783 14826 let response = 14784 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateAlbum.Dto.jsont body)) url 14827 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateAlbum.Dto.jsont body)) url 14785 14828 with Eio.Io _ as ex -> 14786 14829 let bt = Printexc.get_raw_backtrace () in 14787 14830 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 14804 14847 let op_name = "get_album_info" in 14805 14848 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/albums/{id}" in 14806 14849 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug; Openapi.Runtime.Query.optional ~key:"withoutAssets" ~value:without_assets]) in 14807 - let url = client.Client_.base_url ^ url_path ^ query in 14850 + let url = client.base_url ^ url_path ^ query in 14808 14851 let response = 14809 - try Requests.get client.Client_.session url 14852 + try Requests.get client.session url 14810 14853 with Eio.Io _ as ex -> 14811 14854 let bt = Printexc.get_raw_backtrace () in 14812 14855 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 14829 14872 let op_name = "update_album_info" in 14830 14873 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/albums/{id}" in 14831 14874 let query = "" in 14832 - let url = client.Client_.base_url ^ url_path ^ query in 14875 + let url = client.base_url ^ url_path ^ query in 14833 14876 let response = 14834 - try Requests.patch client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateAlbum.Dto.jsont body)) url 14877 + try Requests.patch client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateAlbum.Dto.jsont body)) url 14835 14878 with Eio.Io _ as ex -> 14836 14879 let bt = Printexc.get_raw_backtrace () in 14837 14880 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PATCH" url ··· 14854 14897 let op_name = "add_users_to_album" in 14855 14898 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/albums/{id}/users" in 14856 14899 let query = "" in 14857 - let url = client.Client_.base_url ^ url_path ^ query in 14900 + let url = client.base_url ^ url_path ^ query in 14858 14901 let response = 14859 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AddUsers.Dto.jsont body)) url 14902 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AddUsers.Dto.jsont body)) url 14860 14903 with Eio.Io _ as ex -> 14861 14904 let bt = Printexc.get_raw_backtrace () in 14862 14905 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 14875 14918 14876 14919 module SharedLink = struct 14877 14920 module Type = struct 14878 - type t = 14879 - | Album 14880 - | Individual 14921 + type t = [ 14922 + | `Album 14923 + | `Individual 14924 + ] 14881 14925 14882 14926 let jsont : t Jsont.t = 14883 14927 Jsont.map Jsont.string ~kind:"SharedLinkType" 14884 14928 ~dec:(function 14885 - | "ALBUM" -> Album 14886 - | "INDIVIDUAL" -> Individual 14929 + | "ALBUM" -> `Album 14930 + | "INDIVIDUAL" -> `Individual 14887 14931 | s -> Jsont.Error.msgf Jsont.Meta.none "Unknown value: %s" s) 14888 14932 ~enc:(function 14889 - | Album -> "ALBUM" 14890 - | Individual -> "INDIVIDUAL") 14933 + | `Album -> "ALBUM" 14934 + | `Individual -> "INDIVIDUAL") 14891 14935 end 14892 14936 14893 14937 module ResponseDto = struct ··· 15000 15044 let op_name = "get_all_shared_links" in 15001 15045 let url_path = "/shared-links" in 15002 15046 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"albumId" ~value:album_id; Openapi.Runtime.Query.optional ~key:"id" ~value:id]) in 15003 - let url = client.Client_.base_url ^ url_path ^ query in 15047 + let url = client.base_url ^ url_path ^ query in 15004 15048 let response = 15005 - try Requests.get client.Client_.session url 15049 + try Requests.get client.session url 15006 15050 with Eio.Io _ as ex -> 15007 15051 let bt = Printexc.get_raw_backtrace () in 15008 15052 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15025 15069 let op_name = "create_shared_link" in 15026 15070 let url_path = "/shared-links" in 15027 15071 let query = "" in 15028 - let url = client.Client_.base_url ^ url_path ^ query in 15072 + let url = client.base_url ^ url_path ^ query in 15029 15073 let response = 15030 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 15074 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json CreateDto.jsont body)) url 15031 15075 with Eio.Io _ as ex -> 15032 15076 let bt = Printexc.get_raw_backtrace () in 15033 15077 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15050 15094 let op_name = "get_my_shared_link" in 15051 15095 let url_path = "/shared-links/me" in 15052 15096 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"password" ~value:password; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug; Openapi.Runtime.Query.optional ~key:"token" ~value:token]) in 15053 - let url = client.Client_.base_url ^ url_path ^ query in 15097 + let url = client.base_url ^ url_path ^ query in 15054 15098 let response = 15055 - try Requests.get client.Client_.session url 15099 + try Requests.get client.session url 15056 15100 with Eio.Io _ as ex -> 15057 15101 let bt = Printexc.get_raw_backtrace () in 15058 15102 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15075 15119 let op_name = "get_shared_link_by_id" in 15076 15120 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/shared-links/{id}" in 15077 15121 let query = "" in 15078 - let url = client.Client_.base_url ^ url_path ^ query in 15122 + let url = client.base_url ^ url_path ^ query in 15079 15123 let response = 15080 - try Requests.get client.Client_.session url 15124 + try Requests.get client.session url 15081 15125 with Eio.Io _ as ex -> 15082 15126 let bt = Printexc.get_raw_backtrace () in 15083 15127 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15100 15144 let op_name = "update_shared_link" in 15101 15145 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/shared-links/{id}" in 15102 15146 let query = "" in 15103 - let url = client.Client_.base_url ^ url_path ^ query in 15147 + let url = client.base_url ^ url_path ^ query in 15104 15148 let response = 15105 - try Requests.patch client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SharedLinkEdit.Dto.jsont body)) url 15149 + try Requests.patch client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SharedLinkEdit.Dto.jsont body)) url 15106 15150 with Eio.Io _ as ex -> 15107 15151 let bt = Printexc.get_raw_backtrace () in 15108 15152 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PATCH" url ··· 15175 15219 let op_name = "search_assets" in 15176 15220 let url_path = "/search/metadata" in 15177 15221 let query = "" in 15178 - let url = client.Client_.base_url ^ url_path ^ query in 15222 + let url = client.base_url ^ url_path ^ query in 15179 15223 let response = 15180 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json MetadataSearch.Dto.jsont body)) url 15224 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json MetadataSearch.Dto.jsont body)) url 15181 15225 with Eio.Io _ as ex -> 15182 15226 let bt = Printexc.get_raw_backtrace () in 15183 15227 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15200 15244 let op_name = "search_smart" in 15201 15245 let url_path = "/search/smart" in 15202 15246 let query = "" in 15203 - let url = client.Client_.base_url ^ url_path ^ query in 15247 + let url = client.base_url ^ url_path ^ query in 15204 15248 let response = 15205 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SmartSearch.Dto.jsont body)) url 15249 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SmartSearch.Dto.jsont body)) url 15206 15250 with Eio.Io _ as ex -> 15207 15251 let bt = Printexc.get_raw_backtrace () in 15208 15252 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15250 15294 let op_name = "get_album_statistics" in 15251 15295 let url_path = "/albums/statistics" in 15252 15296 let query = "" in 15253 - let url = client.Client_.base_url ^ url_path ^ query in 15297 + let url = client.base_url ^ url_path ^ query in 15254 15298 let response = 15255 - try Requests.get client.Client_.session url 15299 + try Requests.get client.session url 15256 15300 with Eio.Io _ as ex -> 15257 15301 let bt = Printexc.get_raw_backtrace () in 15258 15302 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15294 15338 let op_name = "get_admin_onboarding" in 15295 15339 let url_path = "/system-metadata/admin-onboarding" in 15296 15340 let query = "" in 15297 - let url = client.Client_.base_url ^ url_path ^ query in 15341 + let url = client.base_url ^ url_path ^ query in 15298 15342 let response = 15299 - try Requests.get client.Client_.session url 15343 + try Requests.get client.session url 15300 15344 with Eio.Io _ as ex -> 15301 15345 let bt = Printexc.get_raw_backtrace () in 15302 15346 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15321 15365 let op_name = "delete_activity" in 15322 15366 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/activities/{id}" in 15323 15367 let query = "" in 15324 - let url = client.Client_.base_url ^ url_path ^ query in 15368 + let url = client.base_url ^ url_path ^ query in 15325 15369 let response = 15326 - try Requests.delete client.Client_.session url 15370 + try Requests.delete client.session url 15327 15371 with Eio.Io _ as ex -> 15328 15372 let bt = Printexc.get_raw_backtrace () in 15329 15373 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15346 15390 let op_name = "unlink_all_oauth_accounts_admin" in 15347 15391 let url_path = "/admin/auth/unlink-all" in 15348 15392 let query = "" in 15349 - let url = client.Client_.base_url ^ url_path ^ query in 15393 + let url = client.base_url ^ url_path ^ query in 15350 15394 let response = 15351 - try Requests.post client.Client_.session url 15395 + try Requests.post client.session url 15352 15396 with Eio.Io _ as ex -> 15353 15397 let bt = Printexc.get_raw_backtrace () in 15354 15398 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15371 15415 let op_name = "delete_database_backup" in 15372 15416 let url_path = "/admin/database-backups" in 15373 15417 let query = "" in 15374 - let url = client.Client_.base_url ^ url_path ^ query in 15418 + let url = client.base_url ^ url_path ^ query in 15375 15419 let response = 15376 - try Requests.delete client.Client_.session url 15420 + try Requests.delete client.session url 15377 15421 with Eio.Io _ as ex -> 15378 15422 let bt = Printexc.get_raw_backtrace () in 15379 15423 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15396 15440 let op_name = "start_database_restore_flow" in 15397 15441 let url_path = "/admin/database-backups/start-restore" in 15398 15442 let query = "" in 15399 - let url = client.Client_.base_url ^ url_path ^ query in 15443 + let url = client.base_url ^ url_path ^ query in 15400 15444 let response = 15401 - try Requests.post client.Client_.session url 15445 + try Requests.post client.session url 15402 15446 with Eio.Io _ as ex -> 15403 15447 let bt = Printexc.get_raw_backtrace () in 15404 15448 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15421 15465 let op_name = "upload_database_backup" in 15422 15466 let url_path = "/admin/database-backups/upload" in 15423 15467 let query = "" in 15424 - let url = client.Client_.base_url ^ url_path ^ query in 15468 + let url = client.base_url ^ url_path ^ query in 15425 15469 let response = 15426 - try Requests.post client.Client_.session url 15470 + try Requests.post client.session url 15427 15471 with Eio.Io _ as ex -> 15428 15472 let bt = Printexc.get_raw_backtrace () in 15429 15473 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15446 15490 let op_name = "download_database_backup" in 15447 15491 let url_path = Openapi.Runtime.Path.render ~params:[("filename", filename)] "/admin/database-backups/{filename}" in 15448 15492 let query = "" in 15449 - let url = client.Client_.base_url ^ url_path ^ query in 15493 + let url = client.base_url ^ url_path ^ query in 15450 15494 let response = 15451 - try Requests.get client.Client_.session url 15495 + try Requests.get client.session url 15452 15496 with Eio.Io _ as ex -> 15453 15497 let bt = Printexc.get_raw_backtrace () in 15454 15498 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15471 15515 let op_name = "set_maintenance_mode" in 15472 15516 let url_path = "/admin/maintenance" in 15473 15517 let query = "" in 15474 - let url = client.Client_.base_url ^ url_path ^ query in 15518 + let url = client.base_url ^ url_path ^ query in 15475 15519 let response = 15476 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SetMaintenanceMode.Dto.jsont body)) url 15520 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SetMaintenanceMode.Dto.jsont body)) url 15477 15521 with Eio.Io _ as ex -> 15478 15522 let bt = Printexc.get_raw_backtrace () in 15479 15523 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15496 15540 let op_name = "delete_album" in 15497 15541 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/albums/{id}" in 15498 15542 let query = "" in 15499 - let url = client.Client_.base_url ^ url_path ^ query in 15543 + let url = client.base_url ^ url_path ^ query in 15500 15544 let response = 15501 - try Requests.delete client.Client_.session url 15545 + try Requests.delete client.session url 15502 15546 with Eio.Io _ as ex -> 15503 15547 let bt = Printexc.get_raw_backtrace () in 15504 15548 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15521 15565 let op_name = "update_album_user" in 15522 15566 let url_path = Openapi.Runtime.Path.render ~params:[("id", id); ("userId", user_id)] "/albums/{id}/user/{userId}" in 15523 15567 let query = "" in 15524 - let url = client.Client_.base_url ^ url_path ^ query in 15568 + let url = client.base_url ^ url_path ^ query in 15525 15569 let response = 15526 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateAlbumUser.Dto.jsont body)) url 15570 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json UpdateAlbumUser.Dto.jsont body)) url 15527 15571 with Eio.Io _ as ex -> 15528 15572 let bt = Printexc.get_raw_backtrace () in 15529 15573 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 15546 15590 let op_name = "remove_user_from_album" in 15547 15591 let url_path = Openapi.Runtime.Path.render ~params:[("id", id); ("userId", user_id)] "/albums/{id}/user/{userId}" in 15548 15592 let query = "" in 15549 - let url = client.Client_.base_url ^ url_path ^ query in 15593 + let url = client.base_url ^ url_path ^ query in 15550 15594 let response = 15551 - try Requests.delete client.Client_.session url 15595 + try Requests.delete client.session url 15552 15596 with Eio.Io _ as ex -> 15553 15597 let bt = Printexc.get_raw_backtrace () in 15554 15598 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15571 15615 let op_name = "delete_api_key" in 15572 15616 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/api-keys/{id}" in 15573 15617 let query = "" in 15574 - let url = client.Client_.base_url ^ url_path ^ query in 15618 + let url = client.base_url ^ url_path ^ query in 15575 15619 let response = 15576 - try Requests.delete client.Client_.session url 15620 + try Requests.delete client.session url 15577 15621 with Eio.Io _ as ex -> 15578 15622 let bt = Printexc.get_raw_backtrace () in 15579 15623 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15596 15640 let op_name = "update_assets" in 15597 15641 let url_path = "/assets" in 15598 15642 let query = "" in 15599 - let url = client.Client_.base_url ^ url_path ^ query in 15643 + let url = client.base_url ^ url_path ^ query in 15600 15644 let response = 15601 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetBulk.UpdateDto.jsont body)) url 15645 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetBulk.UpdateDto.jsont body)) url 15602 15646 with Eio.Io _ as ex -> 15603 15647 let bt = Printexc.get_raw_backtrace () in 15604 15648 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 15621 15665 let op_name = "delete_assets" in 15622 15666 let url_path = "/assets" in 15623 15667 let query = "" in 15624 - let url = client.Client_.base_url ^ url_path ^ query in 15668 + let url = client.base_url ^ url_path ^ query in 15625 15669 let response = 15626 - try Requests.delete client.Client_.session url 15670 + try Requests.delete client.session url 15627 15671 with Eio.Io _ as ex -> 15628 15672 let bt = Printexc.get_raw_backtrace () in 15629 15673 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15646 15690 let op_name = "copy_asset" in 15647 15691 let url_path = "/assets/copy" in 15648 15692 let query = "" in 15649 - let url = client.Client_.base_url ^ url_path ^ query in 15693 + let url = client.base_url ^ url_path ^ query in 15650 15694 let response = 15651 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetCopy.Dto.jsont body)) url 15695 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetCopy.Dto.jsont body)) url 15652 15696 with Eio.Io _ as ex -> 15653 15697 let bt = Printexc.get_raw_backtrace () in 15654 15698 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 15671 15715 let op_name = "get_all_user_assets_by_device_id" in 15672 15716 let url_path = Openapi.Runtime.Path.render ~params:[("deviceId", device_id)] "/assets/device/{deviceId}" in 15673 15717 let query = "" in 15674 - let url = client.Client_.base_url ^ url_path ^ query in 15718 + let url = client.base_url ^ url_path ^ query in 15675 15719 let response = 15676 - try Requests.get client.Client_.session url 15720 + try Requests.get client.session url 15677 15721 with Eio.Io _ as ex -> 15678 15722 let bt = Printexc.get_raw_backtrace () in 15679 15723 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15696 15740 let op_name = "run_asset_jobs" in 15697 15741 let url_path = "/assets/jobs" in 15698 15742 let query = "" in 15699 - let url = client.Client_.base_url ^ url_path ^ query in 15743 + let url = client.base_url ^ url_path ^ query in 15700 15744 let response = 15701 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetJobs.Dto.jsont body)) url 15745 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetJobs.Dto.jsont body)) url 15702 15746 with Eio.Io _ as ex -> 15703 15747 let bt = Printexc.get_raw_backtrace () in 15704 15748 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15721 15765 let op_name = "delete_bulk_asset_metadata" in 15722 15766 let url_path = "/assets/metadata" in 15723 15767 let query = "" in 15724 - let url = client.Client_.base_url ^ url_path ^ query in 15768 + let url = client.base_url ^ url_path ^ query in 15725 15769 let response = 15726 - try Requests.delete client.Client_.session url 15770 + try Requests.delete client.session url 15727 15771 with Eio.Io _ as ex -> 15728 15772 let bt = Printexc.get_raw_backtrace () in 15729 15773 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15746 15790 let op_name = "remove_asset_edits" in 15747 15791 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/edits" in 15748 15792 let query = "" in 15749 - let url = client.Client_.base_url ^ url_path ^ query in 15793 + let url = client.base_url ^ url_path ^ query in 15750 15794 let response = 15751 - try Requests.delete client.Client_.session url 15795 + try Requests.delete client.session url 15752 15796 with Eio.Io _ as ex -> 15753 15797 let bt = Printexc.get_raw_backtrace () in 15754 15798 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15771 15815 let op_name = "delete_asset_metadata" in 15772 15816 let url_path = Openapi.Runtime.Path.render ~params:[("id", id); ("key", key)] "/assets/{id}/metadata/{key}" in 15773 15817 let query = "" in 15774 - let url = client.Client_.base_url ^ url_path ^ query in 15818 + let url = client.base_url ^ url_path ^ query in 15775 15819 let response = 15776 - try Requests.delete client.Client_.session url 15820 + try Requests.delete client.session url 15777 15821 with Eio.Io _ as ex -> 15778 15822 let bt = Printexc.get_raw_backtrace () in 15779 15823 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15796 15840 let op_name = "download_asset" in 15797 15841 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/original" in 15798 15842 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"edited" ~value:edited; Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 15799 - let url = client.Client_.base_url ^ url_path ^ query in 15843 + let url = client.base_url ^ url_path ^ query in 15800 15844 let response = 15801 - try Requests.get client.Client_.session url 15845 + try Requests.get client.session url 15802 15846 with Eio.Io _ as ex -> 15803 15847 let bt = Printexc.get_raw_backtrace () in 15804 15848 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15821 15865 let op_name = "view_asset" in 15822 15866 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/thumbnail" in 15823 15867 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"edited" ~value:edited; Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"size" ~value:size; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 15824 - let url = client.Client_.base_url ^ url_path ^ query in 15868 + let url = client.base_url ^ url_path ^ query in 15825 15869 let response = 15826 - try Requests.get client.Client_.session url 15870 + try Requests.get client.session url 15827 15871 with Eio.Io _ as ex -> 15828 15872 let bt = Printexc.get_raw_backtrace () in 15829 15873 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15846 15890 let op_name = "play_asset_video" in 15847 15891 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/assets/{id}/video/playback" in 15848 15892 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 15849 - let url = client.Client_.base_url ^ url_path ^ query in 15893 + let url = client.base_url ^ url_path ^ query in 15850 15894 let response = 15851 - try Requests.get client.Client_.session url 15895 + try Requests.get client.session url 15852 15896 with Eio.Io _ as ex -> 15853 15897 let bt = Printexc.get_raw_backtrace () in 15854 15898 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 15871 15915 let op_name = "setup_pin_code" in 15872 15916 let url_path = "/auth/pin-code" in 15873 15917 let query = "" in 15874 - let url = client.Client_.base_url ^ url_path ^ query in 15918 + let url = client.base_url ^ url_path ^ query in 15875 15919 let response = 15876 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json PinCodeSetup.Dto.jsont body)) url 15920 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json PinCodeSetup.Dto.jsont body)) url 15877 15921 with Eio.Io _ as ex -> 15878 15922 let bt = Printexc.get_raw_backtrace () in 15879 15923 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15896 15940 let op_name = "change_pin_code" in 15897 15941 let url_path = "/auth/pin-code" in 15898 15942 let query = "" in 15899 - let url = client.Client_.base_url ^ url_path ^ query in 15943 + let url = client.base_url ^ url_path ^ query in 15900 15944 let response = 15901 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json PinCodeChange.Dto.jsont body)) url 15945 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json PinCodeChange.Dto.jsont body)) url 15902 15946 with Eio.Io _ as ex -> 15903 15947 let bt = Printexc.get_raw_backtrace () in 15904 15948 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 15921 15965 let op_name = "reset_pin_code" in 15922 15966 let url_path = "/auth/pin-code" in 15923 15967 let query = "" in 15924 - let url = client.Client_.base_url ^ url_path ^ query in 15968 + let url = client.base_url ^ url_path ^ query in 15925 15969 let response = 15926 - try Requests.delete client.Client_.session url 15970 + try Requests.delete client.session url 15927 15971 with Eio.Io _ as ex -> 15928 15972 let bt = Printexc.get_raw_backtrace () in 15929 15973 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 15946 15990 let op_name = "lock_auth_session" in 15947 15991 let url_path = "/auth/session/lock" in 15948 15992 let query = "" in 15949 - let url = client.Client_.base_url ^ url_path ^ query in 15993 + let url = client.base_url ^ url_path ^ query in 15950 15994 let response = 15951 - try Requests.post client.Client_.session url 15995 + try Requests.post client.session url 15952 15996 with Eio.Io _ as ex -> 15953 15997 let bt = Printexc.get_raw_backtrace () in 15954 15998 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15971 16015 let op_name = "unlock_auth_session" in 15972 16016 let url_path = "/auth/session/unlock" in 15973 16017 let query = "" in 15974 - let url = client.Client_.base_url ^ url_path ^ query in 16018 + let url = client.base_url ^ url_path ^ query in 15975 16019 let response = 15976 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SessionUnlock.Dto.jsont body)) url 16020 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SessionUnlock.Dto.jsont body)) url 15977 16021 with Eio.Io _ as ex -> 15978 16022 let bt = Printexc.get_raw_backtrace () in 15979 16023 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 15996 16040 let op_name = "download_archive" in 15997 16041 let url_path = "/download/archive" in 15998 16042 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"key" ~value:key; Openapi.Runtime.Query.optional ~key:"slug" ~value:slug]) in 15999 - let url = client.Client_.base_url ^ url_path ^ query in 16043 + let url = client.base_url ^ url_path ^ query in 16000 16044 let response = 16001 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetIds.Dto.jsont body)) url 16045 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetIds.Dto.jsont body)) url 16002 16046 with Eio.Io _ as ex -> 16003 16047 let bt = Printexc.get_raw_backtrace () in 16004 16048 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16021 16065 let op_name = "delete_duplicates" in 16022 16066 let url_path = "/duplicates" in 16023 16067 let query = "" in 16024 - let url = client.Client_.base_url ^ url_path ^ query in 16068 + let url = client.base_url ^ url_path ^ query in 16025 16069 let response = 16026 - try Requests.delete client.Client_.session url 16070 + try Requests.delete client.session url 16027 16071 with Eio.Io _ as ex -> 16028 16072 let bt = Printexc.get_raw_backtrace () in 16029 16073 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16046 16090 let op_name = "delete_duplicate" in 16047 16091 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/duplicates/{id}" in 16048 16092 let query = "" in 16049 - let url = client.Client_.base_url ^ url_path ^ query in 16093 + let url = client.base_url ^ url_path ^ query in 16050 16094 let response = 16051 - try Requests.delete client.Client_.session url 16095 + try Requests.delete client.session url 16052 16096 with Eio.Io _ as ex -> 16053 16097 let bt = Printexc.get_raw_backtrace () in 16054 16098 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16071 16115 let op_name = "create_face" in 16072 16116 let url_path = "/faces" in 16073 16117 let query = "" in 16074 - let url = client.Client_.base_url ^ url_path ^ query in 16118 + let url = client.base_url ^ url_path ^ query in 16075 16119 let response = 16076 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetFace.CreateDto.jsont body)) url 16120 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AssetFace.CreateDto.jsont body)) url 16077 16121 with Eio.Io _ as ex -> 16078 16122 let bt = Printexc.get_raw_backtrace () in 16079 16123 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16096 16140 let op_name = "delete_face" in 16097 16141 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/faces/{id}" in 16098 16142 let query = "" in 16099 - let url = client.Client_.base_url ^ url_path ^ query in 16143 + let url = client.base_url ^ url_path ^ query in 16100 16144 let response = 16101 - try Requests.delete client.Client_.session url 16145 + try Requests.delete client.session url 16102 16146 with Eio.Io _ as ex -> 16103 16147 let bt = Printexc.get_raw_backtrace () in 16104 16148 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16121 16165 let op_name = "create_job" in 16122 16166 let url_path = "/jobs" in 16123 16167 let query = "" in 16124 - let url = client.Client_.base_url ^ url_path ^ query in 16168 + let url = client.base_url ^ url_path ^ query in 16125 16169 let response = 16126 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Job.CreateDto.jsont body)) url 16170 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json Job.CreateDto.jsont body)) url 16127 16171 with Eio.Io _ as ex -> 16128 16172 let bt = Printexc.get_raw_backtrace () in 16129 16173 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16146 16190 let op_name = "delete_library" in 16147 16191 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/libraries/{id}" in 16148 16192 let query = "" in 16149 - let url = client.Client_.base_url ^ url_path ^ query in 16193 + let url = client.base_url ^ url_path ^ query in 16150 16194 let response = 16151 - try Requests.delete client.Client_.session url 16195 + try Requests.delete client.session url 16152 16196 with Eio.Io _ as ex -> 16153 16197 let bt = Printexc.get_raw_backtrace () in 16154 16198 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16171 16215 let op_name = "scan_library" in 16172 16216 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/libraries/{id}/scan" in 16173 16217 let query = "" in 16174 - let url = client.Client_.base_url ^ url_path ^ query in 16218 + let url = client.base_url ^ url_path ^ query in 16175 16219 let response = 16176 - try Requests.post client.Client_.session url 16220 + try Requests.post client.session url 16177 16221 with Eio.Io _ as ex -> 16178 16222 let bt = Printexc.get_raw_backtrace () in 16179 16223 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16196 16240 let op_name = "delete_memory" in 16197 16241 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/memories/{id}" in 16198 16242 let query = "" in 16199 - let url = client.Client_.base_url ^ url_path ^ query in 16243 + let url = client.base_url ^ url_path ^ query in 16200 16244 let response = 16201 - try Requests.delete client.Client_.session url 16245 + try Requests.delete client.session url 16202 16246 with Eio.Io _ as ex -> 16203 16247 let bt = Printexc.get_raw_backtrace () in 16204 16248 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16221 16265 let op_name = "update_notifications" in 16222 16266 let url_path = "/notifications" in 16223 16267 let query = "" in 16224 - let url = client.Client_.base_url ^ url_path ^ query in 16268 + let url = client.base_url ^ url_path ^ query in 16225 16269 let response = 16226 - try Requests.put client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json NotificationUpdateAll.Dto.jsont body)) url 16270 + try Requests.put client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json NotificationUpdateAll.Dto.jsont body)) url 16227 16271 with Eio.Io _ as ex -> 16228 16272 let bt = Printexc.get_raw_backtrace () in 16229 16273 Eio.Exn.reraise_with_context ex bt "calling %s %s" "PUT" url ··· 16246 16290 let op_name = "delete_notifications" in 16247 16291 let url_path = "/notifications" in 16248 16292 let query = "" in 16249 - let url = client.Client_.base_url ^ url_path ^ query in 16293 + let url = client.base_url ^ url_path ^ query in 16250 16294 let response = 16251 - try Requests.delete client.Client_.session url 16295 + try Requests.delete client.session url 16252 16296 with Eio.Io _ as ex -> 16253 16297 let bt = Printexc.get_raw_backtrace () in 16254 16298 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16271 16315 let op_name = "delete_notification" in 16272 16316 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/notifications/{id}" in 16273 16317 let query = "" in 16274 - let url = client.Client_.base_url ^ url_path ^ query in 16318 + let url = client.base_url ^ url_path ^ query in 16275 16319 let response = 16276 - try Requests.delete client.Client_.session url 16320 + try Requests.delete client.session url 16277 16321 with Eio.Io _ as ex -> 16278 16322 let bt = Printexc.get_raw_backtrace () in 16279 16323 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16296 16340 let op_name = "redirect_oauth_to_mobile" in 16297 16341 let url_path = "/oauth/mobile-redirect" in 16298 16342 let query = "" in 16299 - let url = client.Client_.base_url ^ url_path ^ query in 16343 + let url = client.base_url ^ url_path ^ query in 16300 16344 let response = 16301 - try Requests.get client.Client_.session url 16345 + try Requests.get client.session url 16302 16346 with Eio.Io _ as ex -> 16303 16347 let bt = Printexc.get_raw_backtrace () in 16304 16348 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 16321 16365 let op_name = "remove_partner" in 16322 16366 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/partners/{id}" in 16323 16367 let query = "" in 16324 - let url = client.Client_.base_url ^ url_path ^ query in 16368 + let url = client.base_url ^ url_path ^ query in 16325 16369 let response = 16326 - try Requests.delete client.Client_.session url 16370 + try Requests.delete client.session url 16327 16371 with Eio.Io _ as ex -> 16328 16372 let bt = Printexc.get_raw_backtrace () in 16329 16373 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16346 16390 let op_name = "delete_people" in 16347 16391 let url_path = "/people" in 16348 16392 let query = "" in 16349 - let url = client.Client_.base_url ^ url_path ^ query in 16393 + let url = client.base_url ^ url_path ^ query in 16350 16394 let response = 16351 - try Requests.delete client.Client_.session url 16395 + try Requests.delete client.session url 16352 16396 with Eio.Io _ as ex -> 16353 16397 let bt = Printexc.get_raw_backtrace () in 16354 16398 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16371 16415 let op_name = "delete_person" in 16372 16416 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/people/{id}" in 16373 16417 let query = "" in 16374 - let url = client.Client_.base_url ^ url_path ^ query in 16418 + let url = client.base_url ^ url_path ^ query in 16375 16419 let response = 16376 - try Requests.delete client.Client_.session url 16420 + try Requests.delete client.session url 16377 16421 with Eio.Io _ as ex -> 16378 16422 let bt = Printexc.get_raw_backtrace () in 16379 16423 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16396 16440 let op_name = "get_person_thumbnail" in 16397 16441 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/people/{id}/thumbnail" in 16398 16442 let query = "" in 16399 - let url = client.Client_.base_url ^ url_path ^ query in 16443 + let url = client.base_url ^ url_path ^ query in 16400 16444 let response = 16401 - try Requests.get client.Client_.session url 16445 + try Requests.get client.session url 16402 16446 with Eio.Io _ as ex -> 16403 16447 let bt = Printexc.get_raw_backtrace () in 16404 16448 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 16421 16465 let op_name = "empty_queue" in 16422 16466 let url_path = Openapi.Runtime.Path.render ~params:[("name", name)] "/queues/{name}/jobs" in 16423 16467 let query = "" in 16424 - let url = client.Client_.base_url ^ url_path ^ query in 16468 + let url = client.base_url ^ url_path ^ query in 16425 16469 let response = 16426 - try Requests.delete client.Client_.session url 16470 + try Requests.delete client.session url 16427 16471 with Eio.Io _ as ex -> 16428 16472 let bt = Printexc.get_raw_backtrace () in 16429 16473 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16446 16490 let op_name = "get_search_suggestions" in 16447 16491 let url_path = "/search/suggestions" in 16448 16492 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.optional ~key:"country" ~value:country; Openapi.Runtime.Query.optional ~key:"includeNull" ~value:include_null; Openapi.Runtime.Query.optional ~key:"lensModel" ~value:lens_model; Openapi.Runtime.Query.optional ~key:"make" ~value:make; Openapi.Runtime.Query.optional ~key:"model" ~value:model; Openapi.Runtime.Query.optional ~key:"state" ~value:state; Openapi.Runtime.Query.singleton ~key:"type" ~value:type_]) in 16449 - let url = client.Client_.base_url ^ url_path ^ query in 16493 + let url = client.base_url ^ url_path ^ query in 16450 16494 let response = 16451 - try Requests.get client.Client_.session url 16495 + try Requests.get client.session url 16452 16496 with Eio.Io _ as ex -> 16453 16497 let bt = Printexc.get_raw_backtrace () in 16454 16498 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 16471 16515 let op_name = "delete_server_license" in 16472 16516 let url_path = "/server/license" in 16473 16517 let query = "" in 16474 - let url = client.Client_.base_url ^ url_path ^ query in 16518 + let url = client.base_url ^ url_path ^ query in 16475 16519 let response = 16476 - try Requests.delete client.Client_.session url 16520 + try Requests.delete client.session url 16477 16521 with Eio.Io _ as ex -> 16478 16522 let bt = Printexc.get_raw_backtrace () in 16479 16523 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16496 16540 let op_name = "delete_all_sessions" in 16497 16541 let url_path = "/sessions" in 16498 16542 let query = "" in 16499 - let url = client.Client_.base_url ^ url_path ^ query in 16543 + let url = client.base_url ^ url_path ^ query in 16500 16544 let response = 16501 - try Requests.delete client.Client_.session url 16545 + try Requests.delete client.session url 16502 16546 with Eio.Io _ as ex -> 16503 16547 let bt = Printexc.get_raw_backtrace () in 16504 16548 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16521 16565 let op_name = "delete_session" in 16522 16566 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/sessions/{id}" in 16523 16567 let query = "" in 16524 - let url = client.Client_.base_url ^ url_path ^ query in 16568 + let url = client.base_url ^ url_path ^ query in 16525 16569 let response = 16526 - try Requests.delete client.Client_.session url 16570 + try Requests.delete client.session url 16527 16571 with Eio.Io _ as ex -> 16528 16572 let bt = Printexc.get_raw_backtrace () in 16529 16573 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16546 16590 let op_name = "lock_session" in 16547 16591 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/sessions/{id}/lock" in 16548 16592 let query = "" in 16549 - let url = client.Client_.base_url ^ url_path ^ query in 16593 + let url = client.base_url ^ url_path ^ query in 16550 16594 let response = 16551 - try Requests.post client.Client_.session url 16595 + try Requests.post client.session url 16552 16596 with Eio.Io _ as ex -> 16553 16597 let bt = Printexc.get_raw_backtrace () in 16554 16598 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16571 16615 let op_name = "remove_shared_link" in 16572 16616 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/shared-links/{id}" in 16573 16617 let query = "" in 16574 - let url = client.Client_.base_url ^ url_path ^ query in 16618 + let url = client.base_url ^ url_path ^ query in 16575 16619 let response = 16576 - try Requests.delete client.Client_.session url 16620 + try Requests.delete client.session url 16577 16621 with Eio.Io _ as ex -> 16578 16622 let bt = Printexc.get_raw_backtrace () in 16579 16623 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16596 16640 let op_name = "delete_stacks" in 16597 16641 let url_path = "/stacks" in 16598 16642 let query = "" in 16599 - let url = client.Client_.base_url ^ url_path ^ query in 16643 + let url = client.base_url ^ url_path ^ query in 16600 16644 let response = 16601 - try Requests.delete client.Client_.session url 16645 + try Requests.delete client.session url 16602 16646 with Eio.Io _ as ex -> 16603 16647 let bt = Printexc.get_raw_backtrace () in 16604 16648 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16621 16665 let op_name = "delete_stack" in 16622 16666 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/stacks/{id}" in 16623 16667 let query = "" in 16624 - let url = client.Client_.base_url ^ url_path ^ query in 16668 + let url = client.base_url ^ url_path ^ query in 16625 16669 let response = 16626 - try Requests.delete client.Client_.session url 16670 + try Requests.delete client.session url 16627 16671 with Eio.Io _ as ex -> 16628 16672 let bt = Printexc.get_raw_backtrace () in 16629 16673 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16646 16690 let op_name = "remove_asset_from_stack" in 16647 16691 let url_path = Openapi.Runtime.Path.render ~params:[("assetId", asset_id); ("id", id)] "/stacks/{id}/assets/{assetId}" in 16648 16692 let query = "" in 16649 - let url = client.Client_.base_url ^ url_path ^ query in 16693 + let url = client.base_url ^ url_path ^ query in 16650 16694 let response = 16651 - try Requests.delete client.Client_.session url 16695 + try Requests.delete client.session url 16652 16696 with Eio.Io _ as ex -> 16653 16697 let bt = Printexc.get_raw_backtrace () in 16654 16698 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16671 16715 let op_name = "send_sync_ack" in 16672 16716 let url_path = "/sync/ack" in 16673 16717 let query = "" in 16674 - let url = client.Client_.base_url ^ url_path ^ query in 16718 + let url = client.base_url ^ url_path ^ query in 16675 16719 let response = 16676 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SyncAckSet.Dto.jsont body)) url 16720 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SyncAckSet.Dto.jsont body)) url 16677 16721 with Eio.Io _ as ex -> 16678 16722 let bt = Printexc.get_raw_backtrace () in 16679 16723 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16696 16740 let op_name = "delete_sync_ack" in 16697 16741 let url_path = "/sync/ack" in 16698 16742 let query = "" in 16699 - let url = client.Client_.base_url ^ url_path ^ query in 16743 + let url = client.base_url ^ url_path ^ query in 16700 16744 let response = 16701 - try Requests.delete client.Client_.session url 16745 + try Requests.delete client.session url 16702 16746 with Eio.Io _ as ex -> 16703 16747 let bt = Printexc.get_raw_backtrace () in 16704 16748 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16721 16765 let op_name = "get_sync_stream" in 16722 16766 let url_path = "/sync/stream" in 16723 16767 let query = "" in 16724 - let url = client.Client_.base_url ^ url_path ^ query in 16768 + let url = client.base_url ^ url_path ^ query in 16725 16769 let response = 16726 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SyncStream.Dto.jsont body)) url 16770 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json SyncStream.Dto.jsont body)) url 16727 16771 with Eio.Io _ as ex -> 16728 16772 let bt = Printexc.get_raw_backtrace () in 16729 16773 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16746 16790 let op_name = "update_admin_onboarding" in 16747 16791 let url_path = "/system-metadata/admin-onboarding" in 16748 16792 let query = "" in 16749 - let url = client.Client_.base_url ^ url_path ^ query in 16793 + let url = client.base_url ^ url_path ^ query in 16750 16794 let response = 16751 - try Requests.post client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AdminOnboarding.UpdateDto.jsont body)) url 16795 + try Requests.post client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json AdminOnboarding.UpdateDto.jsont body)) url 16752 16796 with Eio.Io _ as ex -> 16753 16797 let bt = Printexc.get_raw_backtrace () in 16754 16798 Eio.Exn.reraise_with_context ex bt "calling %s %s" "POST" url ··· 16771 16815 let op_name = "delete_tag" in 16772 16816 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/tags/{id}" in 16773 16817 let query = "" in 16774 - let url = client.Client_.base_url ^ url_path ^ query in 16818 + let url = client.base_url ^ url_path ^ query in 16775 16819 let response = 16776 - try Requests.delete client.Client_.session url 16820 + try Requests.delete client.session url 16777 16821 with Eio.Io _ as ex -> 16778 16822 let bt = Printexc.get_raw_backtrace () in 16779 16823 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16796 16840 let op_name = "delete_user_license" in 16797 16841 let url_path = "/users/me/license" in 16798 16842 let query = "" in 16799 - let url = client.Client_.base_url ^ url_path ^ query in 16843 + let url = client.base_url ^ url_path ^ query in 16800 16844 let response = 16801 - try Requests.delete client.Client_.session url 16845 + try Requests.delete client.session url 16802 16846 with Eio.Io _ as ex -> 16803 16847 let bt = Printexc.get_raw_backtrace () in 16804 16848 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16821 16865 let op_name = "delete_user_onboarding" in 16822 16866 let url_path = "/users/me/onboarding" in 16823 16867 let query = "" in 16824 - let url = client.Client_.base_url ^ url_path ^ query in 16868 + let url = client.base_url ^ url_path ^ query in 16825 16869 let response = 16826 - try Requests.delete client.Client_.session url 16870 + try Requests.delete client.session url 16827 16871 with Eio.Io _ as ex -> 16828 16872 let bt = Printexc.get_raw_backtrace () in 16829 16873 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16846 16890 let op_name = "delete_profile_image" in 16847 16891 let url_path = "/users/profile-image" in 16848 16892 let query = "" in 16849 - let url = client.Client_.base_url ^ url_path ^ query in 16893 + let url = client.base_url ^ url_path ^ query in 16850 16894 let response = 16851 - try Requests.delete client.Client_.session url 16895 + try Requests.delete client.session url 16852 16896 with Eio.Io _ as ex -> 16853 16897 let bt = Printexc.get_raw_backtrace () in 16854 16898 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16871 16915 let op_name = "get_profile_image" in 16872 16916 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/users/{id}/profile-image" in 16873 16917 let query = "" in 16874 - let url = client.Client_.base_url ^ url_path ^ query in 16918 + let url = client.base_url ^ url_path ^ query in 16875 16919 let response = 16876 - try Requests.get client.Client_.session url 16920 + try Requests.get client.session url 16877 16921 with Eio.Io _ as ex -> 16878 16922 let bt = Printexc.get_raw_backtrace () in 16879 16923 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 16896 16940 let op_name = "get_unique_original_paths" in 16897 16941 let url_path = "/view/folder/unique-paths" in 16898 16942 let query = "" in 16899 - let url = client.Client_.base_url ^ url_path ^ query in 16943 + let url = client.base_url ^ url_path ^ query in 16900 16944 let response = 16901 - try Requests.get client.Client_.session url 16945 + try Requests.get client.session url 16902 16946 with Eio.Io _ as ex -> 16903 16947 let bt = Printexc.get_raw_backtrace () in 16904 16948 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url ··· 16921 16965 let op_name = "delete_workflow" in 16922 16966 let url_path = Openapi.Runtime.Path.render ~params:[("id", id)] "/workflows/{id}" in 16923 16967 let query = "" in 16924 - let url = client.Client_.base_url ^ url_path ^ query in 16968 + let url = client.base_url ^ url_path ^ query in 16925 16969 let response = 16926 - try Requests.delete client.Client_.session url 16970 + try Requests.delete client.session url 16927 16971 with Eio.Io _ as ex -> 16928 16972 let bt = Printexc.get_raw_backtrace () in 16929 16973 Eio.Exn.reraise_with_context ex bt "calling %s %s" "DELETE" url ··· 16968 17012 let op_name = "get_activity_statistics" in 16969 17013 let url_path = "/activities/statistics" in 16970 17014 let query = Openapi.Runtime.Query.encode (List.concat [Openapi.Runtime.Query.singleton ~key:"albumId" ~value:album_id; Openapi.Runtime.Query.optional ~key:"assetId" ~value:asset_id]) in 16971 - let url = client.Client_.base_url ^ url_path ^ query in 17015 + let url = client.base_url ^ url_path ^ query in 16972 17016 let response = 16973 - try Requests.get client.Client_.session url 17017 + try Requests.get client.session url 16974 17018 with Eio.Io _ as ex -> 16975 17019 let bt = Printexc.get_raw_backtrace () in 16976 17020 Eio.Exn.reraise_with_context ex bt "calling %s %s" "GET" url

+793 -749

ocaml-immich/immich.mli

··· 4 4 5 5 @version 2.4.1 *) 6 6 7 - module Client_ : sig 8 - type t 7 + type t 9 8 10 - val create : 11 - ?session:Requests.t -> 12 - sw:Eio.Switch.t -> 13 - < net : _ Eio.Net.t ; fs : Eio.Fs.dir_ty Eio.Path.t ; clock : _ Eio.Time.clock ; .. > -> 14 - base_url:string -> 15 - t 9 + val create : 10 + ?session:Requests.t -> 11 + sw:Eio.Switch.t -> 12 + < net : _ Eio.Net.t ; fs : Eio.Fs.dir_ty Eio.Path.t ; clock : _ Eio.Time.clock ; .. > -> 13 + base_url:string -> 14 + t 16 15 17 - val base_url : t -> string 18 - val session : t -> Requests.t 19 - end 16 + val base_url : t -> string 17 + val session : t -> Requests.t 20 18 21 19 module WorkflowFilterItem : sig 22 20 module Dto : sig ··· 163 161 (** List all workflows 164 162 165 163 Retrieve a list of workflows available to the authenticated user. *) 166 - val get_workflows : Client_.t -> unit -> ResponseDto.t 164 + val get_workflows : t -> unit -> ResponseDto.t 167 165 168 166 (** Create a workflow 169 167 170 168 Create a new workflow, the workflow can also be created with empty filters and actions. *) 171 - val create_workflow : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 169 + val create_workflow : body:CreateDto.t -> t -> unit -> ResponseDto.t 172 170 173 171 (** Retrieve a workflow 174 172 175 173 Retrieve information about a specific workflow by its ID. *) 176 - val get_workflow : id:string -> Client_.t -> unit -> ResponseDto.t 174 + val get_workflow : id:string -> t -> unit -> ResponseDto.t 177 175 178 176 (** Update a workflow 179 177 180 178 Update the information of a specific workflow by its ID. This endpoint can be used to update the workflow name, description, trigger type, filters and actions order, etc. *) 181 - val update_workflow : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 179 + val update_workflow : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 182 180 end 183 181 184 182 module VideoContainer : sig 185 183 module T : sig 186 - type t = 187 - | Mov 188 - | Mp4 189 - | Ogg 190 - | Webm 184 + type t = [ 185 + | `Mov 186 + | `Mp4 187 + | `Ogg 188 + | `Webm 189 + ] 191 190 192 191 val jsont : t Jsont.t 193 192 end ··· 195 194 196 195 module VideoCodec : sig 197 196 module T : sig 198 - type t = 199 - | H264 200 - | Hevc 201 - | Vp9 202 - | Av1 197 + type t = [ 198 + | `H264 199 + | `Hevc 200 + | `Vp9 201 + | `Av1 202 + ] 203 203 204 204 val jsont : t Jsont.t 205 205 end ··· 222 222 (** Get version check status 223 223 224 224 Retrieve information about the last time the version check ran. *) 225 - val get_version_check : Client_.t -> unit -> ResponseDto.t 225 + val get_version_check : t -> unit -> ResponseDto.t 226 226 227 227 (** Retrieve version check state 228 228 229 229 Retrieve the current state of the version check process. *) 230 - val get_version_check_state : Client_.t -> unit -> ResponseDto.t 230 + val get_version_check_state : t -> unit -> ResponseDto.t 231 231 end 232 232 233 233 module ValidateLibraryImportPath : sig ··· 275 275 (** Validate library settings 276 276 277 277 Validate the settings of an external library. *) 278 - val validate : id:string -> body:Dto.t -> Client_.t -> unit -> ResponseDto.t 278 + val validate : id:string -> body:Dto.t -> t -> unit -> ResponseDto.t 279 279 end 280 280 281 281 module ValidateAccessToken : sig ··· 293 293 (** Validate access token 294 294 295 295 Validate the current authorization method is still valid. *) 296 - val validate_access_token : Client_.t -> unit -> ResponseDto.t 296 + val validate_access_token : t -> unit -> ResponseDto.t 297 297 end 298 298 299 299 module UserUpdateMe : sig ··· 317 317 318 318 module UserMetadataKey : sig 319 319 module T : sig 320 - type t = 321 - | Preferences 322 - | License 323 - | Onboarding 320 + type t = [ 321 + | `Preferences 322 + | `License 323 + | `Onboarding 324 + ] 324 325 325 326 val jsont : t Jsont.t 326 327 end ··· 345 346 346 347 module UserAvatarColor : sig 347 348 module T : sig 348 - type t = 349 - | Primary 350 - | Pink 351 - | Red 352 - | Yellow 353 - | Blue 354 - | Green 355 - | Purple 356 - | Orange 357 - | Gray 358 - | Amber 349 + type t = [ 350 + | `Primary 351 + | `Pink 352 + | `Red 353 + | `Yellow 354 + | `Blue 355 + | `Green 356 + | `Purple 357 + | `Orange 358 + | `Gray 359 + | `Amber 360 + ] 359 361 360 362 val jsont : t Jsont.t 361 363 end ··· 376 378 377 379 module User : sig 378 380 module Status : sig 379 - type t = 380 - | Active 381 - | Removing 382 - | Deleted 381 + type t = [ 382 + | `Active 383 + | `Removing 384 + | `Deleted 385 + ] 383 386 384 387 val jsont : t Jsont.t 385 388 end ··· 408 411 (** Get all users 409 412 410 413 Retrieve a list of all users on the server. *) 411 - val search_users : Client_.t -> unit -> ResponseDto.t 414 + val search_users : t -> unit -> ResponseDto.t 412 415 413 416 (** Retrieve a user 414 417 415 418 Retrieve a specific user by their ID. *) 416 - val get_user : id:string -> Client_.t -> unit -> ResponseDto.t 419 + val get_user : id:string -> t -> unit -> ResponseDto.t 417 420 end 418 421 419 422 module AlbumUser : sig ··· 505 508 (** List all activities 506 509 507 510 Returns a list of activities for the selected asset or album. The activities are returned in sorted order, with the oldest activities appearing first. *) 508 - val get_activities : album_id:string -> ?asset_id:string -> ?level:string -> ?type_:string -> ?user_id:string -> Client_.t -> unit -> ResponseDto.t 511 + val get_activities : album_id:string -> ?asset_id:string -> ?level:string -> ?type_:string -> ?user_id:string -> t -> unit -> ResponseDto.t 509 512 510 513 (** Create an activity 511 514 512 515 Create a like or a comment for an album, or an asset in an album. *) 513 - val create_activity : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 516 + val create_activity : body:CreateDto.t -> t -> unit -> ResponseDto.t 514 517 end 515 518 516 519 module UsageByUser : sig ··· 565 568 (** Get statistics 566 569 567 570 Retrieve statistics about the entire Immich instance such as asset counts. *) 568 - val get_server_statistics : Client_.t -> unit -> ResponseDto.t 571 + val get_server_statistics : t -> unit -> ResponseDto.t 569 572 end 570 573 571 574 module UpdateLibrary : sig ··· 648 651 649 652 module TranscodePolicy : sig 650 653 module T : sig 651 - type t = 652 - | All 653 - | Optimal 654 - | Bitrate 655 - | Required 656 - | Disabled 654 + type t = [ 655 + | `All 656 + | `Optimal 657 + | `Bitrate 658 + | `Required 659 + | `Disabled 660 + ] 657 661 658 662 val jsont : t Jsont.t 659 663 end ··· 661 665 662 666 module TranscodeHwaccel : sig 663 667 module T : sig 664 - type t = 665 - | Nvenc 666 - | Qsv 667 - | Vaapi 668 - | Rkmpp 669 - | Disabled 668 + type t = [ 669 + | `Nvenc 670 + | `Qsv 671 + | `Vaapi 672 + | `Rkmpp 673 + | `Disabled 674 + ] 670 675 671 676 val jsont : t Jsont.t 672 677 end ··· 674 679 675 680 module ToneMapping : sig 676 681 module T : sig 677 - type t = 678 - | Hable 679 - | Mobius 680 - | Reinhard 681 - | Disabled 682 + type t = [ 683 + | `Hable 684 + | `Mobius 685 + | `Reinhard 686 + | `Disabled 687 + ] 682 688 683 689 val jsont : t Jsont.t 684 690 end ··· 717 723 @param with_partners Include assets shared by partners 718 724 @param with_stacked Include stacked assets in the response. When true, only primary assets from stacks are returned. 719 725 *) 720 - val get_time_buckets : ?album_id:string -> ?is_favorite:string -> ?is_trashed:string -> ?key:string -> ?order:string -> ?person_id:string -> ?slug:string -> ?tag_id:string -> ?user_id:string -> ?visibility:string -> ?with_coordinates:string -> ?with_partners:string -> ?with_stacked:string -> Client_.t -> unit -> ResponseDto.t 726 + val get_time_buckets : ?album_id:string -> ?is_favorite:string -> ?is_trashed:string -> ?key:string -> ?order:string -> ?person_id:string -> ?slug:string -> ?tag_id:string -> ?user_id:string -> ?visibility:string -> ?with_coordinates:string -> ?with_partners:string -> ?with_stacked:string -> t -> unit -> ResponseDto.t 721 727 end 722 728 723 729 module Template : sig ··· 748 754 (** Render email template 749 755 750 756 Retrieve a preview of the provided email template. *) 751 - val get_notification_template_admin : name:string -> body:Dto.t -> Client_.t -> unit -> ResponseDto.t 757 + val get_notification_template_admin : name:string -> body:Dto.t -> t -> unit -> ResponseDto.t 752 758 end 753 759 754 760 module Tags : sig ··· 845 851 (** Retrieve tags 846 852 847 853 Retrieve a list of all tags. *) 848 - val get_all_tags : Client_.t -> unit -> ResponseDto.t 854 + val get_all_tags : t -> unit -> ResponseDto.t 849 855 850 856 (** Create a tag 851 857 852 858 Create a new tag by providing a name and optional color. *) 853 - val create_tag : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 859 + val create_tag : body:CreateDto.t -> t -> unit -> ResponseDto.t 854 860 855 861 (** Upsert tags 856 862 857 863 Create or update multiple tags in a single request. *) 858 - val upsert_tags : body:TagUpsert.Dto.t -> Client_.t -> unit -> ResponseDto.t 864 + val upsert_tags : body:TagUpsert.Dto.t -> t -> unit -> ResponseDto.t 859 865 860 866 (** Retrieve a tag 861 867 862 868 Retrieve a specific tag by its ID. *) 863 - val get_tag_by_id : id:string -> Client_.t -> unit -> ResponseDto.t 869 + val get_tag_by_id : id:string -> t -> unit -> ResponseDto.t 864 870 865 871 (** Update a tag 866 872 867 873 Update an existing tag identified by its ID. *) 868 - val update_tag : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 874 + val update_tag : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 869 875 end 870 876 871 877 module TagBulkAssets : sig ··· 896 902 (** Tag assets 897 903 898 904 Add multiple tags to multiple assets in a single request. *) 899 - val bulk_tag_assets : body:Dto.t -> Client_.t -> unit -> ResponseDto.t 905 + val bulk_tag_assets : body:Dto.t -> t -> unit -> ResponseDto.t 900 906 end 901 907 902 908 module SystemConfigUser : sig ··· 969 975 (** Get storage template options 970 976 971 977 Retrieve exemplary storage template options. *) 972 - val get_storage_template_options : Client_.t -> unit -> Dto.t 978 + val get_storage_template_options : t -> unit -> Dto.t 973 979 end 974 980 975 981 module SystemConfigTemplateEmails : sig ··· 1076 1082 (** Send test email 1077 1083 1078 1084 Send a test email using the provided SMTP configuration. *) 1079 - val send_test_email_admin : body:SystemConfigSmtp.Dto.t -> Client_.t -> unit -> ResponseDto.t 1085 + val send_test_email_admin : body:SystemConfigSmtp.Dto.t -> t -> unit -> ResponseDto.t 1080 1086 end 1081 1087 1082 1088 module SystemConfigNotifications : sig ··· 1494 1500 1495 1501 module SyncRequest : sig 1496 1502 module Type : sig 1497 - type t = 1498 - | Albums_v1 1499 - | Album_users_v1 1500 - | Album_to_assets_v1 1501 - | Album_assets_v1 1502 - | Album_asset_exifs_v1 1503 - | Assets_v1 1504 - | Asset_exifs_v1 1505 - | Asset_metadata_v1 1506 - | Auth_users_v1 1507 - | Memories_v1 1508 - | Memory_to_assets_v1 1509 - | Partners_v1 1510 - | Partner_assets_v1 1511 - | Partner_asset_exifs_v1 1512 - | Partner_stacks_v1 1513 - | Stacks_v1 1514 - | Users_v1 1515 - | People_v1 1516 - | Asset_faces_v1 1517 - | User_metadata_v1 1503 + type t = [ 1504 + | `Albums_v1 1505 + | `Album_users_v1 1506 + | `Album_to_assets_v1 1507 + | `Album_assets_v1 1508 + | `Album_asset_exifs_v1 1509 + | `Assets_v1 1510 + | `Asset_exifs_v1 1511 + | `Asset_metadata_v1 1512 + | `Auth_users_v1 1513 + | `Memories_v1 1514 + | `Memory_to_assets_v1 1515 + | `Partners_v1 1516 + | `Partner_assets_v1 1517 + | `Partner_asset_exifs_v1 1518 + | `Partner_stacks_v1 1519 + | `Stacks_v1 1520 + | `Users_v1 1521 + | `People_v1 1522 + | `Asset_faces_v1 1523 + | `User_metadata_v1 1524 + ] 1518 1525 1519 1526 val jsont : t Jsont.t 1520 1527 end ··· 1691 1698 1692 1699 module SyncEntity : sig 1693 1700 module Type : sig 1694 - type t = 1695 - | Auth_user_v1 1696 - | User_v1 1697 - | User_delete_v1 1698 - | Asset_v1 1699 - | Asset_delete_v1 1700 - | Asset_exif_v1 1701 - | Asset_metadata_v1 1702 - | Asset_metadata_delete_v1 1703 - | Partner_v1 1704 - | Partner_delete_v1 1705 - | Partner_asset_v1 1706 - | Partner_asset_backfill_v1 1707 - | Partner_asset_delete_v1 1708 - | Partner_asset_exif_v1 1709 - | Partner_asset_exif_backfill_v1 1710 - | Partner_stack_backfill_v1 1711 - | Partner_stack_delete_v1 1712 - | Partner_stack_v1 1713 - | Album_v1 1714 - | Album_delete_v1 1715 - | Album_user_v1 1716 - | Album_user_backfill_v1 1717 - | Album_user_delete_v1 1718 - | Album_asset_create_v1 1719 - | Album_asset_update_v1 1720 - | Album_asset_backfill_v1 1721 - | Album_asset_exif_create_v1 1722 - | Album_asset_exif_update_v1 1723 - | Album_asset_exif_backfill_v1 1724 - | Album_to_asset_v1 1725 - | Album_to_asset_delete_v1 1726 - | Album_to_asset_backfill_v1 1727 - | Memory_v1 1728 - | Memory_delete_v1 1729 - | Memory_to_asset_v1 1730 - | Memory_to_asset_delete_v1 1731 - | Stack_v1 1732 - | Stack_delete_v1 1733 - | Person_v1 1734 - | Person_delete_v1 1735 - | Asset_face_v1 1736 - | Asset_face_delete_v1 1737 - | User_metadata_v1 1738 - | User_metadata_delete_v1 1739 - | Sync_ack_v1 1740 - | Sync_reset_v1 1741 - | Sync_complete_v1 1701 + type t = [ 1702 + | `Auth_user_v1 1703 + | `User_v1 1704 + | `User_delete_v1 1705 + | `Asset_v1 1706 + | `Asset_delete_v1 1707 + | `Asset_exif_v1 1708 + | `Asset_metadata_v1 1709 + | `Asset_metadata_delete_v1 1710 + | `Partner_v1 1711 + | `Partner_delete_v1 1712 + | `Partner_asset_v1 1713 + | `Partner_asset_backfill_v1 1714 + | `Partner_asset_delete_v1 1715 + | `Partner_asset_exif_v1 1716 + | `Partner_asset_exif_backfill_v1 1717 + | `Partner_stack_backfill_v1 1718 + | `Partner_stack_delete_v1 1719 + | `Partner_stack_v1 1720 + | `Album_v1 1721 + | `Album_delete_v1 1722 + | `Album_user_v1 1723 + | `Album_user_backfill_v1 1724 + | `Album_user_delete_v1 1725 + | `Album_asset_create_v1 1726 + | `Album_asset_update_v1 1727 + | `Album_asset_backfill_v1 1728 + | `Album_asset_exif_create_v1 1729 + | `Album_asset_exif_update_v1 1730 + | `Album_asset_exif_backfill_v1 1731 + | `Album_to_asset_v1 1732 + | `Album_to_asset_delete_v1 1733 + | `Album_to_asset_backfill_v1 1734 + | `Memory_v1 1735 + | `Memory_delete_v1 1736 + | `Memory_to_asset_v1 1737 + | `Memory_to_asset_delete_v1 1738 + | `Stack_v1 1739 + | `Stack_delete_v1 1740 + | `Person_v1 1741 + | `Person_delete_v1 1742 + | `Asset_face_v1 1743 + | `Asset_face_delete_v1 1744 + | `User_metadata_v1 1745 + | `User_metadata_delete_v1 1746 + | `Sync_ack_v1 1747 + | `Sync_reset_v1 1748 + | `Sync_complete_v1 1749 + ] 1742 1750 1743 1751 val jsont : t Jsont.t 1744 1752 end ··· 2147 2155 (** Retrieve acknowledgements 2148 2156 2149 2157 Retrieve the synchronization acknowledgments for the current session. *) 2150 - val get_sync_ack : Client_.t -> unit -> Dto.t 2158 + val get_sync_ack : t -> unit -> Dto.t 2151 2159 end 2152 2160 2153 2161 module StorageFolder : sig 2154 2162 module T : sig 2155 - type t = 2156 - | Encoded_video 2157 - | Library 2158 - | Upload 2159 - | Profile 2160 - | Thumbs 2161 - | Backups 2163 + type t = [ 2164 + | `Encoded_video 2165 + | `Library 2166 + | `Upload 2167 + | `Profile 2168 + | `Thumbs 2169 + | `Backups 2170 + ] 2162 2171 2163 2172 val jsont : t Jsont.t 2164 2173 end ··· 2248 2257 (** Search asset statistics 2249 2258 2250 2259 Retrieve statistical data about assets based on search criteria, such as the total matching count. *) 2251 - val search_asset_statistics : body:StatisticsSearch.Dto.t -> Client_.t -> unit -> ResponseDto.t 2260 + val search_asset_statistics : body:StatisticsSearch.Dto.t -> t -> unit -> ResponseDto.t 2252 2261 end 2253 2262 2254 2263 module Source : sig 2255 2264 module Type : sig 2256 - type t = 2257 - | Machine_learning 2258 - | Exif 2259 - | Manual 2265 + type t = [ 2266 + | `Machine_learning 2267 + | `Exif 2268 + | `Manual 2269 + ] 2260 2270 2261 2271 val jsont : t Jsont.t 2262 2272 end ··· 2512 2522 (** Retrieve user sessions 2513 2523 2514 2524 Retrieve all sessions for a specific user. *) 2515 - val get_user_sessions_admin : id:string -> Client_.t -> unit -> ResponseDto.t 2525 + val get_user_sessions_admin : id:string -> t -> unit -> ResponseDto.t 2516 2526 2517 2527 (** Retrieve sessions 2518 2528 2519 2529 Retrieve a list of sessions for the user. *) 2520 - val get_sessions : Client_.t -> unit -> ResponseDto.t 2530 + val get_sessions : t -> unit -> ResponseDto.t 2521 2531 2522 2532 (** Update a session 2523 2533 2524 2534 Update a specific session identified by id. *) 2525 - val update_session : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 2535 + val update_session : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 2526 2536 end 2527 2537 2528 2538 module SessionCreate : sig ··· 2558 2568 (** Create a session 2559 2569 2560 2570 Create a session as a child to the current session. This endpoint is used for casting. *) 2561 - val create_session : body:Session.CreateDto.t -> Client_.t -> unit -> ResponseDto.t 2571 + val create_session : body:Session.CreateDto.t -> t -> unit -> ResponseDto.t 2562 2572 end 2563 2573 2564 2574 module ServerVersionHistory : sig ··· 2580 2590 (** Get version history 2581 2591 2582 2592 Retrieve a list of past versions the server has been on. *) 2583 - val get_version_history : Client_.t -> unit -> ResponseDto.t 2593 + val get_version_history : t -> unit -> ResponseDto.t 2584 2594 end 2585 2595 2586 2596 module ServerVersion : sig ··· 2602 2612 (** Get server version 2603 2613 2604 2614 Retrieve the current server version in semantic versioning (semver) format. *) 2605 - val get_server_version : Client_.t -> unit -> ResponseDto.t 2615 + val get_server_version : t -> unit -> ResponseDto.t 2606 2616 end 2607 2617 2608 2618 module ServerTheme : sig ··· 2620 2630 (** Get theme 2621 2631 2622 2632 Retrieve the custom CSS, if existent. *) 2623 - val get_theme : Client_.t -> unit -> Dto.t 2633 + val get_theme : t -> unit -> Dto.t 2624 2634 end 2625 2635 2626 2636 module ServerStorage : sig ··· 2650 2660 (** Get storage 2651 2661 2652 2662 Retrieve the current storage utilization information of the server. *) 2653 - val get_storage : Client_.t -> unit -> ResponseDto.t 2663 + val get_storage : t -> unit -> ResponseDto.t 2654 2664 end 2655 2665 2656 2666 module ServerPing : sig ··· 2668 2678 (** Ping 2669 2679 2670 2680 Pong *) 2671 - val ping_server : Client_.t -> unit -> Response.t 2681 + val ping_server : t -> unit -> Response.t 2672 2682 end 2673 2683 2674 2684 module ServerMediaTypes : sig ··· 2690 2700 (** Get supported media types 2691 2701 2692 2702 Retrieve all media types supported by the server. *) 2693 - val get_supported_media_types : Client_.t -> unit -> ResponseDto.t 2703 + val get_supported_media_types : t -> unit -> ResponseDto.t 2694 2704 end 2695 2705 2696 2706 module ServerFeatures : sig ··· 2736 2746 (** Get features 2737 2747 2738 2748 Retrieve available features supported by this server. *) 2739 - val get_server_features : Client_.t -> unit -> Dto.t 2749 + val get_server_features : t -> unit -> Dto.t 2740 2750 end 2741 2751 2742 2752 module ServerConfig : sig ··· 2774 2784 (** Get config 2775 2785 2776 2786 Retrieve the current server configuration. *) 2777 - val get_server_config : Client_.t -> unit -> Dto.t 2787 + val get_server_config : t -> unit -> Dto.t 2778 2788 end 2779 2789 2780 2790 module ServerApkLinks : sig ··· 2798 2808 (** Get APK links 2799 2809 2800 2810 Retrieve links to the APKs for the current server version. *) 2801 - val get_apk_links : Client_.t -> unit -> Dto.t 2811 + val get_apk_links : t -> unit -> Dto.t 2802 2812 end 2803 2813 2804 2814 module ServerAbout : sig ··· 2856 2866 (** Get server information 2857 2867 2858 2868 Retrieve a list of information about the server. *) 2859 - val get_about_info : Client_.t -> unit -> ResponseDto.t 2869 + val get_about_info : t -> unit -> ResponseDto.t 2860 2870 end 2861 2871 2862 2872 module SearchSuggestion : sig 2863 2873 module Type : sig 2864 - type t = 2865 - | Country 2866 - | State 2867 - | City 2868 - | Camera_make 2869 - | Camera_model 2870 - | Camera_lens_model 2874 + type t = [ 2875 + | `Country 2876 + | `State 2877 + | `City 2878 + | `Camera_make 2879 + | `Camera_model 2880 + | `Camera_lens_model 2881 + ] 2871 2882 2872 2883 val jsont : t Jsont.t 2873 2884 end ··· 2951 2962 (** Retrieve reverse geocoding state 2952 2963 2953 2964 Retrieve the current state of the reverse geocoding import. *) 2954 - val get_reverse_geocoding_state : Client_.t -> unit -> ResponseDto.t 2965 + val get_reverse_geocoding_state : t -> unit -> ResponseDto.t 2955 2966 end 2956 2967 2957 2968 module ReactionLevel : sig 2958 2969 module T : sig 2959 - type t = 2960 - | Album 2961 - | Asset 2970 + type t = [ 2971 + | `Album 2972 + | `Asset 2973 + ] 2962 2974 2963 2975 val jsont : t Jsont.t 2964 2976 end ··· 2966 2978 2967 2979 module Reaction : sig 2968 2980 module Type : sig 2969 - type t = 2970 - | Comment 2971 - | Like 2981 + type t = [ 2982 + | `Comment 2983 + | `Like 2984 + ] 2972 2985 2973 2986 val jsont : t Jsont.t 2974 2987 end ··· 3143 3156 (** List all queues 3144 3157 3145 3158 Retrieves a list of queues. *) 3146 - val get_queues : Client_.t -> unit -> ResponseDto.t 3159 + val get_queues : t -> unit -> ResponseDto.t 3147 3160 3148 3161 (** Retrieve a queue 3149 3162 3150 3163 Retrieves a specific queue by its name. *) 3151 - val get_queue : name:string -> Client_.t -> unit -> ResponseDto.t 3164 + val get_queue : name:string -> t -> unit -> ResponseDto.t 3152 3165 3153 3166 (** Update a queue 3154 3167 3155 3168 Change the paused status of a specific queue. *) 3156 - val update_queue : name:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 3169 + val update_queue : name:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 3157 3170 end 3158 3171 3159 3172 module QueueName : sig 3160 3173 module T : sig 3161 - type t = 3162 - | Thumbnail_generation 3163 - | Metadata_extraction 3164 - | Video_conversion 3165 - | Face_detection 3166 - | Facial_recognition 3167 - | Smart_search 3168 - | Duplicate_detection 3169 - | Background_task 3170 - | Storage_template_migration 3171 - | Migration 3172 - | Search 3173 - | Sidecar 3174 - | Library 3175 - | Notifications 3176 - | Backup_database 3177 - | Ocr 3178 - | Workflow 3179 - | Editor 3174 + type t = [ 3175 + | `Thumbnail_generation 3176 + | `Metadata_extraction 3177 + | `Video_conversion 3178 + | `Face_detection 3179 + | `Facial_recognition 3180 + | `Smart_search 3181 + | `Duplicate_detection 3182 + | `Background_task 3183 + | `Storage_template_migration 3184 + | `Migration 3185 + | `Search 3186 + | `Sidecar 3187 + | `Library 3188 + | `Notifications 3189 + | `Backup_database 3190 + | `Ocr 3191 + | `Workflow 3192 + | `Editor 3193 + ] 3180 3194 3181 3195 val jsont : t Jsont.t 3182 3196 end ··· 3184 3198 3185 3199 module QueueJob : sig 3186 3200 module Status : sig 3187 - type t = 3188 - | Active 3189 - | Failed 3190 - | Completed 3191 - | Delayed 3192 - | Waiting 3193 - | Paused 3201 + type t = [ 3202 + | `Active 3203 + | `Failed 3204 + | `Completed 3205 + | `Delayed 3206 + | `Waiting 3207 + | `Paused 3208 + ] 3194 3209 3195 3210 val jsont : t Jsont.t 3196 3211 end ··· 3215 3230 (** Retrieve queue jobs 3216 3231 3217 3232 Retrieves a list of queue jobs from the specified queue. *) 3218 - val get_queue_jobs : name:string -> ?status:string -> Client_.t -> unit -> ResponseDto.t 3233 + val get_queue_jobs : name:string -> ?status:string -> t -> unit -> ResponseDto.t 3219 3234 end 3220 3235 3221 3236 module QueueDelete : sig ··· 3249 3264 end 3250 3265 3251 3266 module T : sig 3252 - type t = 3253 - | Start 3254 - | Pause 3255 - | Resume 3256 - | Empty 3257 - | Clear_failed 3267 + type t = [ 3268 + | `Start 3269 + | `Pause 3270 + | `Resume 3271 + | `Empty 3272 + | `Clear_failed 3273 + ] 3258 3274 3259 3275 val jsont : t Jsont.t 3260 3276 end ··· 3277 3293 (** Run jobs 3278 3294 3279 3295 Queue all assets for a specific job type. Defaults to only queueing assets that have not yet been processed, but the force command can be used to re-process all assets. *) 3280 - val run_queue_command_legacy : name:string -> body:QueueCommand.Dto.t -> Client_.t -> unit -> Dto.t 3296 + val run_queue_command_legacy : name:string -> body:QueueCommand.Dto.t -> t -> unit -> Dto.t 3281 3297 end 3282 3298 3283 3299 module QueuesResponseLegacy : sig ··· 3329 3345 (** Retrieve queue counts and status 3330 3346 3331 3347 Retrieve the counts of the current queue, as well as the current status. *) 3332 - val get_queues_legacy : Client_.t -> unit -> Dto.t 3348 + val get_queues_legacy : t -> unit -> Dto.t 3333 3349 end 3334 3350 3335 3351 module Purchase : sig ··· 3362 3378 3363 3379 module PluginTrigger : sig 3364 3380 module Type : sig 3365 - type t = 3366 - | Asset_create 3367 - | Person_recognized 3381 + type t = [ 3382 + | `Asset_create 3383 + | `Person_recognized 3384 + ] 3368 3385 3369 3386 val jsont : t Jsont.t 3370 3387 end ··· 3385 3402 (** List all plugin triggers 3386 3403 3387 3404 Retrieve a list of all available plugin triggers. *) 3388 - val get_plugin_triggers : Client_.t -> unit -> ResponseDto.t 3405 + val get_plugin_triggers : t -> unit -> ResponseDto.t 3389 3406 end 3390 3407 3391 3408 module PluginContext : sig 3392 3409 module Type : sig 3393 - type t = 3394 - | Asset 3395 - | Album 3396 - | Person 3410 + type t = [ 3411 + | `Asset 3412 + | `Album 3413 + | `Person 3414 + ] 3397 3415 3398 3416 val jsont : t Jsont.t 3399 3417 end ··· 3482 3500 (** List all plugins 3483 3501 3484 3502 Retrieve a list of plugins available to the authenticated user. *) 3485 - val get_plugins : Client_.t -> unit -> ResponseDto.t 3503 + val get_plugins : t -> unit -> ResponseDto.t 3486 3504 3487 3505 (** Retrieve a plugin 3488 3506 3489 3507 Retrieve information about a specific plugin by its ID. *) 3490 - val get_plugin : id:string -> Client_.t -> unit -> ResponseDto.t 3508 + val get_plugin : id:string -> t -> unit -> ResponseDto.t 3491 3509 end 3492 3510 3493 3511 module Places : sig ··· 3513 3531 (** Search places 3514 3532 3515 3533 Search for places by name. *) 3516 - val search_places : name:string -> Client_.t -> unit -> ResponseDto.t 3534 + val search_places : name:string -> t -> unit -> ResponseDto.t 3517 3535 end 3518 3536 3519 3537 module PinCodeSetup : sig ··· 3576 3594 (** Get person statistics 3577 3595 3578 3596 Retrieve statistics about a specific person. *) 3579 - val get_person_statistics : id:string -> Client_.t -> unit -> ResponseDto.t 3597 + val get_person_statistics : id:string -> t -> unit -> ResponseDto.t 3580 3598 end 3581 3599 3582 3600 module Permission : sig 3583 3601 module T : sig 3584 - type t = 3585 - | All 3586 - | Activity_create 3587 - | Activity_read 3588 - | Activity_update 3589 - | Activity_delete 3590 - | Activity_statistics 3591 - | Api_key_create 3592 - | Api_key_read 3593 - | Api_key_update 3594 - | Api_key_delete 3595 - | Asset_read 3596 - | Asset_update 3597 - | Asset_delete 3598 - | Asset_statistics 3599 - | Asset_share 3600 - | Asset_view 3601 - | Asset_download 3602 - | Asset_upload 3603 - | Asset_replace 3604 - | Asset_copy 3605 - | Asset_derive 3606 - | Asset_edit_get 3607 - | Asset_edit_create 3608 - | Asset_edit_delete 3609 - | Album_create 3610 - | Album_read 3611 - | Album_update 3612 - | Album_delete 3613 - | Album_statistics 3614 - | Album_share 3615 - | Album_download 3616 - | Album_asset_create 3617 - | Album_asset_delete 3618 - | Album_user_create 3619 - | Album_user_update 3620 - | Album_user_delete 3621 - | Auth_change_password 3622 - | Auth_device_delete 3623 - | Archive_read 3624 - | Backup_list 3625 - | Backup_download 3626 - | Backup_upload 3627 - | Backup_delete 3628 - | Duplicate_read 3629 - | Duplicate_delete 3630 - | Face_create 3631 - | Face_read 3632 - | Face_update 3633 - | Face_delete 3634 - | Folder_read 3635 - | Job_create 3636 - | Job_read 3637 - | Library_create 3638 - | Library_read 3639 - | Library_update 3640 - | Library_delete 3641 - | Library_statistics 3642 - | Timeline_read 3643 - | Timeline_download 3644 - | Maintenance 3645 - | Map_read 3646 - | Map_search 3647 - | Memory_create 3648 - | Memory_read 3649 - | Memory_update 3650 - | Memory_delete 3651 - | Memory_statistics 3652 - | Memory_asset_create 3653 - | Memory_asset_delete 3654 - | Notification_create 3655 - | Notification_read 3656 - | Notification_update 3657 - | Notification_delete 3658 - | Partner_create 3659 - | Partner_read 3660 - | Partner_update 3661 - | Partner_delete 3662 - | Person_create 3663 - | Person_read 3664 - | Person_update 3665 - | Person_delete 3666 - | Person_statistics 3667 - | Person_merge 3668 - | Person_reassign 3669 - | Pin_code_create 3670 - | Pin_code_update 3671 - | Pin_code_delete 3672 - | Plugin_create 3673 - | Plugin_read 3674 - | Plugin_update 3675 - | Plugin_delete 3676 - | Server_about 3677 - | Server_apk_links 3678 - | Server_storage 3679 - | Server_statistics 3680 - | Server_version_check 3681 - | Server_license_read 3682 - | Server_license_update 3683 - | Server_license_delete 3684 - | Session_create 3685 - | Session_read 3686 - | Session_update 3687 - | Session_delete 3688 - | Session_lock 3689 - | Shared_link_create 3690 - | Shared_link_read 3691 - | Shared_link_update 3692 - | Shared_link_delete 3693 - | Stack_create 3694 - | Stack_read 3695 - | Stack_update 3696 - | Stack_delete 3697 - | Sync_stream 3698 - | Sync_checkpoint_read 3699 - | Sync_checkpoint_update 3700 - | Sync_checkpoint_delete 3701 - | System_config_read 3702 - | System_config_update 3703 - | System_metadata_read 3704 - | System_metadata_update 3705 - | Tag_create 3706 - | Tag_read 3707 - | Tag_update 3708 - | Tag_delete 3709 - | Tag_asset 3710 - | User_read 3711 - | User_update 3712 - | User_license_create 3713 - | User_license_read 3714 - | User_license_update 3715 - | User_license_delete 3716 - | User_onboarding_read 3717 - | User_onboarding_update 3718 - | User_onboarding_delete 3719 - | User_preference_read 3720 - | User_preference_update 3721 - | User_profile_image_create 3722 - | User_profile_image_read 3723 - | User_profile_image_update 3724 - | User_profile_image_delete 3725 - | Queue_read 3726 - | Queue_update 3727 - | Queue_job_create 3728 - | Queue_job_read 3729 - | Queue_job_update 3730 - | Queue_job_delete 3731 - | Workflow_create 3732 - | Workflow_read 3733 - | Workflow_update 3734 - | Workflow_delete 3735 - | Admin_user_create 3736 - | Admin_user_read 3737 - | Admin_user_update 3738 - | Admin_user_delete 3739 - | Admin_session_read 3740 - | Admin_auth_unlink_all 3602 + type t = [ 3603 + | `All 3604 + | `Activity_create 3605 + | `Activity_read 3606 + | `Activity_update 3607 + | `Activity_delete 3608 + | `Activity_statistics 3609 + | `Api_key_create 3610 + | `Api_key_read 3611 + | `Api_key_update 3612 + | `Api_key_delete 3613 + | `Asset_read 3614 + | `Asset_update 3615 + | `Asset_delete 3616 + | `Asset_statistics 3617 + | `Asset_share 3618 + | `Asset_view 3619 + | `Asset_download 3620 + | `Asset_upload 3621 + | `Asset_replace 3622 + | `Asset_copy 3623 + | `Asset_derive 3624 + | `Asset_edit_get 3625 + | `Asset_edit_create 3626 + | `Asset_edit_delete 3627 + | `Album_create 3628 + | `Album_read 3629 + | `Album_update 3630 + | `Album_delete 3631 + | `Album_statistics 3632 + | `Album_share 3633 + | `Album_download 3634 + | `Album_asset_create 3635 + | `Album_asset_delete 3636 + | `Album_user_create 3637 + | `Album_user_update 3638 + | `Album_user_delete 3639 + | `Auth_change_password 3640 + | `Auth_device_delete 3641 + | `Archive_read 3642 + | `Backup_list 3643 + | `Backup_download 3644 + | `Backup_upload 3645 + | `Backup_delete 3646 + | `Duplicate_read 3647 + | `Duplicate_delete 3648 + | `Face_create 3649 + | `Face_read 3650 + | `Face_update 3651 + | `Face_delete 3652 + | `Folder_read 3653 + | `Job_create 3654 + | `Job_read 3655 + | `Library_create 3656 + | `Library_read 3657 + | `Library_update 3658 + | `Library_delete 3659 + | `Library_statistics 3660 + | `Timeline_read 3661 + | `Timeline_download 3662 + | `Maintenance 3663 + | `Map_read 3664 + | `Map_search 3665 + | `Memory_create 3666 + | `Memory_read 3667 + | `Memory_update 3668 + | `Memory_delete 3669 + | `Memory_statistics 3670 + | `Memory_asset_create 3671 + | `Memory_asset_delete 3672 + | `Notification_create 3673 + | `Notification_read 3674 + | `Notification_update 3675 + | `Notification_delete 3676 + | `Partner_create 3677 + | `Partner_read 3678 + | `Partner_update 3679 + | `Partner_delete 3680 + | `Person_create 3681 + | `Person_read 3682 + | `Person_update 3683 + | `Person_delete 3684 + | `Person_statistics 3685 + | `Person_merge 3686 + | `Person_reassign 3687 + | `Pin_code_create 3688 + | `Pin_code_update 3689 + | `Pin_code_delete 3690 + | `Plugin_create 3691 + | `Plugin_read 3692 + | `Plugin_update 3693 + | `Plugin_delete 3694 + | `Server_about 3695 + | `Server_apk_links 3696 + | `Server_storage 3697 + | `Server_statistics 3698 + | `Server_version_check 3699 + | `Server_license_read 3700 + | `Server_license_update 3701 + | `Server_license_delete 3702 + | `Session_create 3703 + | `Session_read 3704 + | `Session_update 3705 + | `Session_delete 3706 + | `Session_lock 3707 + | `Shared_link_create 3708 + | `Shared_link_read 3709 + | `Shared_link_update 3710 + | `Shared_link_delete 3711 + | `Stack_create 3712 + | `Stack_read 3713 + | `Stack_update 3714 + | `Stack_delete 3715 + | `Sync_stream 3716 + | `Sync_checkpoint_read 3717 + | `Sync_checkpoint_update 3718 + | `Sync_checkpoint_delete 3719 + | `System_config_read 3720 + | `System_config_update 3721 + | `System_metadata_read 3722 + | `System_metadata_update 3723 + | `Tag_create 3724 + | `Tag_read 3725 + | `Tag_update 3726 + | `Tag_delete 3727 + | `Tag_asset 3728 + | `User_read 3729 + | `User_update 3730 + | `User_license_create 3731 + | `User_license_read 3732 + | `User_license_update 3733 + | `User_license_delete 3734 + | `User_onboarding_read 3735 + | `User_onboarding_update 3736 + | `User_onboarding_delete 3737 + | `User_preference_read 3738 + | `User_preference_update 3739 + | `User_profile_image_create 3740 + | `User_profile_image_read 3741 + | `User_profile_image_update 3742 + | `User_profile_image_delete 3743 + | `Queue_read 3744 + | `Queue_update 3745 + | `Queue_job_create 3746 + | `Queue_job_read 3747 + | `Queue_job_update 3748 + | `Queue_job_delete 3749 + | `Workflow_create 3750 + | `Workflow_read 3751 + | `Workflow_update 3752 + | `Workflow_delete 3753 + | `Admin_user_create 3754 + | `Admin_user_read 3755 + | `Admin_user_update 3756 + | `Admin_user_delete 3757 + | `Admin_session_read 3758 + | `Admin_auth_unlink_all 3759 + ] 3741 3760 3742 3761 val jsont : t Jsont.t 3743 3762 end ··· 3792 3811 (** List all API keys 3793 3812 3794 3813 Retrieve all API keys of the current user. *) 3795 - val get_api_keys : Client_.t -> unit -> ResponseDto.t 3814 + val get_api_keys : t -> unit -> ResponseDto.t 3796 3815 3797 3816 (** Retrieve the current API key 3798 3817 3799 3818 Retrieve the API key that is used to access this endpoint. *) 3800 - val get_my_api_key : Client_.t -> unit -> ResponseDto.t 3819 + val get_my_api_key : t -> unit -> ResponseDto.t 3801 3820 3802 3821 (** Retrieve an API key 3803 3822 3804 3823 Retrieve an API key by its ID. The current user must own this API key. *) 3805 - val get_api_key : id:string -> Client_.t -> unit -> ResponseDto.t 3824 + val get_api_key : id:string -> t -> unit -> ResponseDto.t 3806 3825 3807 3826 (** Update an API key 3808 3827 3809 3828 Updates the name and permissions of an API key by its ID. The current user must own this API key. *) 3810 - val update_api_key : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 3829 + val update_api_key : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 3811 3830 end 3812 3831 3813 3832 module ApikeyCreate : sig ··· 3827 3846 (** Create an API key 3828 3847 3829 3848 Creates a new API key. It will be limited to the permissions specified. *) 3830 - val create_api_key : body:Apikey.CreateDto.t -> Client_.t -> unit -> ResponseDto.t 3849 + val create_api_key : body:Apikey.CreateDto.t -> t -> unit -> ResponseDto.t 3831 3850 end 3832 3851 3833 3852 module PeopleUpdate : sig ··· 3870 3889 3871 3890 module PartnerDirection : sig 3872 3891 module T : sig 3873 - type t = 3874 - | Shared_by 3875 - | Shared_with 3892 + type t = [ 3893 + | `Shared_by 3894 + | `Shared_with 3895 + ] 3876 3896 3877 3897 val jsont : t Jsont.t 3878 3898 end ··· 3927 3947 (** Retrieve partners 3928 3948 3929 3949 Retrieve a list of partners with whom assets are shared. *) 3930 - val get_partners : direction:string -> Client_.t -> unit -> ResponseDto.t 3950 + val get_partners : direction:string -> t -> unit -> ResponseDto.t 3931 3951 3932 3952 (** Create a partner 3933 3953 3934 3954 Create a new partner to share assets with. *) 3935 - val create_partner : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 3955 + val create_partner : body:CreateDto.t -> t -> unit -> ResponseDto.t 3936 3956 3937 3957 (** Create a partner 3938 3958 3939 3959 Create a new partner to share assets with. *) 3940 - val create_partner_deprecated : id:string -> Client_.t -> unit -> ResponseDto.t 3960 + val create_partner_deprecated : id:string -> t -> unit -> ResponseDto.t 3941 3961 3942 3962 (** Update a partner 3943 3963 3944 3964 Specify whether a partner's assets should appear in the user's timeline. *) 3945 - val update_partner : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 3965 + val update_partner : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 3946 3966 end 3947 3967 3948 3968 module Onboarding : sig ··· 3971 3991 (** Retrieve user onboarding 3972 3992 3973 3993 Retrieve the onboarding status of the current user. *) 3974 - val get_user_onboarding : Client_.t -> unit -> ResponseDto.t 3994 + val get_user_onboarding : t -> unit -> ResponseDto.t 3975 3995 3976 3996 (** Update user onboarding 3977 3997 3978 3998 Update the onboarding status of the current user. *) 3979 - val set_user_onboarding : body:Dto.t -> Client_.t -> unit -> ResponseDto.t 3999 + val set_user_onboarding : body:Dto.t -> t -> unit -> ResponseDto.t 3980 4000 end 3981 4001 3982 4002 module OnThisDay : sig ··· 4015 4035 4016 4036 module OauthTokenEndpointAuthMethod : sig 4017 4037 module T : sig 4018 - type t = 4019 - | Client_secret_post 4020 - | Client_secret_basic 4038 + type t = [ 4039 + | `Client_secret_post 4040 + | `Client_secret_basic 4041 + ] 4021 4042 4022 4043 val jsont : t Jsont.t 4023 4044 end ··· 4055 4076 (** Start OAuth 4056 4077 4057 4078 Initiate the OAuth authorization process. *) 4058 - val start_oauth : body:OauthConfig.Dto.t -> Client_.t -> unit -> ResponseDto.t 4079 + val start_oauth : body:OauthConfig.Dto.t -> t -> unit -> ResponseDto.t 4059 4080 end 4060 4081 4061 4082 module OauthCallback : sig ··· 4092 4113 4093 4114 module NotificationLevel : sig 4094 4115 module T : sig 4095 - type t = 4096 - | Success 4097 - | Error 4098 - | Warning 4099 - | Info 4116 + type t = [ 4117 + | `Success 4118 + | `Error 4119 + | `Warning 4120 + | `Info 4121 + ] 4100 4122 4101 4123 val jsont : t Jsont.t 4102 4124 end ··· 4128 4150 end 4129 4151 4130 4152 module Type : sig 4131 - type t = 4132 - | Job_failed 4133 - | Backup_failed 4134 - | System_message 4135 - | Album_invite 4136 - | Album_update 4137 - | Custom 4153 + type t = [ 4154 + | `Job_failed 4155 + | `Backup_failed 4156 + | `System_message 4157 + | `Album_invite 4158 + | `Album_update 4159 + | `Custom 4160 + ] 4138 4161 4139 4162 val jsont : t Jsont.t 4140 4163 end ··· 4190 4213 (** Create a notification 4191 4214 4192 4215 Create a new notification for a specific user. *) 4193 - val create_notification : body:CreateDto.t -> Client_.t -> unit -> Dto.t 4216 + val create_notification : body:CreateDto.t -> t -> unit -> Dto.t 4194 4217 4195 4218 (** Retrieve notifications 4196 4219 4197 4220 Retrieve a list of notifications. *) 4198 - val get_notifications : ?id:string -> ?level:string -> ?type_:string -> ?unread:string -> Client_.t -> unit -> Dto.t 4221 + val get_notifications : ?id:string -> ?level:string -> ?type_:string -> ?unread:string -> t -> unit -> Dto.t 4199 4222 4200 4223 (** Get a notification 4201 4224 4202 4225 Retrieve a specific notification identified by id. *) 4203 - val get_notification : id:string -> Client_.t -> unit -> Dto.t 4226 + val get_notification : id:string -> t -> unit -> Dto.t 4204 4227 4205 4228 (** Update a notification 4206 4229 4207 4230 Update a specific notification to set its read status. *) 4208 - val update_notification : id:string -> body:UpdateDto.t -> Client_.t -> unit -> Dto.t 4231 + val update_notification : id:string -> body:UpdateDto.t -> t -> unit -> Dto.t 4209 4232 end 4210 4233 4211 4234 module MirrorParameters : sig ··· 4242 4265 module MirrorAxis : sig 4243 4266 module T : sig 4244 4267 (** Axis to mirror along *) 4245 - type t = 4246 - | Horizontal 4247 - | Vertical 4268 + type t = [ 4269 + | `Horizontal 4270 + | `Vertical 4271 + ] 4248 4272 4249 4273 val jsont : t Jsont.t 4250 4274 end ··· 4378 4402 4379 4403 Retrieve statistics about memories, such as total count and other relevant metrics. @param size Number of memories to return 4380 4404 *) 4381 - val memories_statistics : ?for_:string -> ?is_saved:string -> ?is_trashed:string -> ?order:string -> ?size:string -> ?type_:string -> Client_.t -> unit -> ResponseDto.t 4405 + val memories_statistics : ?for_:string -> ?is_saved:string -> ?is_trashed:string -> ?order:string -> ?size:string -> ?type_:string -> t -> unit -> ResponseDto.t 4382 4406 end 4383 4407 4384 4408 module MemorySearchOrder : sig 4385 4409 module T : sig 4386 - type t = 4387 - | Asc 4388 - | Desc 4389 - | Random 4410 + type t = [ 4411 + | `Asc 4412 + | `Desc 4413 + | `Random 4414 + ] 4390 4415 4391 4416 val jsont : t Jsont.t 4392 4417 end ··· 4439 4464 (** Reverse geocode coordinates 4440 4465 4441 4466 Retrieve location information (e.g., city, country) for given latitude and longitude coordinates. *) 4442 - val reverse_geocode : lat:string -> lon:string -> Client_.t -> unit -> ResponseDto.t 4467 + val reverse_geocode : lat:string -> lon:string -> t -> unit -> ResponseDto.t 4443 4468 end 4444 4469 4445 4470 module MapMarker : sig ··· 4467 4492 (** Retrieve map markers 4468 4493 4469 4494 Retrieve a list of latitude and longitude coordinates for every asset with location data. *) 4470 - val get_map_markers : ?file_created_after:string -> ?file_created_before:string -> ?is_archived:string -> ?is_favorite:string -> ?with_partners:string -> ?with_shared_albums:string -> Client_.t -> unit -> ResponseDto.t 4495 + val get_map_markers : ?file_created_after:string -> ?file_created_before:string -> ?is_archived:string -> ?is_favorite:string -> ?with_partners:string -> ?with_shared_albums:string -> t -> unit -> ResponseDto.t 4471 4496 end 4472 4497 4473 4498 module ManualJobName : sig 4474 4499 module T : sig 4475 - type t = 4476 - | Person_cleanup 4477 - | Tag_cleanup 4478 - | User_cleanup 4479 - | Memory_cleanup 4480 - | Memory_create 4481 - | Backup_database 4500 + type t = [ 4501 + | `Person_cleanup 4502 + | `Tag_cleanup 4503 + | `User_cleanup 4504 + | `Memory_cleanup 4505 + | `Memory_create 4506 + | `Backup_database 4507 + ] 4482 4508 4483 4509 val jsont : t Jsont.t 4484 4510 end ··· 4507 4533 (** Get maintenance mode status 4508 4534 4509 4535 Fetch information about the currently running maintenance action. *) 4510 - val get_maintenance_status : Client_.t -> unit -> ResponseDto.t 4536 + val get_maintenance_status : t -> unit -> ResponseDto.t 4511 4537 end 4512 4538 4513 4539 module MaintenanceLogin : sig ··· 4538 4564 (** Log into maintenance mode 4539 4565 4540 4566 Login with maintenance token or cookie to receive current information and perform further actions. *) 4541 - val maintenance_login : body:MaintenanceLogin.Dto.t -> Client_.t -> unit -> Dto.t 4567 + val maintenance_login : body:MaintenanceLogin.Dto.t -> t -> unit -> Dto.t 4542 4568 end 4543 4569 4544 4570 module MaintenanceDetectInstallStorageFolder : sig ··· 4575 4601 (** Detect existing install 4576 4602 4577 4603 Collect integrity checks and other heuristics about local data. *) 4578 - val detect_prior_install : Client_.t -> unit -> ResponseDto.t 4604 + val detect_prior_install : t -> unit -> ResponseDto.t 4579 4605 end 4580 4606 4581 4607 module MaintenanceAction : sig 4582 4608 module T : sig 4583 - type t = 4584 - | Start 4585 - | End_ 4586 - | Select_database_restore 4587 - | Restore_database 4609 + type t = [ 4610 + | `Start 4611 + | `End_ 4612 + | `Select_database_restore 4613 + | `Restore_database 4614 + ] 4588 4615 4589 4616 val jsont : t Jsont.t 4590 4617 end ··· 4624 4651 (** Logout 4625 4652 4626 4653 Logout the current user and invalidate the session token. *) 4627 - val logout : Client_.t -> unit -> ResponseDto.t 4654 + val logout : t -> unit -> ResponseDto.t 4628 4655 end 4629 4656 4630 4657 module LoginCredential : sig ··· 4671 4698 (** Login 4672 4699 4673 4700 Login with username and password and receive a session token. *) 4674 - val login : body:LoginCredential.Dto.t -> Client_.t -> unit -> ResponseDto.t 4701 + val login : body:LoginCredential.Dto.t -> t -> unit -> ResponseDto.t 4675 4702 4676 4703 (** Finish OAuth 4677 4704 4678 4705 Complete the OAuth authorization process by exchanging the authorization code for a session token. *) 4679 - val finish_oauth : body:OauthCallback.Dto.t -> Client_.t -> unit -> ResponseDto.t 4706 + val finish_oauth : body:OauthCallback.Dto.t -> t -> unit -> ResponseDto.t 4680 4707 end 4681 4708 4682 4709 module LogLevel : sig 4683 4710 module T : sig 4684 - type t = 4685 - | Verbose 4686 - | Debug 4687 - | Log 4688 - | Warn 4689 - | Error 4690 - | Fatal 4711 + type t = [ 4712 + | `Verbose 4713 + | `Debug 4714 + | `Log 4715 + | `Warn 4716 + | `Error 4717 + | `Fatal 4718 + ] 4691 4719 4692 4720 val jsont : t Jsont.t 4693 4721 end ··· 4727 4755 (** Get product key 4728 4756 4729 4757 Retrieve information about whether the server currently has a product key registered. *) 4730 - val get_server_license : Client_.t -> unit -> ResponseDto.t 4758 + val get_server_license : t -> unit -> ResponseDto.t 4731 4759 4732 4760 (** Set server product key 4733 4761 4734 4762 Validate and set the server product key if successful. *) 4735 - val set_server_license : body:LicenseKey.Dto.t -> Client_.t -> unit -> ResponseDto.t 4763 + val set_server_license : body:LicenseKey.Dto.t -> t -> unit -> ResponseDto.t 4736 4764 4737 4765 (** Retrieve user product key 4738 4766 4739 4767 Retrieve information about whether the current user has a registered product key. *) 4740 - val get_user_license : Client_.t -> unit -> ResponseDto.t 4768 + val get_user_license : t -> unit -> ResponseDto.t 4741 4769 4742 4770 (** Set user product key 4743 4771 4744 4772 Register a product key for the current user. *) 4745 - val set_user_license : body:LicenseKey.Dto.t -> Client_.t -> unit -> ResponseDto.t 4773 + val set_user_license : body:LicenseKey.Dto.t -> t -> unit -> ResponseDto.t 4746 4774 end 4747 4775 4748 4776 module LibraryStats : sig ··· 4766 4794 (** Retrieve library statistics 4767 4795 4768 4796 Retrieve statistics for a specific external library, including number of videos, images, and storage usage. *) 4769 - val get_library_statistics : id:string -> Client_.t -> unit -> ResponseDto.t 4797 + val get_library_statistics : id:string -> t -> unit -> ResponseDto.t 4770 4798 end 4771 4799 4772 4800 module JobSettings : sig ··· 4823 4851 4824 4852 module JobName : sig 4825 4853 module T : sig 4826 - type t = 4827 - | Asset_delete 4828 - | Asset_delete_check 4829 - | Asset_detect_faces_queue_all 4830 - | Asset_detect_faces 4831 - | Asset_detect_duplicates_queue_all 4832 - | Asset_detect_duplicates 4833 - | Asset_edit_thumbnail_generation 4834 - | Asset_encode_video_queue_all 4835 - | Asset_encode_video 4836 - | Asset_empty_trash 4837 - | Asset_extract_metadata_queue_all 4838 - | Asset_extract_metadata 4839 - | Asset_file_migration 4840 - | Asset_generate_thumbnails_queue_all 4841 - | Asset_generate_thumbnails 4842 - | Audit_log_cleanup 4843 - | Audit_table_cleanup 4844 - | Database_backup 4845 - | Facial_recognition_queue_all 4846 - | Facial_recognition 4847 - | File_delete 4848 - | File_migration_queue_all 4849 - | Library_delete_check 4850 - | Library_delete 4851 - | Library_remove_asset 4852 - | Library_scan_assets_queue_all 4853 - | Library_sync_assets 4854 - | Library_sync_files_queue_all 4855 - | Library_sync_files 4856 - | Library_scan_queue_all 4857 - | Memory_cleanup 4858 - | Memory_generate 4859 - | Notifications_cleanup 4860 - | Notify_user_signup 4861 - | Notify_album_invite 4862 - | Notify_album_update 4863 - | User_delete 4864 - | User_delete_check 4865 - | User_sync_usage 4866 - | Person_cleanup 4867 - | Person_file_migration 4868 - | Person_generate_thumbnail 4869 - | Session_cleanup 4870 - | Send_mail 4871 - | Sidecar_queue_all 4872 - | Sidecar_check 4873 - | Sidecar_write 4874 - | Smart_search_queue_all 4875 - | Smart_search 4876 - | Storage_template_migration 4877 - | Storage_template_migration_single 4878 - | Tag_cleanup 4879 - | Version_check 4880 - | Ocr_queue_all 4881 - | Ocr 4882 - | Workflow_run 4854 + type t = [ 4855 + | `Asset_delete 4856 + | `Asset_delete_check 4857 + | `Asset_detect_faces_queue_all 4858 + | `Asset_detect_faces 4859 + | `Asset_detect_duplicates_queue_all 4860 + | `Asset_detect_duplicates 4861 + | `Asset_edit_thumbnail_generation 4862 + | `Asset_encode_video_queue_all 4863 + | `Asset_encode_video 4864 + | `Asset_empty_trash 4865 + | `Asset_extract_metadata_queue_all 4866 + | `Asset_extract_metadata 4867 + | `Asset_file_migration 4868 + | `Asset_generate_thumbnails_queue_all 4869 + | `Asset_generate_thumbnails 4870 + | `Audit_log_cleanup 4871 + | `Audit_table_cleanup 4872 + | `Database_backup 4873 + | `Facial_recognition_queue_all 4874 + | `Facial_recognition 4875 + | `File_delete 4876 + | `File_migration_queue_all 4877 + | `Library_delete_check 4878 + | `Library_delete 4879 + | `Library_remove_asset 4880 + | `Library_scan_assets_queue_all 4881 + | `Library_sync_assets 4882 + | `Library_sync_files_queue_all 4883 + | `Library_sync_files 4884 + | `Library_scan_queue_all 4885 + | `Memory_cleanup 4886 + | `Memory_generate 4887 + | `Notifications_cleanup 4888 + | `Notify_user_signup 4889 + | `Notify_album_invite 4890 + | `Notify_album_update 4891 + | `User_delete 4892 + | `User_delete_check 4893 + | `User_sync_usage 4894 + | `Person_cleanup 4895 + | `Person_file_migration 4896 + | `Person_generate_thumbnail 4897 + | `Session_cleanup 4898 + | `Send_mail 4899 + | `Sidecar_queue_all 4900 + | `Sidecar_check 4901 + | `Sidecar_write 4902 + | `Smart_search_queue_all 4903 + | `Smart_search 4904 + | `Storage_template_migration 4905 + | `Storage_template_migration_single 4906 + | `Tag_cleanup 4907 + | `Version_check 4908 + | `Ocr_queue_all 4909 + | `Ocr 4910 + | `Workflow_run 4911 + ] 4883 4912 4884 4913 val jsont : t Jsont.t 4885 4914 end ··· 4900 4929 4901 4930 module ImageFormat : sig 4902 4931 module T : sig 4903 - type t = 4904 - | Jpeg 4905 - | Webp 4932 + type t = [ 4933 + | `Jpeg 4934 + | `Webp 4935 + ] 4906 4936 4907 4937 val jsont : t Jsont.t 4908 4938 end ··· 5149 5179 (** Retrieve download information 5150 5180 5151 5181 Retrieve information about how to request a download for the specified assets or album. The response includes groups of assets that can be downloaded together. *) 5152 - val get_download_info : ?key:string -> ?slug:string -> body:DownloadInfo.Dto.t -> Client_.t -> unit -> ResponseDto.t 5182 + val get_download_info : ?key:string -> ?slug:string -> body:DownloadInfo.Dto.t -> t -> unit -> ResponseDto.t 5153 5183 end 5154 5184 5155 5185 module DatabaseBackupUpload : sig ··· 5236 5266 (** List database backups 5237 5267 5238 5268 Get the list of the successful and failed backups *) 5239 - val list_database_backups : Client_.t -> unit -> ResponseDto.t 5269 + val list_database_backups : t -> unit -> ResponseDto.t 5240 5270 end 5241 5271 5242 5272 module CropParameters : sig ··· 5312 5342 (** Create user profile image 5313 5343 5314 5344 Upload and set a new profile image for the current user. *) 5315 - val create_profile_image : Client_.t -> unit -> ResponseDto.t 5345 + val create_profile_image : t -> unit -> ResponseDto.t 5316 5346 end 5317 5347 5318 5348 module CreateLibrary : sig ··· 5365 5395 (** Retrieve libraries 5366 5396 5367 5397 Retrieve a list of external libraries. *) 5368 - val get_all_libraries : Client_.t -> unit -> ResponseDto.t 5398 + val get_all_libraries : t -> unit -> ResponseDto.t 5369 5399 5370 5400 (** Create a library 5371 5401 5372 5402 Create a new external library. *) 5373 - val create_library : body:CreateLibrary.Dto.t -> Client_.t -> unit -> ResponseDto.t 5403 + val create_library : body:CreateLibrary.Dto.t -> t -> unit -> ResponseDto.t 5374 5404 5375 5405 (** Retrieve a library 5376 5406 5377 5407 Retrieve an external library by its ID. *) 5378 - val get_library : id:string -> Client_.t -> unit -> ResponseDto.t 5408 + val get_library : id:string -> t -> unit -> ResponseDto.t 5379 5409 5380 5410 (** Update a library 5381 5411 5382 5412 Update an existing external library. *) 5383 - val update_library : id:string -> body:UpdateLibrary.Dto.t -> Client_.t -> unit -> ResponseDto.t 5413 + val update_library : id:string -> body:UpdateLibrary.Dto.t -> t -> unit -> ResponseDto.t 5384 5414 end 5385 5415 5386 5416 module Cqmode : sig 5387 5417 module T : sig 5388 - type t = 5389 - | Auto 5390 - | Cqp 5391 - | Icq 5418 + type t = [ 5419 + | `Auto 5420 + | `Cqp 5421 + | `Icq 5422 + ] 5392 5423 5393 5424 val jsont : t Jsont.t 5394 5425 end ··· 5411 5442 5412 5443 module Colorspace : sig 5413 5444 module T : sig 5414 - type t = 5415 - | Srgb 5416 - | P3 5445 + type t = [ 5446 + | `Srgb 5447 + | `P3 5448 + ] 5417 5449 5418 5450 val jsont : t Jsont.t 5419 5451 end ··· 5487 5519 (** Check existing assets 5488 5520 5489 5521 Checks if multiple assets exist on the server and returns all existing - used by background backup *) 5490 - val check_existing_assets : body:Dto.t -> Client_.t -> unit -> ResponseDto.t 5522 + val check_existing_assets : body:Dto.t -> t -> unit -> ResponseDto.t 5491 5523 end 5492 5524 5493 5525 module ChangePassword : sig ··· 5608 5640 (** Search users 5609 5641 5610 5642 Search for users. *) 5611 - val search_users_admin : ?id:string -> ?with_deleted:string -> Client_.t -> unit -> ResponseDto.t 5643 + val search_users_admin : ?id:string -> ?with_deleted:string -> t -> unit -> ResponseDto.t 5612 5644 5613 5645 (** Create a user 5614 5646 5615 5647 Create a new user. *) 5616 - val create_user_admin : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 5648 + val create_user_admin : body:CreateDto.t -> t -> unit -> ResponseDto.t 5617 5649 5618 5650 (** Retrieve a user 5619 5651 5620 5652 Retrieve a specific user by their ID. *) 5621 - val get_user_admin : id:string -> Client_.t -> unit -> ResponseDto.t 5653 + val get_user_admin : id:string -> t -> unit -> ResponseDto.t 5622 5654 5623 5655 (** Update a user 5624 5656 5625 5657 Update an existing user. *) 5626 - val update_user_admin : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 5658 + val update_user_admin : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 5627 5659 5628 5660 (** Delete a user 5629 5661 5630 5662 Delete a user. *) 5631 - val delete_user_admin : id:string -> Client_.t -> unit -> ResponseDto.t 5663 + val delete_user_admin : id:string -> t -> unit -> ResponseDto.t 5632 5664 5633 5665 (** Restore a deleted user 5634 5666 5635 5667 Restore a previously deleted user. *) 5636 - val restore_user_admin : id:string -> Client_.t -> unit -> ResponseDto.t 5668 + val restore_user_admin : id:string -> t -> unit -> ResponseDto.t 5637 5669 5638 5670 (** Register admin 5639 5671 5640 5672 Create the first admin user in the system. *) 5641 - val sign_up_admin : body:SignUp.Dto.t -> Client_.t -> unit -> ResponseDto.t 5673 + val sign_up_admin : body:SignUp.Dto.t -> t -> unit -> ResponseDto.t 5642 5674 5643 5675 (** Change password 5644 5676 5645 5677 Change the password of the current user. *) 5646 - val change_password : body:ChangePassword.Dto.t -> Client_.t -> unit -> ResponseDto.t 5678 + val change_password : body:ChangePassword.Dto.t -> t -> unit -> ResponseDto.t 5647 5679 5648 5680 (** Link OAuth account 5649 5681 5650 5682 Link an OAuth account to the authenticated user. *) 5651 - val link_oauth_account : body:OauthCallback.Dto.t -> Client_.t -> unit -> ResponseDto.t 5683 + val link_oauth_account : body:OauthCallback.Dto.t -> t -> unit -> ResponseDto.t 5652 5684 5653 5685 (** Unlink OAuth account 5654 5686 5655 5687 Unlink the OAuth account from the authenticated user. *) 5656 - val unlink_oauth_account : Client_.t -> unit -> ResponseDto.t 5688 + val unlink_oauth_account : t -> unit -> ResponseDto.t 5657 5689 5658 5690 (** Get current user 5659 5691 5660 5692 Retrieve information about the user making the API request. *) 5661 - val get_my_user : Client_.t -> unit -> ResponseDto.t 5693 + val get_my_user : t -> unit -> ResponseDto.t 5662 5694 5663 5695 (** Update current user 5664 5696 5665 5697 Update the current user making teh API request. *) 5666 - val update_my_user : body:UserUpdateMe.Dto.t -> Client_.t -> unit -> ResponseDto.t 5698 + val update_my_user : body:UserUpdateMe.Dto.t -> t -> unit -> ResponseDto.t 5667 5699 end 5668 5700 5669 5701 module Cast : sig ··· 5718 5750 (** Empty trash 5719 5751 5720 5752 Permanently delete all items in the trash. *) 5721 - val empty_trash : Client_.t -> unit -> ResponseDto.t 5753 + val empty_trash : t -> unit -> ResponseDto.t 5722 5754 5723 5755 (** Restore trash 5724 5756 5725 5757 Restore all items in the trash. *) 5726 - val restore_trash : Client_.t -> unit -> ResponseDto.t 5758 + val restore_trash : t -> unit -> ResponseDto.t 5727 5759 5728 5760 (** Restore assets 5729 5761 5730 5762 Restore specific assets from the trash. *) 5731 - val restore_assets : body:BulkIds.Dto.t -> Client_.t -> unit -> ResponseDto.t 5763 + val restore_assets : body:BulkIds.Dto.t -> t -> unit -> ResponseDto.t 5732 5764 end 5733 5765 5734 5766 module BulkIdErrorReason : sig 5735 5767 module T : sig 5736 - type t = 5737 - | Duplicate 5738 - | No_permission 5739 - | Not_found 5740 - | Unknown 5768 + type t = [ 5769 + | `Duplicate 5770 + | `No_permission 5771 + | `Not_found 5772 + | `Unknown 5773 + ] 5741 5774 5742 5775 val jsont : t Jsont.t 5743 5776 end ··· 5779 5812 (** Retrieve auth status 5780 5813 5781 5814 Get information about the current session, including whether the user has a password, and if the session can access locked assets. *) 5782 - val get_auth_status : Client_.t -> unit -> ResponseDto.t 5815 + val get_auth_status : t -> unit -> ResponseDto.t 5783 5816 end 5784 5817 5785 5818 module AudioCodec : sig 5786 5819 module T : sig 5787 - type t = 5788 - | Mp3 5789 - | Aac 5790 - | Libopus 5791 - | Pcm_s16le 5820 + type t = [ 5821 + | `Mp3 5822 + | `Aac 5823 + | `Libopus 5824 + | `Pcm_s16le 5825 + ] 5792 5826 5793 5827 val jsont : t Jsont.t 5794 5828 end ··· 5902 5936 (** Get system configuration 5903 5937 5904 5938 Retrieve the current system configuration. *) 5905 - val get_config : Client_.t -> unit -> Dto.t 5939 + val get_config : t -> unit -> Dto.t 5906 5940 5907 5941 (** Update system configuration 5908 5942 5909 5943 Update the system configuration with a new system configuration. *) 5910 - val update_config : body:Dto.t -> Client_.t -> unit -> Dto.t 5944 + val update_config : body:Dto.t -> t -> unit -> Dto.t 5911 5945 5912 5946 (** Get system configuration defaults 5913 5947 5914 5948 Retrieve the default values for the system configuration. *) 5915 - val get_config_defaults : Client_.t -> unit -> Dto.t 5949 + val get_config_defaults : t -> unit -> Dto.t 5916 5950 end 5917 5951 5918 5952 module AssetVisibility : sig 5919 5953 module T : sig 5920 - type t = 5921 - | Archive 5922 - | Timeline 5923 - | Hidden 5924 - | Locked 5954 + type t = [ 5955 + | `Archive 5956 + | `Timeline 5957 + | `Hidden 5958 + | `Locked 5959 + ] 5925 5960 5926 5961 val jsont : t Jsont.t 5927 5962 end ··· 6025 6060 @param with_partners Include assets shared by partners 6026 6061 @param with_stacked Include stacked assets in the response. When true, only primary assets from stacks are returned. 6027 6062 *) 6028 - val get_time_bucket : ?album_id:string -> ?is_favorite:string -> ?is_trashed:string -> ?key:string -> ?order:string -> ?person_id:string -> ?slug:string -> ?tag_id:string -> time_bucket:string -> ?user_id:string -> ?visibility:string -> ?with_coordinates:string -> ?with_partners:string -> ?with_stacked:string -> Client_.t -> unit -> ResponseDto.t 6063 + val get_time_bucket : ?album_id:string -> ?is_favorite:string -> ?is_trashed:string -> ?key:string -> ?order:string -> ?person_id:string -> ?slug:string -> ?tag_id:string -> time_bucket:string -> ?user_id:string -> ?visibility:string -> ?with_coordinates:string -> ?with_partners:string -> ?with_stacked:string -> t -> unit -> ResponseDto.t 6029 6064 end 6030 6065 6031 6066 module AssetTypeEnum : sig 6032 6067 module T : sig 6033 - type t = 6034 - | Image 6035 - | Video 6036 - | Audio 6037 - | Other 6068 + type t = [ 6069 + | `Image 6070 + | `Video 6071 + | `Audio 6072 + | `Other 6073 + ] 6038 6074 6039 6075 val jsont : t Jsont.t 6040 6076 end ··· 6059 6095 (** Retrieve user statistics 6060 6096 6061 6097 Retrieve asset statistics for a specific user. *) 6062 - val get_user_statistics_admin : id:string -> ?is_favorite:string -> ?is_trashed:string -> ?visibility:string -> Client_.t -> unit -> ResponseDto.t 6098 + val get_user_statistics_admin : id:string -> ?is_favorite:string -> ?is_trashed:string -> ?visibility:string -> t -> unit -> ResponseDto.t 6063 6099 6064 6100 (** Get asset statistics 6065 6101 6066 6102 Retrieve various statistics about the assets owned by the authenticated user. *) 6067 - val get_asset_statistics : ?is_favorite:string -> ?is_trashed:string -> ?visibility:string -> Client_.t -> unit -> ResponseDto.t 6103 + val get_asset_statistics : ?is_favorite:string -> ?is_trashed:string -> ?visibility:string -> t -> unit -> ResponseDto.t 6068 6104 end 6069 6105 6070 6106 module AssetStack : sig ··· 6086 6122 6087 6123 module AssetOrder : sig 6088 6124 module T : sig 6089 - type t = 6090 - | Asc 6091 - | Desc 6125 + type t = [ 6126 + | `Asc 6127 + | `Desc 6128 + ] 6092 6129 6093 6130 val jsont : t Jsont.t 6094 6131 end ··· 6156 6193 (** Retrieve asset OCR data 6157 6194 6158 6195 Retrieve all OCR (Optical Character Recognition) data associated with the specified asset. *) 6159 - val get_asset_ocr : id:string -> Client_.t -> unit -> ResponseDto.t 6196 + val get_asset_ocr : id:string -> t -> unit -> ResponseDto.t 6160 6197 end 6161 6198 6162 6199 module AssetMetadataUpsertItem : sig ··· 6206 6243 (** Get asset metadata 6207 6244 6208 6245 Retrieve all metadata key-value pairs associated with the specified asset. *) 6209 - val get_asset_metadata : id:string -> Client_.t -> unit -> ResponseDto.t 6246 + val get_asset_metadata : id:string -> t -> unit -> ResponseDto.t 6210 6247 6211 6248 (** Update asset metadata 6212 6249 6213 6250 Update or add metadata key-value pairs for the specified asset. *) 6214 - val update_asset_metadata : id:string -> body:AssetMetadataUpsert.Dto.t -> Client_.t -> unit -> ResponseDto.t 6251 + val update_asset_metadata : id:string -> body:AssetMetadataUpsert.Dto.t -> t -> unit -> ResponseDto.t 6215 6252 6216 6253 (** Retrieve asset metadata by key 6217 6254 6218 6255 Retrieve the value of a specific metadata key associated with the specified asset. *) 6219 - val get_asset_metadata_by_key : id:string -> key:string -> Client_.t -> unit -> ResponseDto.t 6256 + val get_asset_metadata_by_key : id:string -> key:string -> t -> unit -> ResponseDto.t 6220 6257 end 6221 6258 6222 6259 module AssetMedia : sig 6223 6260 module Status : sig 6224 - type t = 6225 - | Created 6226 - | Replaced 6227 - | Duplicate 6261 + type t = [ 6262 + | `Created 6263 + | `Replaced 6264 + | `Duplicate 6265 + ] 6228 6266 6229 6267 val jsont : t Jsont.t 6230 6268 end ··· 6278 6316 (** Upload asset 6279 6317 6280 6318 Uploads a new asset to the server. *) 6281 - val upload_asset : ?key:string -> ?slug:string -> Client_.t -> unit -> ResponseDto.t 6319 + val upload_asset : ?key:string -> ?slug:string -> t -> unit -> ResponseDto.t 6282 6320 6283 6321 (** Replace asset 6284 6322 6285 6323 Replace the asset with new file, without changing its id. *) 6286 - val replace_asset : id:string -> ?key:string -> ?slug:string -> Client_.t -> unit -> ResponseDto.t 6324 + val replace_asset : id:string -> ?key:string -> ?slug:string -> t -> unit -> ResponseDto.t 6287 6325 end 6288 6326 6289 6327 module AssetMetadataBulkUpsertItem : sig ··· 6337 6375 (** Upsert asset metadata 6338 6376 6339 6377 Upsert metadata key-value pairs for multiple assets. *) 6340 - val update_bulk_asset_metadata : body:AssetMetadataBulkUpsert.Dto.t -> Client_.t -> unit -> ResponseDto.t 6378 + val update_bulk_asset_metadata : body:AssetMetadataBulkUpsert.Dto.t -> t -> unit -> ResponseDto.t 6341 6379 end 6342 6380 6343 6381 module AssetMetadataBulkDeleteItem : sig ··· 6370 6408 6371 6409 module AssetMediaSize : sig 6372 6410 module T : sig 6373 - type t = 6374 - | Original 6375 - | Fullsize 6376 - | Preview 6377 - | Thumbnail 6411 + type t = [ 6412 + | `Original 6413 + | `Fullsize 6414 + | `Preview 6415 + | `Thumbnail 6416 + ] 6378 6417 6379 6418 val jsont : t Jsont.t 6380 6419 end ··· 6422 6461 6423 6462 module AssetJobName : sig 6424 6463 module T : sig 6425 - type t = 6426 - | Refresh_faces 6427 - | Refresh_metadata 6428 - | Regenerate_thumbnail 6429 - | Transcode_video 6464 + type t = [ 6465 + | `Refresh_faces 6466 + | `Refresh_metadata 6467 + | `Regenerate_thumbnail 6468 + | `Transcode_video 6469 + ] 6430 6470 6431 6471 val jsont : t Jsont.t 6432 6472 end ··· 6462 6502 (** Add assets to a shared link 6463 6503 6464 6504 Add assets to a specific shared link by its ID. This endpoint is only relevant for shared link of type individual. *) 6465 - val add_shared_link_assets : id:string -> ?key:string -> ?slug:string -> body:Dto.t -> Client_.t -> unit -> ResponseDto.t 6505 + val add_shared_link_assets : id:string -> ?key:string -> ?slug:string -> body:Dto.t -> t -> unit -> ResponseDto.t 6466 6506 6467 6507 (** Remove assets from a shared link 6468 6508 6469 6509 Remove assets from a specific shared link by its ID. This endpoint is only relevant for shared link of type individual. *) 6470 - val remove_shared_link_assets : id:string -> ?key:string -> ?slug:string -> Client_.t -> unit -> ResponseDto.t 6510 + val remove_shared_link_assets : id:string -> ?key:string -> ?slug:string -> t -> unit -> ResponseDto.t 6471 6511 end 6472 6512 6473 6513 module AssetFullSync : sig ··· 6641 6681 (** Get random assets 6642 6682 6643 6683 Retrieve a specified number of random assets for the authenticated user. *) 6644 - val get_random : ?count:string -> Client_.t -> unit -> ResponseDto.t 6684 + val get_random : ?count:string -> t -> unit -> ResponseDto.t 6645 6685 6646 6686 (** Retrieve an asset 6647 6687 6648 6688 Retrieve detailed information about a specific asset. *) 6649 - val get_asset_info : id:string -> ?key:string -> ?slug:string -> Client_.t -> unit -> ResponseDto.t 6689 + val get_asset_info : id:string -> ?key:string -> ?slug:string -> t -> unit -> ResponseDto.t 6650 6690 6651 6691 (** Update an asset 6652 6692 6653 6693 Update information of a specific asset. *) 6654 - val update_asset : id:string -> body:UpdateAsset.Dto.t -> Client_.t -> unit -> ResponseDto.t 6694 + val update_asset : id:string -> body:UpdateAsset.Dto.t -> t -> unit -> ResponseDto.t 6655 6695 6656 6696 (** Retrieve assets by city 6657 6697 6658 6698 Retrieve a list of assets with each asset belonging to a different city. This endpoint is used on the places pages to show a single thumbnail for each city the user has assets in. *) 6659 - val get_assets_by_city : Client_.t -> unit -> ResponseDto.t 6699 + val get_assets_by_city : t -> unit -> ResponseDto.t 6660 6700 6661 6701 (** Search large assets 6662 6702 6663 6703 Search for assets that are considered large based on specified criteria. *) 6664 - val search_large_assets : ?album_ids:string -> ?city:string -> ?country:string -> ?created_after:string -> ?created_before:string -> ?device_id:string -> ?is_encoded:string -> ?is_favorite:string -> ?is_motion:string -> ?is_not_in_album:string -> ?is_offline:string -> ?lens_model:string -> ?library_id:string -> ?make:string -> ?min_file_size:string -> ?model:string -> ?ocr:string -> ?person_ids:string -> ?rating:string -> ?size:string -> ?state:string -> ?tag_ids:string -> ?taken_after:string -> ?taken_before:string -> ?trashed_after:string -> ?trashed_before:string -> ?type_:string -> ?updated_after:string -> ?updated_before:string -> ?visibility:string -> ?with_deleted:string -> ?with_exif:string -> Client_.t -> unit -> ResponseDto.t 6704 + val search_large_assets : ?album_ids:string -> ?city:string -> ?country:string -> ?created_after:string -> ?created_before:string -> ?device_id:string -> ?is_encoded:string -> ?is_favorite:string -> ?is_motion:string -> ?is_not_in_album:string -> ?is_offline:string -> ?lens_model:string -> ?library_id:string -> ?make:string -> ?min_file_size:string -> ?model:string -> ?ocr:string -> ?person_ids:string -> ?rating:string -> ?size:string -> ?state:string -> ?tag_ids:string -> ?taken_after:string -> ?taken_before:string -> ?trashed_after:string -> ?trashed_before:string -> ?type_:string -> ?updated_after:string -> ?updated_before:string -> ?visibility:string -> ?with_deleted:string -> ?with_exif:string -> t -> unit -> ResponseDto.t 6665 6705 6666 6706 (** Search random assets 6667 6707 6668 6708 Retrieve a random selection of assets based on the provided criteria. *) 6669 - val search_random : body:RandomSearch.Dto.t -> Client_.t -> unit -> ResponseDto.t 6709 + val search_random : body:RandomSearch.Dto.t -> t -> unit -> ResponseDto.t 6670 6710 6671 6711 (** Get full sync for user 6672 6712 6673 6713 Retrieve all assets for a full synchronization for the authenticated user. *) 6674 - val get_full_sync_for_user : body:AssetFullSync.Dto.t -> Client_.t -> unit -> ResponseDto.t 6714 + val get_full_sync_for_user : body:AssetFullSync.Dto.t -> t -> unit -> ResponseDto.t 6675 6715 6676 6716 (** Retrieve assets by original path 6677 6717 6678 6718 Retrieve assets that are children of a specific folder. *) 6679 - val get_assets_by_original_path : path:string -> Client_.t -> unit -> ResponseDto.t 6719 + val get_assets_by_original_path : path:string -> t -> unit -> ResponseDto.t 6680 6720 end 6681 6721 6682 6722 module Stack : sig ··· 6723 6763 (** Retrieve stacks 6724 6764 6725 6765 Retrieve a list of stacks. *) 6726 - val search_stacks : ?primary_asset_id:string -> Client_.t -> unit -> ResponseDto.t 6766 + val search_stacks : ?primary_asset_id:string -> t -> unit -> ResponseDto.t 6727 6767 6728 6768 (** Create a stack 6729 6769 6730 6770 Create a new stack by providing a name and a list of asset IDs to include in the stack. If any of the provided asset IDs are primary assets of an existing stack, the existing stack will be merged into the newly created stack. *) 6731 - val create_stack : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 6771 + val create_stack : body:CreateDto.t -> t -> unit -> ResponseDto.t 6732 6772 6733 6773 (** Retrieve a stack 6734 6774 6735 6775 Retrieve a specific stack by its ID. *) 6736 - val get_stack : id:string -> Client_.t -> unit -> ResponseDto.t 6776 + val get_stack : id:string -> t -> unit -> ResponseDto.t 6737 6777 6738 6778 (** Update a stack 6739 6779 6740 6780 Update an existing stack by its ID. *) 6741 - val update_stack : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 6781 + val update_stack : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 6742 6782 end 6743 6783 6744 6784 module SearchExplore : sig ··· 6771 6811 (** Retrieve explore data 6772 6812 6773 6813 Retrieve data for the explore section, such as popular people and places. *) 6774 - val get_explore_data : Client_.t -> unit -> ResponseDto.t 6814 + val get_explore_data : t -> unit -> ResponseDto.t 6775 6815 end 6776 6816 6777 6817 module SearchAsset : sig ··· 6812 6852 end 6813 6853 6814 6854 module Type : sig 6815 - type t = 6816 - | On_this_day 6855 + type t = [ 6856 + | `On_this_day 6857 + ] 6817 6858 6818 6859 val jsont : t Jsont.t 6819 6860 end ··· 6878 6919 6879 6920 Retrieve a list of memories. Memories are sorted descending by creation date by default, although they can also be sorted in ascending order, or randomly. @param size Number of memories to return 6880 6921 *) 6881 - val search_memories : ?for_:string -> ?is_saved:string -> ?is_trashed:string -> ?order:string -> ?size:string -> ?type_:string -> Client_.t -> unit -> ResponseDto.t 6922 + val search_memories : ?for_:string -> ?is_saved:string -> ?is_trashed:string -> ?order:string -> ?size:string -> ?type_:string -> t -> unit -> ResponseDto.t 6882 6923 6883 6924 (** Create a memory 6884 6925 6885 6926 Create a new memory by providing a name, description, and a list of asset IDs to include in the memory. *) 6886 - val create_memory : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 6927 + val create_memory : body:CreateDto.t -> t -> unit -> ResponseDto.t 6887 6928 6888 6929 (** Retrieve a memory 6889 6930 6890 6931 Retrieve a specific memory by its ID. *) 6891 - val get_memory : id:string -> Client_.t -> unit -> ResponseDto.t 6932 + val get_memory : id:string -> t -> unit -> ResponseDto.t 6892 6933 6893 6934 (** Update a memory 6894 6935 6895 6936 Update an existing memory by its ID. *) 6896 - val update_memory : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 6937 + val update_memory : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 6897 6938 end 6898 6939 6899 6940 module Duplicate : sig ··· 6913 6954 (** Retrieve duplicates 6914 6955 6915 6956 Retrieve a list of duplicate assets available to the authenticated user. *) 6916 - val get_asset_duplicates : Client_.t -> unit -> ResponseDto.t 6957 + val get_asset_duplicates : t -> unit -> ResponseDto.t 6917 6958 end 6918 6959 6919 6960 module AssetDeltaSync : sig ··· 6948 6989 (** Get delta sync for user 6949 6990 6950 6991 Retrieve changed assets since the last sync for the authenticated user. *) 6951 - val get_delta_sync : body:Dto.t -> Client_.t -> unit -> ResponseDto.t 6992 + val get_delta_sync : body:Dto.t -> t -> unit -> ResponseDto.t 6952 6993 end 6953 6994 6954 6995 module AssetFaceUpdate : sig ··· 7033 7074 (** Retrieve faces for asset 7034 7075 7035 7076 Retrieve all faces belonging to an asset. *) 7036 - val get_faces : id:string -> Client_.t -> unit -> ResponseDto.t 7077 + val get_faces : id:string -> t -> unit -> ResponseDto.t 7037 7078 end 7038 7079 7039 7080 module Person : sig ··· 7125 7166 (** Re-assign a face to another person 7126 7167 7127 7168 Re-assign the face provided in the body to the person identified by the id in the path parameter. *) 7128 - val reassign_faces_by_id : id:string -> body:Face.Dto.t -> Client_.t -> unit -> ResponseDto.t 7169 + val reassign_faces_by_id : id:string -> body:Face.Dto.t -> t -> unit -> ResponseDto.t 7129 7170 7130 7171 (** Create a person 7131 7172 7132 7173 Create a new person that can have multiple faces assigned to them. *) 7133 - val create_person : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 7174 + val create_person : body:CreateDto.t -> t -> unit -> ResponseDto.t 7134 7175 7135 7176 (** Get a person 7136 7177 7137 7178 Retrieve a person by id. *) 7138 - val get_person : id:string -> Client_.t -> unit -> ResponseDto.t 7179 + val get_person : id:string -> t -> unit -> ResponseDto.t 7139 7180 7140 7181 (** Update person 7141 7182 7142 7183 Update an individual person. *) 7143 - val update_person : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 7184 + val update_person : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 7144 7185 7145 7186 (** Reassign faces 7146 7187 7147 7188 Bulk reassign a list of faces to a different person. *) 7148 - val reassign_faces : id:string -> body:AssetFace.UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 7189 + val reassign_faces : id:string -> body:AssetFace.UpdateDto.t -> t -> unit -> ResponseDto.t 7149 7190 7150 7191 (** Search people 7151 7192 7152 7193 Search for people by name. *) 7153 - val search_person : name:string -> ?with_hidden:string -> Client_.t -> unit -> ResponseDto.t 7194 + val search_person : name:string -> ?with_hidden:string -> t -> unit -> ResponseDto.t 7154 7195 end 7155 7196 7156 7197 module People : sig ··· 7213 7254 Retrieve a list of all people. @param page Page number for pagination 7214 7255 @param size Number of items per page 7215 7256 *) 7216 - val get_all_people : ?closest_asset_id:string -> ?closest_person_id:string -> ?page:string -> ?size:string -> ?with_hidden:string -> Client_.t -> unit -> ResponseDto.t 7257 + val get_all_people : ?closest_asset_id:string -> ?closest_person_id:string -> ?page:string -> ?size:string -> ?with_hidden:string -> t -> unit -> ResponseDto.t 7217 7258 end 7218 7259 7219 7260 module BulkId : sig ··· 7235 7276 (** Add assets to an album 7236 7277 7237 7278 Add multiple assets to a specific album by its ID. *) 7238 - val add_assets_to_album : id:string -> ?key:string -> ?slug:string -> body:BulkIds.Dto.t -> Client_.t -> unit -> ResponseDto.t 7279 + val add_assets_to_album : id:string -> ?key:string -> ?slug:string -> body:BulkIds.Dto.t -> t -> unit -> ResponseDto.t 7239 7280 7240 7281 (** Remove assets from an album 7241 7282 7242 7283 Remove multiple assets from a specific album by its ID. *) 7243 - val remove_asset_from_album : id:string -> Client_.t -> unit -> ResponseDto.t 7284 + val remove_asset_from_album : id:string -> t -> unit -> ResponseDto.t 7244 7285 7245 7286 (** Add assets to a memory 7246 7287 7247 7288 Add a list of asset IDs to a specific memory. *) 7248 - val add_memory_assets : id:string -> body:BulkIds.Dto.t -> Client_.t -> unit -> ResponseDto.t 7289 + val add_memory_assets : id:string -> body:BulkIds.Dto.t -> t -> unit -> ResponseDto.t 7249 7290 7250 7291 (** Remove assets from a memory 7251 7292 7252 7293 Remove a list of asset IDs from a specific memory. *) 7253 - val remove_memory_assets : id:string -> Client_.t -> unit -> ResponseDto.t 7294 + val remove_memory_assets : id:string -> t -> unit -> ResponseDto.t 7254 7295 7255 7296 (** Update people 7256 7297 7257 7298 Bulk update multiple people at once. *) 7258 - val update_people : body:People.UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 7299 + val update_people : body:People.UpdateDto.t -> t -> unit -> ResponseDto.t 7259 7300 7260 7301 (** Merge people 7261 7302 7262 7303 Merge a list of people into the person specified in the path parameter. *) 7263 - val merge_person : id:string -> body:MergePerson.Dto.t -> Client_.t -> unit -> ResponseDto.t 7304 + val merge_person : id:string -> body:MergePerson.Dto.t -> t -> unit -> ResponseDto.t 7264 7305 7265 7306 (** Tag assets 7266 7307 7267 7308 Add a tag to all the specified assets. *) 7268 - val tag_assets : id:string -> body:BulkIds.Dto.t -> Client_.t -> unit -> ResponseDto.t 7309 + val tag_assets : id:string -> body:BulkIds.Dto.t -> t -> unit -> ResponseDto.t 7269 7310 7270 7311 (** Untag assets 7271 7312 7272 7313 Remove a tag from all the specified assets. *) 7273 - val untag_assets : id:string -> Client_.t -> unit -> ResponseDto.t 7314 + val untag_assets : id:string -> t -> unit -> ResponseDto.t 7274 7315 end 7275 7316 7276 7317 module AssetFaceDelete : sig ··· 7322 7363 (** Retrieve edits for an existing asset 7323 7364 7324 7365 Retrieve a series of edit actions (crop, rotate, mirror) associated with the specified asset. *) 7325 - val get_asset_edits : id:string -> Client_.t -> unit -> Dto.t 7366 + val get_asset_edits : id:string -> t -> unit -> Dto.t 7326 7367 7327 7368 (** Apply edits to an existing asset 7328 7369 7329 7370 Apply a series of edit actions (crop, rotate, mirror) to the specified asset. *) 7330 - val edit_asset : id:string -> body:AssetEditActionList.Dto.t -> Client_.t -> unit -> Dto.t 7371 + val edit_asset : id:string -> body:AssetEditActionList.Dto.t -> t -> unit -> Dto.t 7331 7372 end 7332 7373 7333 7374 module AssetEditAction : sig 7334 7375 module T : sig 7335 - type t = 7336 - | Crop 7337 - | Rotate 7338 - | Mirror 7376 + type t = [ 7377 + | `Crop 7378 + | `Rotate 7379 + | `Mirror 7380 + ] 7339 7381 7340 7382 val jsont : t Jsont.t 7341 7383 end ··· 7427 7469 (** Check bulk upload 7428 7470 7429 7471 Determine which assets have already been uploaded to the server based on their SHA1 checksums. *) 7430 - val check_bulk_upload : body:Dto.t -> Client_.t -> unit -> ResponseDto.t 7472 + val check_bulk_upload : body:Dto.t -> t -> unit -> ResponseDto.t 7431 7473 end 7432 7474 7433 7475 module AssetBulkDelete : sig ··· 7508 7550 (** Add assets to albums 7509 7551 7510 7552 Send a list of asset IDs and album IDs to add each asset to each album. *) 7511 - val add_assets_to_albums : ?key:string -> ?slug:string -> body:Dto.t -> Client_.t -> unit -> ResponseDto.t 7553 + val add_assets_to_albums : ?key:string -> ?slug:string -> body:Dto.t -> t -> unit -> ResponseDto.t 7512 7554 end 7513 7555 7514 7556 module Albums : sig ··· 7603 7645 (** Retrieve user preferences 7604 7646 7605 7647 Retrieve the preferences of a specific user. *) 7606 - val get_user_preferences_admin : id:string -> Client_.t -> unit -> ResponseDto.t 7648 + val get_user_preferences_admin : id:string -> t -> unit -> ResponseDto.t 7607 7649 7608 7650 (** Update user preferences 7609 7651 7610 7652 Update the preferences of a specific user. *) 7611 - val update_user_preferences_admin : id:string -> body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 7653 + val update_user_preferences_admin : id:string -> body:UpdateDto.t -> t -> unit -> ResponseDto.t 7612 7654 7613 7655 (** Get my preferences 7614 7656 7615 7657 Retrieve the preferences for the current user. *) 7616 - val get_my_preferences : Client_.t -> unit -> ResponseDto.t 7658 + val get_my_preferences : t -> unit -> ResponseDto.t 7617 7659 7618 7660 (** Update my preferences 7619 7661 7620 7662 Update the preferences of the current user. *) 7621 - val update_my_preferences : body:UpdateDto.t -> Client_.t -> unit -> ResponseDto.t 7663 + val update_my_preferences : body:UpdateDto.t -> t -> unit -> ResponseDto.t 7622 7664 end 7623 7665 7624 7666 module AlbumUserRole : sig 7625 7667 module T : sig 7626 - type t = 7627 - | Editor 7628 - | Viewer 7668 + type t = [ 7669 + | `Editor 7670 + | `Viewer 7671 + ] 7629 7672 7630 7673 val jsont : t Jsont.t 7631 7674 end ··· 7713 7756 Ignores the shared parameter 7714 7757 undefined: get all albums 7715 7758 *) 7716 - val get_all_albums : ?asset_id:string -> ?shared:string -> Client_.t -> unit -> ResponseDto.t 7759 + val get_all_albums : ?asset_id:string -> ?shared:string -> t -> unit -> ResponseDto.t 7717 7760 7718 7761 (** Create an album 7719 7762 7720 7763 Create a new album. The album can also be created with initial users and assets. *) 7721 - val create_album : body:CreateAlbum.Dto.t -> Client_.t -> unit -> ResponseDto.t 7764 + val create_album : body:CreateAlbum.Dto.t -> t -> unit -> ResponseDto.t 7722 7765 7723 7766 (** Retrieve an album 7724 7767 7725 7768 Retrieve information about a specific album by its ID. *) 7726 - val get_album_info : id:string -> ?key:string -> ?slug:string -> ?without_assets:string -> Client_.t -> unit -> ResponseDto.t 7769 + val get_album_info : id:string -> ?key:string -> ?slug:string -> ?without_assets:string -> t -> unit -> ResponseDto.t 7727 7770 7728 7771 (** Update an album 7729 7772 7730 7773 Update the information of a specific album by its ID. This endpoint can be used to update the album name, description, sort order, etc. However, it is not used to add or remove assets or users from the album. *) 7731 - val update_album_info : id:string -> body:UpdateAlbum.Dto.t -> Client_.t -> unit -> ResponseDto.t 7774 + val update_album_info : id:string -> body:UpdateAlbum.Dto.t -> t -> unit -> ResponseDto.t 7732 7775 7733 7776 (** Share album with users 7734 7777 7735 7778 Share an album with multiple users. Each user can be given a specific role in the album. *) 7736 - val add_users_to_album : id:string -> body:AddUsers.Dto.t -> Client_.t -> unit -> ResponseDto.t 7779 + val add_users_to_album : id:string -> body:AddUsers.Dto.t -> t -> unit -> ResponseDto.t 7737 7780 end 7738 7781 7739 7782 module SharedLink : sig 7740 7783 module Type : sig 7741 - type t = 7742 - | Album 7743 - | Individual 7784 + type t = [ 7785 + | `Album 7786 + | `Individual 7787 + ] 7744 7788 7745 7789 val jsont : t Jsont.t 7746 7790 end ··· 7816 7860 (** Retrieve all shared links 7817 7861 7818 7862 Retrieve a list of all shared links. *) 7819 - val get_all_shared_links : ?album_id:string -> ?id:string -> Client_.t -> unit -> ResponseDto.t 7863 + val get_all_shared_links : ?album_id:string -> ?id:string -> t -> unit -> ResponseDto.t 7820 7864 7821 7865 (** Create a shared link 7822 7866 7823 7867 Create a new shared link. *) 7824 - val create_shared_link : body:CreateDto.t -> Client_.t -> unit -> ResponseDto.t 7868 + val create_shared_link : body:CreateDto.t -> t -> unit -> ResponseDto.t 7825 7869 7826 7870 (** Retrieve current shared link 7827 7871 7828 7872 Retrieve the current shared link associated with authentication method. *) 7829 - val get_my_shared_link : ?key:string -> ?password:string -> ?slug:string -> ?token:string -> Client_.t -> unit -> ResponseDto.t 7873 + val get_my_shared_link : ?key:string -> ?password:string -> ?slug:string -> ?token:string -> t -> unit -> ResponseDto.t 7830 7874 7831 7875 (** Retrieve a shared link 7832 7876 7833 7877 Retrieve a specific shared link by its ID. *) 7834 - val get_shared_link_by_id : id:string -> Client_.t -> unit -> ResponseDto.t 7878 + val get_shared_link_by_id : id:string -> t -> unit -> ResponseDto.t 7835 7879 7836 7880 (** Update a shared link 7837 7881 7838 7882 Update an existing shared link by its ID. *) 7839 - val update_shared_link : id:string -> body:SharedLinkEdit.Dto.t -> Client_.t -> unit -> ResponseDto.t 7883 + val update_shared_link : id:string -> body:SharedLinkEdit.Dto.t -> t -> unit -> ResponseDto.t 7840 7884 end 7841 7885 7842 7886 module SearchAlbum : sig ··· 7875 7919 (** Search assets by metadata 7876 7920 7877 7921 Search for assets based on various metadata criteria. *) 7878 - val search_assets : body:MetadataSearch.Dto.t -> Client_.t -> unit -> ResponseDto.t 7922 + val search_assets : body:MetadataSearch.Dto.t -> t -> unit -> ResponseDto.t 7879 7923 7880 7924 (** Smart asset search 7881 7925 7882 7926 Perform a smart search for assets by using machine learning vectors to determine relevance. *) 7883 - val search_smart : body:SmartSearch.Dto.t -> Client_.t -> unit -> ResponseDto.t 7927 + val search_smart : body:SmartSearch.Dto.t -> t -> unit -> ResponseDto.t 7884 7928 end 7885 7929 7886 7930 module AlbumStatistics : sig ··· 7902 7946 (** Retrieve album statistics 7903 7947 7904 7948 Returns statistics about the albums available to the authenticated user. *) 7905 - val get_album_statistics : Client_.t -> unit -> ResponseDto.t 7949 + val get_album_statistics : t -> unit -> ResponseDto.t 7906 7950 end 7907 7951 7908 7952 module AdminOnboarding : sig ··· 7920 7964 (** Retrieve admin onboarding 7921 7965 7922 7966 Retrieve the current admin onboarding status. *) 7923 - val get_admin_onboarding : Client_.t -> unit -> UpdateDto.t 7967 + val get_admin_onboarding : t -> unit -> UpdateDto.t 7924 7968 end 7925 7969 7926 7970 module Client : sig 7927 7971 (** Delete an activity 7928 7972 7929 7973 Removes a like or comment from a given album or asset in an album. *) 7930 - val delete_activity : id:string -> Client_.t -> unit -> Jsont.json 7974 + val delete_activity : id:string -> t -> unit -> Jsont.json 7931 7975 7932 7976 (** Unlink all OAuth accounts 7933 7977 7934 7978 Unlinks all OAuth accounts associated with user accounts in the system. *) 7935 - val unlink_all_oauth_accounts_admin : Client_.t -> unit -> Jsont.json 7979 + val unlink_all_oauth_accounts_admin : t -> unit -> Jsont.json 7936 7980 7937 7981 (** Delete database backup 7938 7982 7939 7983 Delete a backup by its filename *) 7940 - val delete_database_backup : Client_.t -> unit -> Jsont.json 7984 + val delete_database_backup : t -> unit -> Jsont.json 7941 7985 7942 7986 (** Start database backup restore flow 7943 7987 7944 7988 Put Immich into maintenance mode to restore a backup (Immich must not be configured) *) 7945 - val start_database_restore_flow : Client_.t -> unit -> Jsont.json 7989 + val start_database_restore_flow : t -> unit -> Jsont.json 7946 7990 7947 7991 (** Upload database backup 7948 7992 7949 7993 Uploads .sql/.sql.gz file to restore backup from *) 7950 - val upload_database_backup : Client_.t -> unit -> Jsont.json 7994 + val upload_database_backup : t -> unit -> Jsont.json 7951 7995 7952 7996 (** Download database backup 7953 7997 7954 7998 Downloads the database backup file *) 7955 - val download_database_backup : filename:string -> Client_.t -> unit -> Jsont.json 7999 + val download_database_backup : filename:string -> t -> unit -> Jsont.json 7956 8000 7957 8001 (** Set maintenance mode 7958 8002 7959 8003 Put Immich into or take it out of maintenance mode *) 7960 - val set_maintenance_mode : body:SetMaintenanceMode.Dto.t -> Client_.t -> unit -> Jsont.json 8004 + val set_maintenance_mode : body:SetMaintenanceMode.Dto.t -> t -> unit -> Jsont.json 7961 8005 7962 8006 (** Delete an album 7963 8007 7964 8008 Delete a specific album by its ID. Note the album is initially trashed and then immediately scheduled for deletion, but relies on a background job to complete the process. *) 7965 - val delete_album : id:string -> Client_.t -> unit -> Jsont.json 8009 + val delete_album : id:string -> t -> unit -> Jsont.json 7966 8010 7967 8011 (** Update user role 7968 8012 7969 8013 Change the role for a specific user in a specific album. *) 7970 - val update_album_user : id:string -> user_id:string -> body:UpdateAlbumUser.Dto.t -> Client_.t -> unit -> Jsont.json 8014 + val update_album_user : id:string -> user_id:string -> body:UpdateAlbumUser.Dto.t -> t -> unit -> Jsont.json 7971 8015 7972 8016 (** Remove user from album 7973 8017 7974 8018 Remove a user from an album. Use an ID of "me" to leave a shared album. *) 7975 - val remove_user_from_album : id:string -> user_id:string -> Client_.t -> unit -> Jsont.json 8019 + val remove_user_from_album : id:string -> user_id:string -> t -> unit -> Jsont.json 7976 8020 7977 8021 (** Delete an API key 7978 8022 7979 8023 Deletes an API key identified by its ID. The current user must own this API key. *) 7980 - val delete_api_key : id:string -> Client_.t -> unit -> Jsont.json 8024 + val delete_api_key : id:string -> t -> unit -> Jsont.json 7981 8025 7982 8026 (** Update assets 7983 8027 7984 8028 Updates multiple assets at the same time. *) 7985 - val update_assets : body:AssetBulk.UpdateDto.t -> Client_.t -> unit -> Jsont.json 8029 + val update_assets : body:AssetBulk.UpdateDto.t -> t -> unit -> Jsont.json 7986 8030 7987 8031 (** Delete assets 7988 8032 7989 8033 Deletes multiple assets at the same time. *) 7990 - val delete_assets : Client_.t -> unit -> Jsont.json 8034 + val delete_assets : t -> unit -> Jsont.json 7991 8035 7992 8036 (** Copy asset 7993 8037 7994 8038 Copy asset information like albums, tags, etc. from one asset to another. *) 7995 - val copy_asset : body:AssetCopy.Dto.t -> Client_.t -> unit -> Jsont.json 8039 + val copy_asset : body:AssetCopy.Dto.t -> t -> unit -> Jsont.json 7996 8040 7997 8041 (** Retrieve assets by device ID 7998 8042 7999 8043 Get all asset of a device that are in the database, ID only. *) 8000 - val get_all_user_assets_by_device_id : device_id:string -> Client_.t -> unit -> Jsont.json 8044 + val get_all_user_assets_by_device_id : device_id:string -> t -> unit -> Jsont.json 8001 8045 8002 8046 (** Run an asset job 8003 8047 8004 8048 Run a specific job on a set of assets. *) 8005 - val run_asset_jobs : body:AssetJobs.Dto.t -> Client_.t -> unit -> Jsont.json 8049 + val run_asset_jobs : body:AssetJobs.Dto.t -> t -> unit -> Jsont.json 8006 8050 8007 8051 (** Delete asset metadata 8008 8052 8009 8053 Delete metadata key-value pairs for multiple assets. *) 8010 - val delete_bulk_asset_metadata : Client_.t -> unit -> Jsont.json 8054 + val delete_bulk_asset_metadata : t -> unit -> Jsont.json 8011 8055 8012 8056 (** Remove edits from an existing asset 8013 8057 8014 8058 Removes all edit actions (crop, rotate, mirror) associated with the specified asset. *) 8015 - val remove_asset_edits : id:string -> Client_.t -> unit -> Jsont.json 8059 + val remove_asset_edits : id:string -> t -> unit -> Jsont.json 8016 8060 8017 8061 (** Delete asset metadata by key 8018 8062 8019 8063 Delete a specific metadata key-value pair associated with the specified asset. *) 8020 - val delete_asset_metadata : id:string -> key:string -> Client_.t -> unit -> Jsont.json 8064 + val delete_asset_metadata : id:string -> key:string -> t -> unit -> Jsont.json 8021 8065 8022 8066 (** Download original asset 8023 8067 8024 8068 Downloads the original file of the specified asset. *) 8025 - val download_asset : id:string -> ?edited:string -> ?key:string -> ?slug:string -> Client_.t -> unit -> Jsont.json 8069 + val download_asset : id:string -> ?edited:string -> ?key:string -> ?slug:string -> t -> unit -> Jsont.json 8026 8070 8027 8071 (** View asset thumbnail 8028 8072 8029 8073 Retrieve the thumbnail image for the specified asset. Viewing the fullsize thumbnail might redirect to downloadAsset, which requires a different permission. *) 8030 - val view_asset : id:string -> ?edited:string -> ?key:string -> ?size:string -> ?slug:string -> Client_.t -> unit -> Jsont.json 8074 + val view_asset : id:string -> ?edited:string -> ?key:string -> ?size:string -> ?slug:string -> t -> unit -> Jsont.json 8031 8075 8032 8076 (** Play asset video 8033 8077 8034 8078 Streams the video file for the specified asset. This endpoint also supports byte range requests. *) 8035 - val play_asset_video : id:string -> ?key:string -> ?slug:string -> Client_.t -> unit -> Jsont.json 8079 + val play_asset_video : id:string -> ?key:string -> ?slug:string -> t -> unit -> Jsont.json 8036 8080 8037 8081 (** Setup pin code 8038 8082 8039 8083 Setup a new pin code for the current user. *) 8040 - val setup_pin_code : body:PinCodeSetup.Dto.t -> Client_.t -> unit -> Jsont.json 8084 + val setup_pin_code : body:PinCodeSetup.Dto.t -> t -> unit -> Jsont.json 8041 8085 8042 8086 (** Change pin code 8043 8087 8044 8088 Change the pin code for the current user. *) 8045 - val change_pin_code : body:PinCodeChange.Dto.t -> Client_.t -> unit -> Jsont.json 8089 + val change_pin_code : body:PinCodeChange.Dto.t -> t -> unit -> Jsont.json 8046 8090 8047 8091 (** Reset pin code 8048 8092 8049 8093 Reset the pin code for the current user by providing the account password *) 8050 - val reset_pin_code : Client_.t -> unit -> Jsont.json 8094 + val reset_pin_code : t -> unit -> Jsont.json 8051 8095 8052 8096 (** Lock auth session 8053 8097 8054 8098 Remove elevated access to locked assets from the current session. *) 8055 - val lock_auth_session : Client_.t -> unit -> Jsont.json 8099 + val lock_auth_session : t -> unit -> Jsont.json 8056 8100 8057 8101 (** Unlock auth session 8058 8102 8059 8103 Temporarily grant the session elevated access to locked assets by providing the correct PIN code. *) 8060 - val unlock_auth_session : body:SessionUnlock.Dto.t -> Client_.t -> unit -> Jsont.json 8104 + val unlock_auth_session : body:SessionUnlock.Dto.t -> t -> unit -> Jsont.json 8061 8105 8062 8106 (** Download asset archive 8063 8107 8064 8108 Download a ZIP archive containing the specified assets. The assets must have been previously requested via the "getDownloadInfo" endpoint. *) 8065 - val download_archive : ?key:string -> ?slug:string -> body:AssetIds.Dto.t -> Client_.t -> unit -> Jsont.json 8109 + val download_archive : ?key:string -> ?slug:string -> body:AssetIds.Dto.t -> t -> unit -> Jsont.json 8066 8110 8067 8111 (** Delete duplicates 8068 8112 8069 8113 Delete multiple duplicate assets specified by their IDs. *) 8070 - val delete_duplicates : Client_.t -> unit -> Jsont.json 8114 + val delete_duplicates : t -> unit -> Jsont.json 8071 8115 8072 8116 (** Delete a duplicate 8073 8117 8074 8118 Delete a single duplicate asset specified by its ID. *) 8075 - val delete_duplicate : id:string -> Client_.t -> unit -> Jsont.json 8119 + val delete_duplicate : id:string -> t -> unit -> Jsont.json 8076 8120 8077 8121 (** Create a face 8078 8122 8079 8123 Create a new face that has not been discovered by facial recognition. The content of the bounding box is considered a face. *) 8080 - val create_face : body:AssetFace.CreateDto.t -> Client_.t -> unit -> Jsont.json 8124 + val create_face : body:AssetFace.CreateDto.t -> t -> unit -> Jsont.json 8081 8125 8082 8126 (** Delete a face 8083 8127 8084 8128 Delete a face identified by the id. Optionally can be force deleted. *) 8085 - val delete_face : id:string -> Client_.t -> unit -> Jsont.json 8129 + val delete_face : id:string -> t -> unit -> Jsont.json 8086 8130 8087 8131 (** Create a manual job 8088 8132 8089 8133 Run a specific job. Most jobs are queued automatically, but this endpoint allows for manual creation of a handful of jobs, including various cleanup tasks, as well as creating a new database backup. *) 8090 - val create_job : body:Job.CreateDto.t -> Client_.t -> unit -> Jsont.json 8134 + val create_job : body:Job.CreateDto.t -> t -> unit -> Jsont.json 8091 8135 8092 8136 (** Delete a library 8093 8137 8094 8138 Delete an external library by its ID. *) 8095 - val delete_library : id:string -> Client_.t -> unit -> Jsont.json 8139 + val delete_library : id:string -> t -> unit -> Jsont.json 8096 8140 8097 8141 (** Scan a library 8098 8142 8099 8143 Queue a scan for the external library to find and import new assets. *) 8100 - val scan_library : id:string -> Client_.t -> unit -> Jsont.json 8144 + val scan_library : id:string -> t -> unit -> Jsont.json 8101 8145 8102 8146 (** Delete a memory 8103 8147 8104 8148 Delete a specific memory by its ID. *) 8105 - val delete_memory : id:string -> Client_.t -> unit -> Jsont.json 8149 + val delete_memory : id:string -> t -> unit -> Jsont.json 8106 8150 8107 8151 (** Update notifications 8108 8152 8109 8153 Update a list of notifications. Allows to bulk-set the read status of notifications. *) 8110 - val update_notifications : body:NotificationUpdateAll.Dto.t -> Client_.t -> unit -> Jsont.json 8154 + val update_notifications : body:NotificationUpdateAll.Dto.t -> t -> unit -> Jsont.json 8111 8155 8112 8156 (** Delete notifications 8113 8157 8114 8158 Delete a list of notifications at once. *) 8115 - val delete_notifications : Client_.t -> unit -> Jsont.json 8159 + val delete_notifications : t -> unit -> Jsont.json 8116 8160 8117 8161 (** Delete a notification 8118 8162 8119 8163 Delete a specific notification. *) 8120 - val delete_notification : id:string -> Client_.t -> unit -> Jsont.json 8164 + val delete_notification : id:string -> t -> unit -> Jsont.json 8121 8165 8122 8166 (** Redirect OAuth to mobile 8123 8167 8124 8168 Requests to this URL are automatically forwarded to the mobile app, and is used in some cases for OAuth redirecting. *) 8125 - val redirect_oauth_to_mobile : Client_.t -> unit -> Jsont.json 8169 + val redirect_oauth_to_mobile : t -> unit -> Jsont.json 8126 8170 8127 8171 (** Remove a partner 8128 8172 8129 8173 Stop sharing assets with a partner. *) 8130 - val remove_partner : id:string -> Client_.t -> unit -> Jsont.json 8174 + val remove_partner : id:string -> t -> unit -> Jsont.json 8131 8175 8132 8176 (** Delete people 8133 8177 8134 8178 Bulk delete a list of people at once. *) 8135 - val delete_people : Client_.t -> unit -> Jsont.json 8179 + val delete_people : t -> unit -> Jsont.json 8136 8180 8137 8181 (** Delete person 8138 8182 8139 8183 Delete an individual person. *) 8140 - val delete_person : id:string -> Client_.t -> unit -> Jsont.json 8184 + val delete_person : id:string -> t -> unit -> Jsont.json 8141 8185 8142 8186 (** Get person thumbnail 8143 8187 8144 8188 Retrieve the thumbnail file for a person. *) 8145 - val get_person_thumbnail : id:string -> Client_.t -> unit -> Jsont.json 8189 + val get_person_thumbnail : id:string -> t -> unit -> Jsont.json 8146 8190 8147 8191 (** Empty a queue 8148 8192 8149 8193 Removes all jobs from the specified queue. *) 8150 - val empty_queue : name:string -> Client_.t -> unit -> Jsont.json 8194 + val empty_queue : name:string -> t -> unit -> Jsont.json 8151 8195 8152 8196 (** Retrieve search suggestions 8153 8197 8154 8198 Retrieve search suggestions based on partial input. This endpoint is used for typeahead search features. *) 8155 - val get_search_suggestions : ?country:string -> ?include_null:string -> ?lens_model:string -> ?make:string -> ?model:string -> ?state:string -> type_:string -> Client_.t -> unit -> Jsont.json 8199 + val get_search_suggestions : ?country:string -> ?include_null:string -> ?lens_model:string -> ?make:string -> ?model:string -> ?state:string -> type_:string -> t -> unit -> Jsont.json 8156 8200 8157 8201 (** Delete server product key 8158 8202 8159 8203 Delete the currently set server product key. *) 8160 - val delete_server_license : Client_.t -> unit -> Jsont.json 8204 + val delete_server_license : t -> unit -> Jsont.json 8161 8205 8162 8206 (** Delete all sessions 8163 8207 8164 8208 Delete all sessions for the user. This will not delete the current session. *) 8165 - val delete_all_sessions : Client_.t -> unit -> Jsont.json 8209 + val delete_all_sessions : t -> unit -> Jsont.json 8166 8210 8167 8211 (** Delete a session 8168 8212 8169 8213 Delete a specific session by id. *) 8170 - val delete_session : id:string -> Client_.t -> unit -> Jsont.json 8214 + val delete_session : id:string -> t -> unit -> Jsont.json 8171 8215 8172 8216 (** Lock a session 8173 8217 8174 8218 Lock a specific session by id. *) 8175 - val lock_session : id:string -> Client_.t -> unit -> Jsont.json 8219 + val lock_session : id:string -> t -> unit -> Jsont.json 8176 8220 8177 8221 (** Delete a shared link 8178 8222 8179 8223 Delete a specific shared link by its ID. *) 8180 - val remove_shared_link : id:string -> Client_.t -> unit -> Jsont.json 8224 + val remove_shared_link : id:string -> t -> unit -> Jsont.json 8181 8225 8182 8226 (** Delete stacks 8183 8227 8184 8228 Delete multiple stacks by providing a list of stack IDs. *) 8185 - val delete_stacks : Client_.t -> unit -> Jsont.json 8229 + val delete_stacks : t -> unit -> Jsont.json 8186 8230 8187 8231 (** Delete a stack 8188 8232 8189 8233 Delete a specific stack by its ID. *) 8190 - val delete_stack : id:string -> Client_.t -> unit -> Jsont.json 8234 + val delete_stack : id:string -> t -> unit -> Jsont.json 8191 8235 8192 8236 (** Remove an asset from a stack 8193 8237 8194 8238 Remove a specific asset from a stack by providing the stack ID and asset ID. *) 8195 - val remove_asset_from_stack : asset_id:string -> id:string -> Client_.t -> unit -> Jsont.json 8239 + val remove_asset_from_stack : asset_id:string -> id:string -> t -> unit -> Jsont.json 8196 8240 8197 8241 (** Acknowledge changes 8198 8242 8199 8243 Send a list of synchronization acknowledgements to confirm that the latest changes have been received. *) 8200 - val send_sync_ack : body:SyncAckSet.Dto.t -> Client_.t -> unit -> Jsont.json 8244 + val send_sync_ack : body:SyncAckSet.Dto.t -> t -> unit -> Jsont.json 8201 8245 8202 8246 (** Delete acknowledgements 8203 8247 8204 8248 Delete specific synchronization acknowledgments. *) 8205 - val delete_sync_ack : Client_.t -> unit -> Jsont.json 8249 + val delete_sync_ack : t -> unit -> Jsont.json 8206 8250 8207 8251 (** Stream sync changes 8208 8252 8209 8253 Retrieve a JSON lines streamed response of changes for synchronization. This endpoint is used by the mobile app to efficiently stay up to date with changes. *) 8210 - val get_sync_stream : body:SyncStream.Dto.t -> Client_.t -> unit -> Jsont.json 8254 + val get_sync_stream : body:SyncStream.Dto.t -> t -> unit -> Jsont.json 8211 8255 8212 8256 (** Update admin onboarding 8213 8257 8214 8258 Update the admin onboarding status. *) 8215 - val update_admin_onboarding : body:AdminOnboarding.UpdateDto.t -> Client_.t -> unit -> Jsont.json 8259 + val update_admin_onboarding : body:AdminOnboarding.UpdateDto.t -> t -> unit -> Jsont.json 8216 8260 8217 8261 (** Delete a tag 8218 8262 8219 8263 Delete a specific tag by its ID. *) 8220 - val delete_tag : id:string -> Client_.t -> unit -> Jsont.json 8264 + val delete_tag : id:string -> t -> unit -> Jsont.json 8221 8265 8222 8266 (** Delete user product key 8223 8267 8224 8268 Delete the registered product key for the current user. *) 8225 - val delete_user_license : Client_.t -> unit -> Jsont.json 8269 + val delete_user_license : t -> unit -> Jsont.json 8226 8270 8227 8271 (** Delete user onboarding 8228 8272 8229 8273 Delete the onboarding status of the current user. *) 8230 - val delete_user_onboarding : Client_.t -> unit -> Jsont.json 8274 + val delete_user_onboarding : t -> unit -> Jsont.json 8231 8275 8232 8276 (** Delete user profile image 8233 8277 8234 8278 Delete the profile image of the current user. *) 8235 - val delete_profile_image : Client_.t -> unit -> Jsont.json 8279 + val delete_profile_image : t -> unit -> Jsont.json 8236 8280 8237 8281 (** Retrieve user profile image 8238 8282 8239 8283 Retrieve the profile image file for a user. *) 8240 - val get_profile_image : id:string -> Client_.t -> unit -> Jsont.json 8284 + val get_profile_image : id:string -> t -> unit -> Jsont.json 8241 8285 8242 8286 (** Retrieve unique paths 8243 8287 8244 8288 Retrieve a list of unique folder paths from asset original paths. *) 8245 - val get_unique_original_paths : Client_.t -> unit -> Jsont.json 8289 + val get_unique_original_paths : t -> unit -> Jsont.json 8246 8290 8247 8291 (** Delete a workflow 8248 8292 8249 8293 Delete a workflow by its ID. *) 8250 - val delete_workflow : id:string -> Client_.t -> unit -> Jsont.json 8294 + val delete_workflow : id:string -> t -> unit -> Jsont.json 8251 8295 end 8252 8296 8253 8297 module ActivityStatistics : sig ··· 8267 8311 (** Retrieve activity statistics 8268 8312 8269 8313 Returns the number of likes and comments for a given album or asset in an album. *) 8270 - val get_activity_statistics : album_id:string -> ?asset_id:string -> Client_.t -> unit -> ResponseDto.t 8314 + val get_activity_statistics : album_id:string -> ?asset_id:string -> t -> unit -> ResponseDto.t 8271 8315 end

+34 -38

ocaml-openapi/lib/openapi_codegen.ml

··· 507 507 if schema.enum_variants = [] then 508 508 Printf.sprintf "%stype t = string\n\nlet jsont = Jsont.string" doc 509 509 else 510 - let type_def = Printf.sprintf "%stype t =\n%s" doc 511 - (String.concat "\n" (List.map (fun (v, _) -> " | " ^ v) schema.enum_variants)) 510 + let type_def = Printf.sprintf "%stype t = [\n%s\n]" doc 511 + (String.concat "\n" (List.map (fun (v, _) -> " | `" ^ v) schema.enum_variants)) 512 512 in 513 513 let dec_cases = String.concat "\n" (List.map (fun (v, raw) -> 514 - Printf.sprintf " | %S -> %s" raw v 514 + Printf.sprintf " | %S -> `%s" raw v 515 515 ) schema.enum_variants) in 516 516 let enc_cases = String.concat "\n" (List.map (fun (v, raw) -> 517 - Printf.sprintf " | %s -> %S" v raw 517 + Printf.sprintf " | `%s -> %S" v raw 518 518 ) schema.enum_variants) in 519 519 Printf.sprintf {|%s 520 520 ··· 531 531 if schema.enum_variants = [] then 532 532 Printf.sprintf "%stype t = string\n\nval jsont : t Jsont.t" doc 533 533 else 534 - let type_def = Printf.sprintf "%stype t =\n%s" doc 535 - (String.concat "\n" (List.map (fun (v, _) -> " | " ^ v) schema.enum_variants)) 534 + let type_def = Printf.sprintf "%stype t = [\n%s\n]" doc 535 + (String.concat "\n" (List.map (fun (v, _) -> " | `" ^ v) schema.enum_variants)) 536 536 in 537 537 Printf.sprintf "%s\n\nval jsont : t Jsont.t" type_def 538 538 ··· 736 736 let method_supports_body = not (List.mem op.method_ ["DELETE"; "HEAD"; "OPTIONS"]) in 737 737 let http_call = match op.body_schema_ref, method_supports_body with 738 738 | Some _, true -> 739 - Printf.sprintf "Requests.%s client.Client_.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json %s body)) url" 739 + Printf.sprintf "Requests.%s client.session ~body:(Requests.Body.json (Openapi.Runtime.Json.encode_json %s body)) url" 740 740 method_lower body_codec 741 741 | Some _, false -> 742 742 (* Method doesn't support body - ignore the body parameter *) 743 - Printf.sprintf "Requests.%s client.Client_.session url" method_lower 743 + Printf.sprintf "Requests.%s client.session url" method_lower 744 744 | None, _ -> 745 - Printf.sprintf "Requests.%s client.Client_.session url" method_lower 745 + Printf.sprintf "Requests.%s client.session url" method_lower 746 746 in 747 747 748 748 let response_codec = match op.response_schema_ref with ··· 760 760 let op_name = %S in 761 761 let url_path = %s in 762 762 let query = %s in 763 - let url = client.Client_.base_url ^ url_path ^ query in 763 + let url = client.base_url ^ url_path ^ query in 764 764 let response = 765 765 try %s 766 766 with Eio.Io _ as ex -> ··· 813 813 | Some name -> format_type_ref ~current_prefix name 814 814 | None -> "Jsont.json" 815 815 in 816 - let all_args = path_args @ query_args @ body_arg @ ["Client_.t"; "unit"; response_type] in 816 + let all_args = path_args @ query_args @ body_arg @ ["t"; "unit"; response_type] in 817 817 818 818 Printf.sprintf "%sval %s : %s" full_doc op.func_name (String.concat " -> " all_args) 819 819 ··· 909 909 (* Build module tree *) 910 910 let (tree, sorted_modules) = build_module_tree schemas operations in 911 911 912 - (* Generate client module *) 913 - let client_impl = {|module Client_ = struct 914 - type t = { 915 - session : Requests.t; 916 - base_url : string; 917 - } 912 + (* Generate top-level client type and functions *) 913 + let client_impl = {|type t = { 914 + session : Requests.t; 915 + base_url : string; 916 + } 918 917 919 - let create ?session ~sw env ~base_url = 920 - let session = match session with 921 - | Some s -> s 922 - | None -> Requests.create ~sw env 923 - in 924 - { session; base_url } 918 + let create ?session ~sw env ~base_url = 919 + let session = match session with 920 + | Some s -> s 921 + | None -> Requests.create ~sw env 922 + in 923 + { session; base_url } 925 924 926 - let base_url t = t.base_url 927 - let session t = t.session 928 - end|} in 925 + let base_url t = t.base_url 926 + let session t = t.session|} in 929 927 930 928 (* Generate prefix modules in dependency order *) 931 929 let prefix_mods = List.filter_map (fun name -> ··· 985 983 (* Build module tree *) 986 984 let (tree, sorted_modules) = build_module_tree schemas operations in 987 985 988 - (* Generate client module interface *) 989 - let client_intf = {|module Client_ : sig 990 - type t 986 + (* Generate top-level client type and function interfaces *) 987 + let client_intf = {|type t 991 988 992 - val create : 993 - ?session:Requests.t -> 994 - sw:Eio.Switch.t -> 995 - < net : _ Eio.Net.t ; fs : Eio.Fs.dir_ty Eio.Path.t ; clock : _ Eio.Time.clock ; .. > -> 996 - base_url:string -> 997 - t 989 + val create : 990 + ?session:Requests.t -> 991 + sw:Eio.Switch.t -> 992 + < net : _ Eio.Net.t ; fs : Eio.Fs.dir_ty Eio.Path.t ; clock : _ Eio.Time.clock ; .. > -> 993 + base_url:string -> 994 + t 998 995 999 - val base_url : t -> string 1000 - val session : t -> Requests.t 1001 - end|} in 996 + val base_url : t -> string 997 + val session : t -> Requests.t|} in 1002 998 1003 999 (* Generate prefix modules in dependency order *) 1004 1000 let prefix_mods = List.filter_map (fun name ->

Configure Feed

Configure Feed