diff options
author | Daiderd Jordan <daiderd@gmail.com> | 2017-02-14 23:18:44 +0100 |
---|---|---|
committer | Nicolas B. Pierron <nicolas.b.pierron@gmail.com> | 2017-02-28 00:14:48 +0100 |
commit | 3f2566689d14f1d7778d55ca807d1dad2f4695d1 (patch) | |
tree | 22129406dc4fa63df482c1ab1fbbeb6075eaf3ff /lib/modules.nix | |
parent | 3c9fbfbe7f16ffbd21309d6a7dabc3fb197b5ffe (diff) | |
download | nixlib-3f2566689d14f1d7778d55ca807d1dad2f4695d1.tar nixlib-3f2566689d14f1d7778d55ca807d1dad2f4695d1.tar.gz nixlib-3f2566689d14f1d7778d55ca807d1dad2f4695d1.tar.bz2 nixlib-3f2566689d14f1d7778d55ca807d1dad2f4695d1.tar.lz nixlib-3f2566689d14f1d7778d55ca807d1dad2f4695d1.tar.xz nixlib-3f2566689d14f1d7778d55ca807d1dad2f4695d1.tar.zst nixlib-3f2566689d14f1d7778d55ca807d1dad2f4695d1.zip |
modules: add support for module replacement with disabledModules
This is based on a prototype Nicolas B. Pierron worked on during a discussion we had at FOSDEM.
Diffstat (limited to 'lib/modules.nix')
-rw-r--r-- | lib/modules.nix | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/lib/modules.nix b/lib/modules.nix index 4eee41306cd7..de9cfc637ae2 100644 --- a/lib/modules.nix +++ b/lib/modules.nix @@ -20,7 +20,8 @@ rec { , prefix ? [] , # This should only be used for special arguments that need to be evaluated # when resolving module structure (like in imports). For everything else, - # there's _module.args. + # there's _module.args. If specialArgs.modulesPath is defined it will be + # used as the base path for disabledModules. specialArgs ? {} , # This would be remove in the future, Prefer _module.args option instead. args ? {} @@ -58,10 +59,7 @@ rec { closed = closeModules (modules ++ [ internalModule ]) ({ inherit config options; lib = import ./.; } // specialArgs); - # Note: the list of modules is reversed to maintain backward - # compatibility with the old module system. Not sure if this is - # the most sensible policy. - options = mergeModules prefix (reverseList closed); + options = mergeModules prefix (filterModules (specialArgs.modulesPath or "") closed); # Traverse options and extract the option values into the final # config set. At the same time, check whether all option @@ -87,6 +85,16 @@ rec { result = { inherit options config; }; in result; + + # Filter disabled modules. Modules can be disabled allowing + # their implementation to be replaced. + filterModules = modulesPath: modules: + let + moduleKey = m: if isString m then toString modulesPath + "/" + m else toString m; + disabledKeys = map moduleKey (concatMap (m: m.disabledModules) modules); + in + filter (m: !(elem m.key disabledKeys)) modules; + /* Close a set of modules under the ‘imports’ relation. */ closeModules = modules: args: let @@ -111,12 +119,13 @@ rec { else {}; in if m ? config || m ? options then - let badAttrs = removeAttrs m ["imports" "options" "config" "key" "_file" "meta"]; in + let badAttrs = removeAttrs m ["_file" "key" "disabledModules" "imports" "options" "config" "meta"]; in if badAttrs != {} then throw "Module `${key}' has an unsupported attribute `${head (attrNames badAttrs)}'. This is caused by assignments to the top-level attributes `config' or `options'." else { file = m._file or file; key = toString m.key or key; + disabledModules = m.disabledModules or []; imports = m.imports or []; options = m.options or {}; config = mkMerge [ (m.config or {}) metaSet ]; @@ -124,9 +133,10 @@ rec { else { file = m._file or file; key = toString m.key or key; + disabledModules = m.disabledModules or []; imports = m.require or [] ++ m.imports or []; options = {}; - config = mkMerge [ (removeAttrs m ["key" "_file" "require" "imports"]) metaSet ]; + config = mkMerge [ (removeAttrs m ["_file" "key" "disabledModules" "require" "imports"]) metaSet ]; }; applyIfFunction = key: f: args@{ config, options, lib, ... }: if isFunction f then |