···

       
367
       
 
       
          // { CURL_CA_BUNDLE = "/etc/ssl/certs/ca-certificates.crt"; }

     

       
368
       
 
       
          // config.networking.proxy.envVars;

     

       
369
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
370
       
 
       
        serviceConfig =

     

       
371
       
 
       
          { Nice = cfg.daemonNiceLevel;

     

       
372
       
 
       
            IOSchedulingPriority = cfg.daemonIONiceLevel;

     

···

       
367
       
 
       
          // { CURL_CA_BUNDLE = "/etc/ssl/certs/ca-certificates.crt"; }

     

       
368
       
 
       
          // config.networking.proxy.envVars;

     

       
369
       
 
       


     

       
370
       
+
       
        unitConfig.RequiresMountsFor = "/nix/store";

     

       
371
       
+
       


     

       
372
       
 
       
        serviceConfig =

     

       
373
       
 
       
          { Nice = cfg.daemonNiceLevel;

     

       
374
       
 
       
            IOSchedulingPriority = cfg.daemonIONiceLevel;

     

···

       
261
       
 
       


     

       
262
       
 
       
sub pathToUnitName {

     

       
263
       
 
       
    my ($path) = @_;

     

       
264
       
-
       
    die unless substr($path, 0, 1) eq "/";

     

       
265
       
-
       
    return "-" if $path eq "/";

     

       
266
       
-
       
    $path = substr($path, 1);

     

       
267
       
-
       
    $path =~ s/\//-/g;

     

       
268
       
-
       
    # FIXME: handle - and unprintable characters.

     

       
269
       
-
       
    return $path;

     

       
270
       
 
       
}

     

       
271
       
 
       


     

       
272
       
 
       
sub unique {

     
···

       
290
       
 
       
foreach my $mountPoint (keys %$prevFss) {

     

       
291
       
 
       
    my $prev = $prevFss->{$mountPoint};

     

       
292
       
 
       
    my $new = $newFss->{$mountPoint};

     

       
293
       
-
       
    my $unit = pathToUnitName($mountPoint) . ".mount";

     

       
294
       
 
       
    if (!defined $new) {

     

       
295
       
 
       
        # Filesystem entry disappeared, so unmount it.

     

       
296
       
 
       
        $unitsToStop{$unit} = 1;

     

···

       
261
       
 
       


     

       
262
       
 
       
sub pathToUnitName {

     

       
263
       
 
       
    my ($path) = @_;

     

       
264
       
+
       
    open my $cmd, "-|", "systemd-escape", "--suffix=mount", "-p", $path

     

       
265
       
+
       
        or die "Unable to escape $path!\n";

     

       
266
       
+
       
    my $escaped = join "", <$cmd>;

     

       
267
       
+
       
    chomp $escaped;

     

       
268
       
+
       
    close $cmd or die;

     

       
269
       
+
       
    return $escaped;

     

       
270
       
 
       
}

     

       
271
       
 
       


     

       
272
       
 
       
sub unique {

     
···

       
290
       
 
       
foreach my $mountPoint (keys %$prevFss) {

     

       
291
       
 
       
    my $prev = $prevFss->{$mountPoint};

     

       
292
       
 
       
    my $new = $newFss->{$mountPoint};

     

       
293
       
+
       
    my $unit = pathToUnitName($mountPoint);

     

       
294
       
 
       
    if (!defined $new) {

     

       
295
       
 
       
        # Filesystem entry disappeared, so unmount it.

     

       
296
       
 
       
        $unitsToStop{$unit} = 1;