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

Make status-script more portable

Browse source
This commit is contained in:
Malte 2023-03-04 19:32:11 +01:00
parent 5bddda9d31
commit 930e8da23f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
packages/status-script/exe/Main.hs
View file

@ -198,8 +198,8 @@ main = do
some_change <- atomically $ STM.stateTVar module_state \(previous_commit, previous_system, previous_modes) ->
(previous_commit /= current_commit || previous_system /= current_system || previous_modes /= current_modes, (current_commit, current_system, current_modes))
when some_change do
next_system <- nix "eval" "--raw" ([i|/disk/persist/maralorn/git/config\#nixosConfigurations.#{host_name}.config.system.build.toplevel|] :: String) |> captureTrim
next_modes <- nix "eval" "--raw" ([i|/disk/persist/maralorn/git/config\#homeModes.#{host_name}|] :: String) |> captureTrim
next_system <- nix "eval" "--raw" ([i|/home/maralorn/git/config\#nixosConfigurations.#{host_name}.config.system.build.toplevel|] :: String) |> captureTrim
next_modes <- nix "eval" "--raw" ([i|/home/maralorn/git/config\#homeModes.#{host_name}|] :: String) |> captureTrim
atomically $ writeTVar dirty_var (current_system /= next_system, current_modes /= next_modes)
(system_dirty, modes_dirty) <- readTVarIO dirty_var
when' (system_dirty || modes_dirty) $ withColor "ffff00" [i|Current #{case (system_dirty,modes_dirty) of (True, True) -> "home and system"; (True, _) -> "system"; _ -> "home"} stale|]