let string_of_status s =
  match s with
  | Up_to_date -> "Up-to-date"
  | Locally_modified -> "Locally Modified"
  | Locally_added -> "Locally Added"
  | Locally_removed -> "Locally Removed"
  | Needs_checkout -> "Needs Checkout"
  | Needs_Patch -> "Needs Patch"
  | Needs_Merge -> "Needs Merge"
  | Conflicts_on_merge -> "File had conflicts on merge"
  | Unknown -> "Unknown"