+let status indicator info =
+ match info with
+ | "" -> indicator
+ | _ -> sprintf "%s: %s" indicator info
+
+let status_ok ?(info="") () =
+ status (color Green "OK") info
+
+let status_error ?(info="") () =
+ status (color Red "ERROR") info
+
+let status_warn ?(info="") () =
+ status (color Yellow "WARN") info
+