+ | Disk_usage (dev, dir, _) -> sprintf "Disk_usage %s %s" dev dir
+ | Export_dir_to (t, dev, dir, file, _) ->
+ sprintf "Export_dir_to %s %s %s %s" (string_of_export_t t) dev dir file
+
+and string_of_export_t = function
+ | Export_tar -> "Export_tar"
+ | Export_tgz -> "Export_tgz"
+ | Export_checksums alg -> sprintf "Export_checksums %s" alg
+ | Export_list -> "Export_list"