maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Improve test-config script

Browse source
This commit is contained in:
Malte 2023-03-06 23:18:36 +01:00
parent ff5a6b4143
commit 6ec9d187b7
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
nixos/roles/laminar/test-config.nix
View file

@ -64,7 +64,6 @@ in {
];
systemd.services = {
update-config = {
path = [pkgs.git pkgs.nix pkgs.openssh pkgs.nixos-rebuild pkgs.builders-configurator];
restartIfChanged = false;
unitConfig.X-StopOnRemoval = false;
serviceConfig = {
@ -81,6 +80,7 @@ in {
"Control.Exception qualified as Exception"
"Data.ByteString.Char8 qualified as BSC"
];
bins = [pkgs.nix-diff pkgs.jq];
} ''
exitOnError = \msg action -> try action >>= \case
Left (_ :: Exception.IOException) -> say msg >> exitSuccess
@ -90,15 +90,20 @@ in {
main = do
cd "/etc/nixos"
exitOnError "Cannot pull forward git config." do void do git ["pull", "--ff-only"]
current_commit <- BSC.strip <$> (exitOnError "Current system is from a dirty commit." do readFileBS "/run/current-system/config-commit")
void $ git ["pull", "--ff-only"]
new_system <- readlink "-f" "/var/cache/gc-links/test-config/nixos-configurations/hera" |> captureTrim
old_system <- readlink "-f" "/run/current-system" |> captureTrim
when (new_system == old_system) do say "No changes."; exitSuccess
let switch = do
nix_env "-p" "/nix/var/nix/profiles/system" "--set" (decodeUtf8 new_system :: String)
exe ([i|#{new_system}/bin/switch-to-configuration|] :: String) "switch"
exitSuccess
diff_is_small <- (== "[]") <$> (nix_diff "--json" [new_system, "/run/current-system"] |> jq ".inputsDiff.inputDerivationDiffs" |> captureTrim)
when diff_is_small switch
current_commit <- BSC.strip <$> (exitOnError "Current system is from a dirty commit." do readFileBS "/run/current-system/config-commit")
new_commit <- BSC.strip <$> readFileBS [i|#{new_system}/config-commit|]
when (current_commit == new_commit) do say "No changes." >> exitSuccess
is_direct_forward <- ("" ==) <$> (git ["log", "-n1", "--oneline", [i|^#{new_commit}|], decodeUtf8 current_commit])
when is_direct_forward do
nix_env "-p" "/nix/var/nix/profiles/system" "--set" (decodeUtf8 new_system :: String)
exe ([i|#{new_system}/bin/switch-to-configuration|] :: String) "switch"
when is_direct_forward switch
'';
in
lib.getExe haskell_script;