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