type status
-val initial_status: ?cover:string -> unit -> status
+val initial_status: unit -> status
+
+val refresh_status: status -> status
val meta_of_aut:
(status -> 'a) -> (status -> Meta.entity -> 'a) ->
- status -> Aut.entity -> 'a
+ status -> Aut.command -> 'a