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

Fix update-config script

Browse source
This commit is contained in:
Malte 2023-03-06 22:36:19 +01:00
parent 434df79688
commit ff5a6b4143
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -77,7 +77,10 @@ in {
pkgs.writeHaskellScript
{
inherit name;
imports = ["Control.Exception qualified as Exception"];
imports = [
"Control.Exception qualified as Exception"
"Data.ByteString.Char8 qualified as BSC"
];
} ''
exitOnError = \msg action -> try action >>= \case
Left (_ :: Exception.IOException) -> say msg >> exitSuccess
@ -88,9 +91,10 @@ in {
main = do
cd "/etc/nixos"
exitOnError "Cannot pull forward git config." do void do git ["pull", "--ff-only"]
current_commit <- exitOnError "Current system is from a dirty commit." $ readFileBS "/run/current-system/config-commit"
current_commit <- BSC.strip <$> (exitOnError "Current system is from a dirty commit." do readFileBS "/run/current-system/config-commit")
new_system <- readlink "-f" "/var/cache/gc-links/test-config/nixos-configurations/hera" |> captureTrim
new_commit <- readFileBS [i|#{new_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)