diff options
author | tv <tv@krebsco.de> | 2015-07-25 02:14:44 +0200 |
---|---|---|
committer | tv <tv@krebsco.de> | 2015-07-25 02:14:44 +0200 |
commit | 0906cdb433fe5b8c67c2956c475a9b6d340a260f (patch) | |
tree | f17f8f9e3d19ffbca7cf8a90a5cbdc66363f45af /3modules/krebs/default.nix | |
parent | 726661bc94926397064a6117ed577f2362a4ceb7 (diff) |
{3 -> 4} krebs {listset,tree}
Diffstat (limited to '3modules/krebs/default.nix')
-rw-r--r-- | 3modules/krebs/default.nix | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/3modules/krebs/default.nix b/3modules/krebs/default.nix index 43e7e4c..33c1088 100644 --- a/3modules/krebs/default.nix +++ b/3modules/krebs/default.nix @@ -68,27 +68,12 @@ let de.krebsco = "ovh"; }; - # splitByProvider : [alias] -> set providername [alias] - splitByProvider = foldl (acc: alias: insert (providerOf alias) alias acc) {}; + # splitByProvider : [alias] -> listset providername alias + splitByProvider = foldl (acc: alias: listset-insert (providerOf alias) alias acc) {}; # providerOf : alias -> providername providerOf = alias: tree-get (splitString "." alias) providers; - - # insert : k -> v -> set k [v] -> set k [v] - insert = name: value: set: - set // { ${name} = set.${name} or [] ++ [value]; }; - - # tree k v = set k (either v (tree k v)) - - # tree-get : [k] -> tree k v -> v - tree-get = path: x: - let - y = x.${last path}; - in - if typeOf y != "set" - then y - else tree-get (init path) y; in concatStringsSep "\n" (flatten ( # TODO deepMap ["hosts" "nets"] (hostname: host: netname: net: |