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

Readd accidentally dropped feature

Browse source
This commit is contained in:
Malte 2023-03-15 19:37:05 +01:00
parent 940d76d474
commit 5c7aa77c7f
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -211,6 +211,10 @@ main = do
let hosts = ["hera", "fluffy"]
unreachable_hosts <- flip filterM hosts \host -> isLeft <$> (Shh.tryFailure do (tailscale "ping" "-c" "1" (toString host)) &> Shh.devNull)
when' ([] /= unreachable_hosts) do withColor red [i|No tunnel to #{Text.intercalate ", " unreachable_hosts}|]
, simpleModule (5 * oneSecond) $ do
current_kernel <- readlink "/run/current-system/kernel" |> captureTrim
booted_kernel <- readlink "/run/booted-system/kernel" |> captureTrim
when' (current_kernel /= booted_kernel) $ withColor "ffff00" "Booted kernel stale"
, \var -> do
commit_var <- newTVarIO ""
system_var <- newTVarIO ""