hosting/selfhostblocks
1
0
Fork 0
Code Issues Activity

fix haproxy config generation tests

Browse source
This commit is contained in:
ibizaman 2022-12-09 20:40:04 -08:00
parent 9246c03154
commit a6eba63f5f
1 changed files with 7 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
haproxy/configcreator.nix
View file

@ -190,9 +190,7 @@ let
recursiveMerge = attrList:
let f = attrPath:
zipAttrsWith (n: values:
if tail values == [] then
head values
else if all isList values then
if all isList values then
concatLists values
else if all isAttrs values then
f (attrPath ++ [n]) values
@ -305,27 +303,15 @@ in
];
};
http-response = [
''set-header Strict-Transport-Security "max-age=15552000; includeSubDomains; preload;"''
];
# acl = flatten (mapAttrsToList (name: config:
# assert assertHasAttr name ["frontend" "acl"] config;
# config.frontend.acl
# ) sites);
# use_backend = mapAttrsToList (name: config:
# assert assertHasAttr name ["frontend" "use_backend"] config;
# nameValuePair name config.frontend.use_backend
# ) sites;
http-response = {
set-header = [
''Strict-Transport-Security "max-age=15552000; includeSubDomains; preload;"''
];
};
}]
++ (mapAttrsToList (name: config:
assert assertHasAttr name ["frontend"] config;
#(filterAttrs (k: v: k != "use_backend" && k != "acl")
# (mapAttrsRecursive
# (ks: v: optionalAttrs (hasAttrByPath ["frontend" "use_backend"] v) (setAttrByPath ["frontend" "use_backend"] (nameValuePair name v.frontend.use_backend)))
# config.frontend
(updateByPath ["frontend" "use_backend"] (x: (nameValuePair name x)) config).frontend
#)
(updateByPath ["frontend" "use_backend"] (x: [(nameValuePair name x)]) config).frontend
) sites)
++ (mapAttrsToList (name: config:
if (hasAttr "debugHeaders" config && (getAttr "debugHeaders" config) != null) then {
@ -376,12 +362,6 @@ in
assert assertMsg (hasAttr "backend" config) "no backend defined in config for site ${name}, found attr names: ${toString (attrNames config)}";
nameValuePair name config.backend)
sites;
# inherit backend;
# backend =
# let
# b = backend: nameValuePair backend.name {inherit (backend) options;};
# in
# listToAttrs (flatten (map (s: mapAttrsToList b s.backends) sites));
};
# mapIfHasAttr = f: attr: set: