summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/default.nix55
1 files changed, 44 insertions, 11 deletions
diff --git a/lib/default.nix b/lib/default.nix
index 66e667a..f2908f5 100644
--- a/lib/default.nix
+++ b/lib/default.nix
@@ -9,6 +9,30 @@ let {
body.mount = mount-f {};
+ helper.find-device = device: let
+ environment = helper.device-id device;
+ in
+ # DEVICE points already to /dev/disk, so we don't handle it via /dev/disk/by-path
+ if hasPrefix "/dev/disk" device then
+ "${environment}='${device}'"
+ else ''
+ ${environment}=$(for x in /dev/disk/by-path/*; do
+ dev=$x
+ if [ "$(readlink -f $x)" = '${device}' ]; then
+ target=$dev
+ break
+ fi
+ done
+ if test -z $target; then
+ echo 'unable to find path of disk: ${device}, bailing out' >&2
+ exit 1
+ else
+ echo $target
+ fi)
+ '';
+
+ helper.device-id = device: "DEVICE${builtins.substring 0 5 (builtins.hashString "sha1" device)}";
+
config-f = q: x: config.${x.type} q x;
config.filesystem = q: x: {
@@ -70,19 +94,24 @@ let {
create.noop = q: x: "";
- create.partition = q: x: ''
- parted -s ${q.device} mkpart ${x.part-type} ${x.fs-type or ""} ${x.start} ${x.end}
+ create.partition = q: x: let
+ env = helper.device-id q.device;
+ in ''
+ parted -s "''${${env}}" mkpart ${x.part-type} ${x.fs-type or ""} ${x.start} ${x.end}
+ # ensure /dev/disk/by-path/..-partN exists before continuing
+ udevadm trigger --subsystem-match=block; udevadm settle
${optionalString (x.bootable or false) ''
- parted -s ${q.device} set ${toString q.index} boot on
+ parted -s "''${${env}}" set ${toString q.index} boot on
''}
${concatMapStringsSep "" (flag: ''
- parted -s ${q.device} set ${toString q.index} ${flag} on
+ parted -s "''${${env}}" set ${toString q.index} ${flag} on
'') (x.flags or [])}
- ${create-f { device = q.device + toString q.index; } x.content}
+ ${create-f { device = "\"\${${env}}\"-part" + toString q.index; } x.content}
'';
create.table = q: x: ''
- parted -s ${q.device} mklabel ${x.format}
+ ${helper.find-device q.device}
+ parted -s "''${${helper.device-id q.device}}" mklabel ${x.format}
${concatStrings (imap (index: create-f (q // { inherit index; })) x.partitions)}
'';
@@ -91,8 +120,8 @@ let {
mount.filesystem = q: x: {
fs.${x.mountpoint} = ''
- if ! findmnt "${q.device}" "/mnt${x.mountpoint}" > /dev/null 2>&1; then
- mount "${q.device}" "/mnt${x.mountpoint}" -o X-mount.mkdir
+ if ! findmnt ${q.device} "/mnt${x.mountpoint}" > /dev/null 2>&1; then
+ mount ${q.device} "/mnt${x.mountpoint}" -o X-mount.mkdir
fi
'';
};
@@ -102,6 +131,7 @@ let {
# attrValues returns values sorted by name. This is important, because it
# ensures that "/" is processed before "/foo" etc.
in ''
+ ${optionalString (hasAttr "table" z) (concatStringsSep "\n" (attrValues z.table))}
${optionalString (hasAttr "luks" z) (concatStringsSep "\n" (attrValues z.luks))}
${optionalString (hasAttr "lvm" z) (concatStringsSep "\n" (attrValues z.lvm))}
${optionalString (hasAttr "fs" z) (concatStringsSep "\n" (attrValues z.fs))}
@@ -129,8 +159,11 @@ let {
mount.noop = q: x: {};
mount.partition = q: x:
- mount-f { device = q.device + toString q.index; } x.content;
+ mount-f { device = "\"\${${q.device}}\"-part" + toString q.index; } x.content;
- mount.table = q: x:
- foldl' recursiveUpdate {} (imap (index: mount-f (q // { inherit index; })) x.partitions);
+ mount.table = q: x: (
+ recursiveUpdate
+ (foldl' recursiveUpdate {} (imap (index: mount-f (q // { inherit index; device = helper.device-id q.device; })) x.partitions))
+ {table.${q.device} = helper.find-device q.device;}
+ );
}