1 files changed, 21 insertions, 0 deletions
diff --git a/mkbackup/mkbackup.ha b/mkbackup/mkbackup.ha
new file mode 100644
index 0000000..210e00a
--- /dev/null
+++ b/mkbackup/mkbackup.ha
@@ -0,0 +1,21 @@
+use fmt;
+use io;
+
+use gpt;
+
+export fn mkbackup(vol: io::file, args: []str) void = {
+	const vol = match(gpt::from(vol)) {
+	case let g: *gpt::gpt =>
+		yield g;
+	case gpt::nogpt =>
+		fmt::fatalf("{}: disk does not have valid gpt", args[0]);
+	case =>
+		fmt::fatalf("{}: could not access volume", args[0]);
+	};
+	defer {
+		gpt::commit(vol)!;	
+		gpt::finish(vol);
+	};
+
+	gpt::mkbackup(vol);
+};