62 lines
1.9 KiB
Nix
62 lines
1.9 KiB
Nix
{ config, pkgs, lib, ... }:
|
|
let
|
|
inherit (import ../lib) writeHaskellScript haskellList;
|
|
me = config.m-0.private.me;
|
|
update-command = [
|
|
"${pkgs.systemd}/bin/systemctl"
|
|
"restart"
|
|
"test-and-update.service"
|
|
"--no-block"
|
|
];
|
|
post-update = writeHaskellScript {
|
|
name = "post-update";
|
|
bins = [ pkgs.git pkgs.nix ];
|
|
imports = [
|
|
"System.Environment (lookupEnv)"
|
|
"Control.Monad (ap)"
|
|
"System.Directory (withCurrentDirectory)"
|
|
];
|
|
|
|
} ''
|
|
checkout :: String -> IO FilePath
|
|
checkout path = do
|
|
(decodeUtf8 -> dir) <- mktemp "-d" |> captureTrim
|
|
git "clone" path dir
|
|
pure dir
|
|
|
|
main = do
|
|
mirror <- lookupEnv "GL_OPTION_MIRROR"
|
|
for_ mirror $ \mirror -> do
|
|
echo ([i|Forwarding push to #{mirror}|] :: String)
|
|
git "push" "--all" "-f" mirror
|
|
deploy <- lookupEnv "GL_OPTION_WEB_DEPLOY"
|
|
for_ deploy $ \deploy -> do
|
|
(decodeUtf8 -> path) <- pwd |> captureTrim
|
|
echo ([i|Deploying build to /var/www/#{deploy}|] :: String)
|
|
bracket (checkout path) (rm "-rf") $ \dir -> withCurrentDirectory dir $ nix "build" "-o" ([i|/var/www/#{deploy}|] :: String)
|
|
echo "Done"
|
|
test <- lookupEnv "GL_OPTION_TEST"
|
|
for_ test $ \_ -> do
|
|
echo "Triggering (an async) system update."
|
|
exe "sudo" ${haskellList update-command};
|
|
'';
|
|
in {
|
|
systemd.tmpfiles.rules = let cfg = config.services.gitolite;
|
|
in lib.mkAfter
|
|
[ "z ${cfg.dataDir}/.ssh/id_ed25519 0600 ${cfg.user} ${cfg.group} - -" ];
|
|
users.users.git.linger =
|
|
true; # Frequent restarting of the systemd-user-unit leads to errors
|
|
security.sudo.extraRules = [{
|
|
commands = [{
|
|
command = builtins.concatStringsSep " " update-command;
|
|
options = [ "NOPASSWD" ];
|
|
}];
|
|
users = [ "git" ];
|
|
}];
|
|
services.gitolite = {
|
|
enable = true;
|
|
user = "git";
|
|
adminPubkey = builtins.elemAt me.keys 0;
|
|
commonHooks = [ "${post-update}/bin/post-update" ];
|
|
};
|
|
}
|