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"