Dasemu
40631362b3
Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
177 lines
4.0 KiB
OCaml
177 lines
4.0 KiB
OCaml
(** Shared error model. *)
|
|
|
|
type code =
|
|
| Add_id_resolution_failed
|
|
| Agent_bridge_already_running
|
|
| Agent_bridge_lock_failed
|
|
| Agent_master_prompt_invalid
|
|
| Agent_name_invalid
|
|
| Agent_prompt_template_invalid
|
|
| Ambiguous_page_name
|
|
| Ambiguous_property_name
|
|
| Ambiguous_tag_name
|
|
| Asset_checksum_failed
|
|
| Asset_checksum_missing
|
|
| Asset_create_failed
|
|
| Asset_file_copy_failed
|
|
| Asset_file_not_found
|
|
| Asset_not_found
|
|
| Asset_not_remote
|
|
| Asset_tag_not_found
|
|
| Asset_type_missing
|
|
| Asset_uuid_missing
|
|
| Auth_code_exchange_failed
|
|
| Auth_file_delete_failed
|
|
| Auth_file_write_failed
|
|
| Auth_refresh_failed
|
|
| Backup_create_failed
|
|
| Backup_not_found
|
|
| Block_link_cycle
|
|
| Block_link_target_not_found
|
|
| Block_not_found
|
|
| Browser_open_failed
|
|
| Codex_not_found
|
|
| Codex_session_id_missing
|
|
| Codex_start_failed
|
|
| Config_write_failed
|
|
| Doctor_error
|
|
| Doctor_script_missing
|
|
| Doctor_script_unreadable
|
|
| Doctor_server_not_ready
|
|
| E2ee_password_failed
|
|
| E2ee_password_not_found
|
|
| Entity_not_found
|
|
| Exception
|
|
| External_asset
|
|
| Graph_already_exists
|
|
| Graph_db_not_empty
|
|
| Graph_exists
|
|
| Graph_not_exists
|
|
| Graph_not_removed
|
|
| Graph_validation_failed
|
|
| Invalid_auth_file
|
|
| Invalid_auth_token
|
|
| Invalid_blocks
|
|
| Invalid_callback_request
|
|
| Invalid_callback_state
|
|
| Invalid_config
|
|
| Invalid_options
|
|
| Invalid_property_target
|
|
| Invalid_query
|
|
| Invalid_source
|
|
| Invalid_tag_target
|
|
| Invalid_target
|
|
| Login_callback_error
|
|
| Login_callback_not_found
|
|
| Login_callback_server_start_failed
|
|
| Login_not_configured
|
|
| Login_timeout
|
|
| Logout_not_configured
|
|
| Missing_asset_selector
|
|
| Missing_auth
|
|
| Missing_callback_code
|
|
| Missing_content
|
|
| Missing_dst
|
|
| Missing_examples
|
|
| Missing_graph
|
|
| Missing_id_token
|
|
| Missing_page_name
|
|
| Missing_property_name
|
|
| Missing_query
|
|
| Missing_query_text
|
|
| Missing_repo
|
|
| Missing_snapshot
|
|
| Missing_source
|
|
| Missing_tag_name
|
|
| Missing_target
|
|
| Missing_template_code_block
|
|
| Missing_template_vars
|
|
| Not_asset
|
|
| Not_implemented
|
|
| Page_hierarchy_parent_cycle
|
|
| Page_not_found
|
|
| Property_built_in
|
|
| Property_hidden
|
|
| Property_not_found
|
|
| Recycled_page
|
|
| Remote_graph_not_found
|
|
| Root_dir_permission
|
|
| Server_cleanup_failed
|
|
| Server_not_found
|
|
| Server_owned_by_other
|
|
| Server_revision_mismatch_after_restart
|
|
| Server_script_missing
|
|
| Server_start_failed
|
|
| Server_start_timeout_orphan
|
|
| Server_stop_timeout
|
|
| Skill_home_dir_unavailable
|
|
| Skill_install_failed
|
|
| Skill_show_failed
|
|
| Skill_source_not_found
|
|
| Source_not_found
|
|
| Spec_blocker
|
|
| Sync_not_started
|
|
| Sync_remote_graphs_failed
|
|
| Sync_start_runtime_error
|
|
| Sync_start_timeout
|
|
| Sync_upload_failed
|
|
| Tag_built_in
|
|
| Tag_create_not_tag
|
|
| Tag_hidden
|
|
| Tag_name_conflict
|
|
| Tag_not_found
|
|
| Tag_rename_conflict
|
|
| Target_not_found
|
|
| Task_tag_not_found
|
|
| Unknown_command
|
|
| Unknown_query
|
|
| Unknown_template_vars
|
|
| Unsupported_input_format
|
|
| Unsupported_output_format
|
|
| Upsert_id_not_found
|
|
| Upsert_id_type_mismatch
|
|
|
|
val code_to_string : code -> string
|
|
val code_to_keyword : code -> Cli_primitive.keyword
|
|
|
|
type candidate = { id : Cli_primitive.db_id option; name : string option }
|
|
|
|
type t = {
|
|
code : code;
|
|
message : string;
|
|
hint : string option;
|
|
candidates : candidate Rrbvec.t;
|
|
context : Melange_edn_melange.any option;
|
|
}
|
|
|
|
type 'a build_result = ('a, t) result
|
|
|
|
type source =
|
|
| Cli_parse
|
|
| Config
|
|
| Build_action
|
|
| Transport
|
|
| Server
|
|
| Auth
|
|
| Sync
|
|
| Db_worker
|
|
| Filesystem
|
|
| Unknown
|
|
|
|
val make :
|
|
?hint:string ->
|
|
?candidates:candidate Rrbvec.t ->
|
|
?context:Melange_edn_melange.any ->
|
|
code ->
|
|
string ->
|
|
t
|
|
|
|
val invalid_options : string -> t
|
|
val missing_graph : unit -> t
|
|
val missing_repo : string -> t
|
|
val missing_target : string -> t
|
|
val unknown_command : string -> t
|
|
val exception_error : ?context:Melange_edn_melange.any -> exn -> t
|
|
val map : ('a -> 'b) -> 'a build_result -> 'b build_result
|
|
val bind : 'a build_result -> ('a -> 'b build_result) -> 'b build_result
|