Module Ketrew.Persistent_data

module Persistent_data: sig .. end

type t 

val create : database_parameters:string ->
       (t,
        [> `Database of
             [> `Get of Trakeva.Key_in_collection.t
              | `Get_all of string
              | `Load of string ] *
             string
         | `Missing_data of string
         | `Target of [> `Deserilization of string ] ])
       Unix_io.Deferred_result.t

val unload : t ->
       (unit, [> `Database of [> `Close ] * string ]) Unix_io.Deferred_result.t

val get_target : t ->
       Ketrew_pure.Target.id ->
       (Ketrew_pure.Target.t,
        [> `Database of
             [> `Get of Trakeva.Key_in_collection.t | `Load of string ] * string
         | `Missing_data of string
         | `Target of [> `Deserilization of string ] ])
       Unix_io.Deferred_result.t

val all_targets : t ->
       (Ketrew_pure.Target.t list,
        [> `Database of
             [> `Get of Trakeva.Key_in_collection.t
              | `Get_all of string
              | `Load of string ] *
             string
         | `Missing_data of string
         | `Target of [> `Deserilization of string ] ])
       Unix_io.Deferred_result.t

val activate_target : t ->
       target:Ketrew_pure.Target.t ->
       reason:[ `Dependency of Ketrew_pure.Target.id | `User ] ->
       (unit,
        [> `Database of [> `Act of Trakeva.Action.t | `Load of string ] * string
         | `Database_unavailable of string ])
       Unix_io.Deferred_result.t

val fold_active_targets : t ->
       init:'a ->
       f:('a ->
          target:Ketrew_pure.Target.t ->
          ('a,
           [> `Database of
                [> `Get of Trakeva.Key_in_collection.t
                 | `Iter of string
                 | `Load of string ] *
                string
            | `Missing_data of string
            | `Target of [> `Deserilization of string ] ]
           as 'combined_errors)
          Unix_io.Deferred_result.t) ->
       ('a, 'combined_errors) Unix_io.Deferred_result.t

val move_target_to_finished_collection : t ->
       target:Ketrew_pure.Target.t ->
       (unit,
        [> `Database of [> `Act of Trakeva.Action.t | `Load of string ] * string
         | `Database_unavailable of string ])
       Unix_io.Deferred_result.t

val update_target : t ->
       Ketrew_pure.Target.t ->
       (unit,
        [> `Database of [> `Act of Trakeva.Action.t | `Load of string ] * string
         | `Database_unavailable of string ])
       Unix_io.Deferred_result.t

module Killing_targets: sig .. end

module Adding_targets: sig .. end