let
get_status t id =
get_target t id >>=
fun
target
->
return (
Target
.state target)