summaryrefslogtreecommitdiff
path: root/mkbackup/mkbackup.ha
blob: 210e00a53247100c4ca506d5632e6ca529f75663 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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);
};