remove unused guardian target

uzh · Dec 17, 2024 · ea74883 · ea74883
1 parent 8a5a8d3
commit ea74883
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 29 deletions.
diff --git a/pool/app/settings/entity_guard.ml b/pool/app/settings/entity_guard.ml
@@ -1,19 +1,3 @@
-open CCFun.Infix
-
-module Target = struct
-  (* TODO: Make sure this works *)
-  type t = Entity.Value.t [@@deriving eq, show]
-
-  let to_authorizable ?ctx t =
-    let open Utils.Lwt_result.Infix in
-    Guard.Persistence.Target.decorate
-      ?ctx
-      (Guard.Uuid.target_of Pool_common.Id.value %> Guard.Target.create `SystemSetting)
-      t
-    >|- Pool_message.Error.authorization
-  ;;
-end
-
 module Access = struct
   open Guard
   open ValidationSet

diff --git a/pool/app/settings/repo/repo_entity.ml b/pool/app/settings/repo/repo_entity.ml
diff --git a/pool/app/settings/settings.mli b/pool/app/settings/settings.mli
@@ -174,19 +174,6 @@ val default_text_message_session_reminder_lead_time_key_yojson : Yojson.Safe.t
 val trigger_profile_update_after_key_yojson : Yojson.Safe.t
 
 module Guard : sig
-  module Target : sig
-    val to_authorizable
-      :  ?ctx:(string * string) list
-      -> Pool_common.Id.t
-      -> (Guard.Target.t, Pool_message.Error.t) Lwt_result.t
-
-    type t
-
-    val equal : t -> t -> bool
-    val pp : Format.formatter -> t -> unit
-    val show : t -> string
-  end
-
   module Access : sig
     val index : Guard.ValidationSet.t
     val create : Guard.ValidationSet.t