commit e14de56613fc8e42fb6249031efe9e7abbb65286 · pyrox.dev/nixpkgs

+21 -11

lib/modules.nix

···

       231
        
            correspond to the definition of 'loc' in 'opt.file'. */

     

       232
        
         mergeOptionDecls = loc: opts:

     

       233
        
           foldl' (res: opt:

     

       234
       -
             if opt.options ? default && res ? default ||

     

       235
       -
                opt.options ? example && res ? example ||

     

       236
       -
                opt.options ? description && res ? description ||

     

       237
       -
                opt.options ? apply && res ? apply ||

     

       238
       -
                # Accept to merge options which have identical types.

     

       239
       -
                opt.options ? type && res ? type && opt.options.type.name != res.type.name

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       240
        
             then

     

       241
        
               throw "The option `${showOption loc}' in `${opt.file}' is already declared in ${showFiles res.declarations}."

     

       242
        
             else

     
···

       258
        
               in opt.options // res //

     

       259
        
                 { declarations = res.declarations ++ [opt.file];

     

       260
        
                   options = submodules;

     

       261
       -
                 }

     

       262
        
           ) { inherit loc; declarations = []; options = []; } opts;

     

       263
        
       

     

       264
        
         /* Merge all the definitions of an option to produce the final

     
···

       422
        
             options = opt.options or

     

       423
        
               (throw "Option `${showOption loc'}' has type optionSet but has no option attribute, in ${showFiles opt.declarations}.");

     

       424
        
             f = tp:

     

       0
        
       
     

       0
        
       
     

       425
        
               if tp.name == "option set" || tp.name == "submodule" then

     

       426
        
                 throw "The option ${showOption loc} uses submodules without a wrapping type, in ${showFiles opt.declarations}."

     

       427
       -
               else if tp.name == "attribute set of option sets" then types.attrsOf (types.submodule options)

     

       428
       -
               else if tp.name == "list or attribute set of option sets" then types.loaOf (types.submodule options)

     

       429
       -
               else if tp.name == "list of option sets" then types.listOf (types.submodule options)

     

       430
       -
               else if tp.name == "null or option set" then types.nullOr (types.submodule options)

     

       431
        
               else tp;

     

       432
        
           in

     

       433
        
             if opt.type.getSubModules or null == null

···

       231
        
            correspond to the definition of 'loc' in 'opt.file'. */

     

       232
        
         mergeOptionDecls = loc: opts:

     

       233
        
           foldl' (res: opt:

     

       234
       +
             let t  = res.type;

     

       235
       +
                 t' = opt.options.type;

     

       236
       +
                 mergedType = t.typeMerge t'.functor;

     

       237
       +
                 typesMergeable = mergedType != null;

     

       238
       +
                 typeSet = if (bothHave "type") && typesMergeable

     

       239
       +
                              then { type = mergedType; }

     

       240
       +
                              else {};

     

       241
       +
                 bothHave = k: opt.options ? ${k} && res ? ${k};

     

       242
       +
             in

     

       243
       +
             if bothHave "default" ||

     

       244
       +
                bothHave "example" ||

     

       245
       +
                bothHave "description" ||

     

       246
       +
                bothHave "apply" ||

     

       247
       +
                (bothHave "type" && (! typesMergeable))

     

       248
        
             then

     

       249
        
               throw "The option `${showOption loc}' in `${opt.file}' is already declared in ${showFiles res.declarations}."

     

       250
        
             else

     
···

       266
        
               in opt.options // res //

     

       267
        
                 { declarations = res.declarations ++ [opt.file];

     

       268
        
                   options = submodules;

     

       269
       +
                 } // typeSet

     

       270
        
           ) { inherit loc; declarations = []; options = []; } opts;

     

       271
        
       

     

       272
        
         /* Merge all the definitions of an option to produce the final

     
···

       430
        
             options = opt.options or

     

       431
        
               (throw "Option `${showOption loc'}' has type optionSet but has no option attribute, in ${showFiles opt.declarations}.");

     

       432
        
             f = tp:

     

       433
       +
               let optionSetIn = type: (tp.name == type) && (tp.functor.wrapped.name == "optionSet");

     

       434
       +
               in

     

       435
        
               if tp.name == "option set" || tp.name == "submodule" then

     

       436
        
                 throw "The option ${showOption loc} uses submodules without a wrapping type, in ${showFiles opt.declarations}."

     

       437
       +
               else if optionSetIn "attrsOf" then types.attrsOf (types.submodule options)

     

       438
       +
               else if optionSetIn "loaOf"   then types.loaOf   (types.submodule options)

     

       439
       +
               else if optionSetIn "listOf"  then types.listOf  (types.submodule options)

     

       440
       +
               else if optionSetIn "nullOr"  then types.nullOr  (types.submodule options)

     

       441
        
               else tp;

     

       442
        
           in

     

       443
        
             if opt.type.getSubModules or null == null

+1 -1

lib/options.nix

···

       92
        
                 internal = opt.internal or false;

     

       93
        
                 visible = opt.visible or true;

     

       94
        
                 readOnly = opt.readOnly or false;

     

       95
       -
                 type = opt.type.name or null;

     

       96
        
               }

     

       97
        
               // (if opt ? example then { example = scrubOptionValue opt.example; } else {})

     

       98
        
               // (if opt ? default then { default = scrubOptionValue opt.default; } else {})

···

       92
        
                 internal = opt.internal or false;

     

       93
        
                 visible = opt.visible or true;

     

       94
        
                 readOnly = opt.readOnly or false;

     

       95
       +
                 type = opt.type.description or null;

     

       96
        
               }

     

       97
        
               // (if opt ? example then { example = scrubOptionValue opt.example; } else {})

     

       98
        
               // (if opt ? default then { default = scrubOptionValue opt.default; } else {})

+115 -27

lib/types.nix

···

       17
        
         };

     

       18
        
       

     

       19
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       20
        
         isOptionType = isType "option-type";

     

       21
        
         mkOptionType =

     

       22
       -
           { # Human-readable representation of the type.

     

       0
        
       
     

       23
        
             name

     

       0
        
       
     

       0
        
       
     

       24
        
           , # Function applied to each definition that should return true if

     

       25
        
             # its type-correct, false otherwise.

     

       26
        
             check ? (x: true)

     
···

       36
        
             getSubOptions ? prefix: {}

     

       37
        
           , # List of modules if any, or null if none.

     

       38
        
             getSubModules ? null

     

       39
       -
           , # Function for building the same option type  with a different list of

     

       40
        
             # modules.

     

       41
        
             substSubModules ? m: null

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       42
        
           }:

     

       43
        
           { _type = "option-type";

     

       44
       -
             inherit name check merge getSubOptions getSubModules substSubModules;

     

       0
        
       
     

       45
        
           };

     

       46
        
       

     

       47
        
       

     
···

       52
        
           };

     

       53
        
       

     

       54
        
           bool = mkOptionType {

     

       55
       -
             name = "boolean";

     

       0
        
       
     

       56
        
             check = isBool;

     

       57
        
             merge = mergeEqualOption;

     

       58
        
           };

     

       59
        
       

     

       60
       -
           int = mkOptionType {

     

       61
       -
             name = "integer";

     

       0
        
       
     

       62
        
             check = isInt;

     

       63
        
             merge = mergeOneOption;

     

       64
        
           };

     

       65
        
       

     

       66
        
           str = mkOptionType {

     

       67
       -
             name = "string";

     

       0
        
       
     

       68
        
             check = isString;

     

       69
        
             merge = mergeOneOption;

     

       70
        
           };

     

       71
        
       

     

       72
        
           # Merge multiple definitions by concatenating them (with the given

     

       73
        
           # separator between the values).

     

       74
       -
           separatedString = sep: mkOptionType {

     

       75
       -
             name = "string";

     

       0
        
       
     

       76
        
             check = isString;

     

       77
        
             merge = loc: defs: concatStringsSep sep (getValues defs);

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       78
        
           };

     

       79
        
       

     

       80
        
           lines = separatedString "\n";

     
···

       86
        
           string = separatedString "";

     

       87
        
       

     

       88
        
           attrs = mkOptionType {

     

       89
       -
             name = "attribute set";

     

       0
        
       
     

       90
        
             check = isAttrs;

     

       91
        
             merge = loc: foldl' (res: def: mergeAttrs res def.value) {};

     

       92
        
           };

     
···

       114
        
           # drop this in the future:

     

       115
        
           list = builtins.trace "`types.list' is deprecated; use `types.listOf' instead" types.listOf;

     

       116
        
       

     

       117
       -
           listOf = elemType: mkOptionType {

     

       118
       -
             name = "list of ${elemType.name}s";

     

       0
        
       
     

       119
        
             check = isList;

     

       120
        
             merge = loc: defs:

     

       121
        
               map (x: x.value) (filter (x: x ? value) (concatLists (imap (n: def:

     
···

       132
        
             getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["*"]);

     

       133
        
             getSubModules = elemType.getSubModules;

     

       134
        
             substSubModules = m: listOf (elemType.substSubModules m);

     

       0
        
       
     

       135
        
           };

     

       136
        
       

     

       137
       -
           attrsOf = elemType: mkOptionType {

     

       138
       -
             name = "attribute set of ${elemType.name}s";

     

       0
        
       
     

       139
        
             check = isAttrs;

     

       140
        
             merge = loc: defs:

     

       141
        
               mapAttrs (n: v: v.value) (filterAttrs (n: v: v ? value) (zipAttrsWith (name: defs:

     
···

       147
        
             getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["<name>"]);

     

       148
        
             getSubModules = elemType.getSubModules;

     

       149
        
             substSubModules = m: attrsOf (elemType.substSubModules m);

     

       0
        
       
     

       150
        
           };

     

       151
        
       

     

       152
        
           # List or attribute set of ...

     
···

       165
        
                   def;

     

       166
        
               listOnly = listOf elemType;

     

       167
        
               attrOnly = attrsOf elemType;

     

       168
       -
             in mkOptionType {

     

       169
       -
               name = "list or attribute set of ${elemType.name}s";

     

       0
        
       
     

       170
        
               check = x: isList x || isAttrs x;

     

       171
        
               merge = loc: defs: attrOnly.merge loc (imap convertIfList defs);

     

       172
        
               getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["<name?>"]);

     

       173
        
               getSubModules = elemType.getSubModules;

     

       174
        
               substSubModules = m: loaOf (elemType.substSubModules m);

     

       0
        
       
     

       175
        
             };

     

       176
        
       

     

       177
        
           # List or element of ...

     

       178
       -
           loeOf = elemType: mkOptionType {

     

       179
       -
             name = "element or list of ${elemType.name}s";

     

       0
        
       
     

       180
        
             check = x: isList x || elemType.check x;

     

       181
        
             merge = loc: defs:

     

       182
        
               let

     
···

       189
        
               else if !isString res then

     

       190
        
                 throw "The option `${showOption loc}' does not have a string value, in ${showFiles (getFiles defs)}."

     

       191
        
               else res;

     

       0
        
       
     

       192
        
           };

     

       193
        
       

     

       194
       -
           uniq = elemType: mkOptionType {

     

       195
       -
             inherit (elemType) name check;

     

       0
        
       
     

       196
        
             merge = mergeOneOption;

     

       197
        
             getSubOptions = elemType.getSubOptions;

     

       198
        
             getSubModules = elemType.getSubModules;

     

       199
        
             substSubModules = m: uniq (elemType.substSubModules m);

     

       0
        
       
     

       200
        
           };

     

       201
        
       

     

       202
       -
           nullOr = elemType: mkOptionType {

     

       203
       -
             name = "null or ${elemType.name}";

     

       0
        
       
     

       204
        
             check = x: x == null || elemType.check x;

     

       205
        
             merge = loc: defs:

     

       206
        
               let nrNulls = count (def: def.value == null) defs; in

     
···

       211
        
             getSubOptions = elemType.getSubOptions;

     

       212
        
             getSubModules = elemType.getSubModules;

     

       213
        
             substSubModules = m: nullOr (elemType.substSubModules m);

     

       0
        
       
     

       214
        
           };

     

       215
        
       

     

       216
        
           submodule = opts:

     
···

       236
        
                   args = { name = ""; }; }).options;

     

       237
        
               getSubModules = opts';

     

       238
        
               substSubModules = m: submodule m;

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       239
        
             };

     

       240
        
       

     

       241
        
           enum = values:

     
···

       245
        
                 else if builtins.isInt v then builtins.toString v

     

       246
        
                 else ''<${builtins.typeOf v}>'';

     

       247
        
             in

     

       248
       -
             mkOptionType {

     

       249
       -
               name = "one of ${concatMapStringsSep ", " show values}";

     

       0
        
       
     

       250
        
               check = flip elem values;

     

       251
        
               merge = mergeOneOption;

     

       0
        
       
     

       252
        
             };

     

       253
        
       

     

       254
       -
           either = t1: t2: mkOptionType {

     

       255
       -
             name = "${t1.name} or ${t2.name}";

     

       0
        
       
     

       256
        
             check = x: t1.check x || t2.check x;

     

       257
        
             merge = mergeOneOption;

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       258
        
           };

     

       259
        
       

     

       260
        
           # Obsolete alternative to configOf.  It takes its option

     

       261
        
           # declarations from the ‘options’ attribute of containing option

     

       262
        
           # declaration.

     

       263
        
           optionSet = mkOptionType {

     

       264
       -
             name = builtins.trace "types.optionSet is deprecated; use types.submodule instead" "option set";

     

       0
        
       
     

       265
        
           };

     

       266
        
       

     

       267
        
           # Augment the given type with an additional type check function.

···

       17
        
         };

     

       18
        
       

     

       19
        
       

     

       20
       +
         # Default type merging function

     

       21
       +
         # takes two type functors and return the merged type

     

       22
       +
         defaultTypeMerge = f: f':

     

       23
       +
           let wrapped = f.wrapped.typeMerge f'.wrapped.functor;

     

       24
       +
               payload = f.binOp f.payload f'.payload;

     

       25
       +
           in

     

       26
       +
           # cannot merge different types

     

       27
       +
           if f.name != f'.name

     

       28
       +
              then null

     

       29
       +
           # simple types

     

       30
       +
           else if    (f.wrapped == null && f'.wrapped == null)

     

       31
       +
                   && (f.payload == null && f'.payload == null)

     

       32
       +
              then f.type

     

       33
       +
           # composed types

     

       34
       +
           else if (f.wrapped != null && f'.wrapped != null) && (wrapped != null)

     

       35
       +
              then f.type wrapped

     

       36
       +
           # value types

     

       37
       +
           else if (f.payload != null && f'.payload != null) && (payload != null)

     

       38
       +
              then f.type payload

     

       39
       +
           else null;

     

       40
       +
       

     

       41
       +
         # Default type functor

     

       42
       +
         defaultFunctor = name: {

     

       43
       +
           inherit name;

     

       44
       +
           type    = types."${name}" or null;

     

       45
       +
           wrapped = null;

     

       46
       +
           payload = null;

     

       47
       +
           binOp   = a: b: null;

     

       48
       +
         };

     

       49
       +
       

     

       50
        
         isOptionType = isType "option-type";

     

       51
        
         mkOptionType =

     

       52
       +
           { # Human-readable representation of the type, should be equivalent to

     

       53
       +
             # the type function name.

     

       54
        
             name

     

       55
       +
           , # Description of the type, defined recursively by embedding the the wrapped type if any.

     

       56
       +
             description ? null

     

       57
        
           , # Function applied to each definition that should return true if

     

       58
        
             # its type-correct, false otherwise.

     

       59
        
             check ? (x: true)

     
···

       69
        
             getSubOptions ? prefix: {}

     

       70
        
           , # List of modules if any, or null if none.

     

       71
        
             getSubModules ? null

     

       72
       +
           , # Function for building the same option type with a different list of

     

       73
        
             # modules.

     

       74
        
             substSubModules ? m: null

     

       75
       +
           , # Function that merge type declarations.

     

       76
       +
             # internal, takes a functor as argument and returns the merged type.

     

       77
       +
             # returning null means the type is not mergeable

     

       78
       +
             typeMerge ? defaultTypeMerge functor

     

       79
       +
           , # The type functor.

     

       80
       +
             # internal, representation of the type as an attribute set.

     

       81
       +
             #   name: name of the type

     

       82
       +
             #   type: type function.

     

       83
       +
             #   wrapped: the type wrapped in case of compound types.

     

       84
       +
             #   payload: values of the type, two payloads of the same type must be 

     

       85
       +
             #            combinable with the binOp binary operation.

     

       86
       +
             #   binOp: binary operation that merge two payloads of the same type.

     

       87
       +
             functor ? defaultFunctor name

     

       88
        
           }:

     

       89
        
           { _type = "option-type";

     

       90
       +
             inherit name check merge getSubOptions getSubModules substSubModules typeMerge functor;

     

       91
       +
             description = if description == null then name else description;

     

       92
        
           };

     

       93
        
       

     

       94
        
       

     
···

       99
        
           };

     

       100
        
       

     

       101
        
           bool = mkOptionType {

     

       102
       +
             name = "bool";

     

       103
       +
             description = "boolean";

     

       104
        
             check = isBool;

     

       105
        
             merge = mergeEqualOption;

     

       106
        
           };

     

       107
        
       

     

       108
       +
           int = mkOptionType rec {

     

       109
       +
             name = "int";

     

       110
       +
             description = "integer";

     

       111
        
             check = isInt;

     

       112
        
             merge = mergeOneOption;

     

       113
        
           };

     

       114
        
       

     

       115
        
           str = mkOptionType {

     

       116
       +
             name = "str";

     

       117
       +
             description = "string";

     

       118
        
             check = isString;

     

       119
        
             merge = mergeOneOption;

     

       120
        
           };

     

       121
        
       

     

       122
        
           # Merge multiple definitions by concatenating them (with the given

     

       123
        
           # separator between the values).

     

       124
       +
           separatedString = sep: mkOptionType rec {

     

       125
       +
             name = "separatedString";

     

       126
       +
             description = "string";

     

       127
        
             check = isString;

     

       128
        
             merge = loc: defs: concatStringsSep sep (getValues defs);

     

       129
       +
             functor = (defaultFunctor name) // {

     

       130
       +
               payload = sep;

     

       131
       +
               binOp = sepLhs: sepRhs:

     

       132
       +
                 if sepLhs == sepRhs then sepLhs

     

       133
       +
                 else null;

     

       134
       +
             };

     

       135
        
           };

     

       136
        
       

     

       137
        
           lines = separatedString "\n";

     
···

       143
        
           string = separatedString "";

     

       144
        
       

     

       145
        
           attrs = mkOptionType {

     

       146
       +
             name = "attrs";

     

       147
       +
             description = "attribute set";

     

       148
        
             check = isAttrs;

     

       149
        
             merge = loc: foldl' (res: def: mergeAttrs res def.value) {};

     

       150
        
           };

     
···

       172
        
           # drop this in the future:

     

       173
        
           list = builtins.trace "`types.list' is deprecated; use `types.listOf' instead" types.listOf;

     

       174
        
       

     

       175
       +
           listOf = elemType: mkOptionType rec {

     

       176
       +
             name = "listOf";

     

       177
       +
             description = "list of ${elemType.description}s";

     

       178
        
             check = isList;

     

       179
        
             merge = loc: defs:

     

       180
        
               map (x: x.value) (filter (x: x ? value) (concatLists (imap (n: def:

     
···

       191
        
             getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["*"]);

     

       192
        
             getSubModules = elemType.getSubModules;

     

       193
        
             substSubModules = m: listOf (elemType.substSubModules m);

     

       194
       +
             functor = (defaultFunctor name) // { wrapped = elemType; };

     

       195
        
           };

     

       196
        
       

     

       197
       +
           attrsOf = elemType: mkOptionType rec {

     

       198
       +
             name = "attrsOf";

     

       199
       +
             description = "attribute set of ${elemType.description}s";

     

       200
        
             check = isAttrs;

     

       201
        
             merge = loc: defs:

     

       202
        
               mapAttrs (n: v: v.value) (filterAttrs (n: v: v ? value) (zipAttrsWith (name: defs:

     
···

       208
        
             getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["<name>"]);

     

       209
        
             getSubModules = elemType.getSubModules;

     

       210
        
             substSubModules = m: attrsOf (elemType.substSubModules m);

     

       211
       +
             functor = (defaultFunctor name) // { wrapped = elemType; };

     

       212
        
           };

     

       213
        
       

     

       214
        
           # List or attribute set of ...

     
···

       227
        
                   def;

     

       228
        
               listOnly = listOf elemType;

     

       229
        
               attrOnly = attrsOf elemType;

     

       230
       +
             in mkOptionType rec {

     

       231
       +
               name = "loaOf";

     

       232
       +
               description = "list or attribute set of ${elemType.description}s";

     

       233
        
               check = x: isList x || isAttrs x;

     

       234
        
               merge = loc: defs: attrOnly.merge loc (imap convertIfList defs);

     

       235
        
               getSubOptions = prefix: elemType.getSubOptions (prefix ++ ["<name?>"]);

     

       236
        
               getSubModules = elemType.getSubModules;

     

       237
        
               substSubModules = m: loaOf (elemType.substSubModules m);

     

       238
       +
               functor = (defaultFunctor name) // { wrapped = elemType; };

     

       239
        
             };

     

       240
        
       

     

       241
        
           # List or element of ...

     

       242
       +
           loeOf = elemType: mkOptionType rec {

     

       243
       +
             name = "loeOf";

     

       244
       +
             description = "element or list of ${elemType.description}s";

     

       245
        
             check = x: isList x || elemType.check x;

     

       246
        
             merge = loc: defs:

     

       247
        
               let

     
···

       254
        
               else if !isString res then

     

       255
        
                 throw "The option `${showOption loc}' does not have a string value, in ${showFiles (getFiles defs)}."

     

       256
        
               else res;

     

       257
       +
             functor = (defaultFunctor name) // { wrapped = elemType; };

     

       258
        
           };

     

       259
        
       

     

       260
       +
           uniq = elemType: mkOptionType rec {

     

       261
       +
             name = "uniq";

     

       262
       +
             inherit (elemType) description check;

     

       263
        
             merge = mergeOneOption;

     

       264
        
             getSubOptions = elemType.getSubOptions;

     

       265
        
             getSubModules = elemType.getSubModules;

     

       266
        
             substSubModules = m: uniq (elemType.substSubModules m);

     

       267
       +
             functor = (defaultFunctor name) // { wrapped = elemType; };

     

       268
        
           };

     

       269
        
       

     

       270
       +
           nullOr = elemType: mkOptionType rec {

     

       271
       +
             name = "nullOr";

     

       272
       +
             description = "null or ${elemType.description}";

     

       273
        
             check = x: x == null || elemType.check x;

     

       274
        
             merge = loc: defs:

     

       275
        
               let nrNulls = count (def: def.value == null) defs; in

     
···

       280
        
             getSubOptions = elemType.getSubOptions;

     

       281
        
             getSubModules = elemType.getSubModules;

     

       282
        
             substSubModules = m: nullOr (elemType.substSubModules m);

     

       283
       +
             functor = (defaultFunctor name) // { wrapped = elemType; };

     

       284
        
           };

     

       285
        
       

     

       286
        
           submodule = opts:

     
···

       306
        
                   args = { name = ""; }; }).options;

     

       307
        
               getSubModules = opts';

     

       308
        
               substSubModules = m: submodule m;

     

       309
       +
               functor = (defaultFunctor name) // {

     

       310
       +
                 # Merging of submodules is done as part of mergeOptionDecls, as we have to annotate

     

       311
       +
                 # each submodule with its location.

     

       312
       +
                 payload = [];

     

       313
       +
                 binOp = lhs: rhs: [];

     

       314
       +
               };

     

       315
        
             };

     

       316
        
       

     

       317
        
           enum = values:

     
···

       321
        
                 else if builtins.isInt v then builtins.toString v

     

       322
        
                 else ''<${builtins.typeOf v}>'';

     

       323
        
             in

     

       324
       +
             mkOptionType rec {

     

       325
       +
               name = "enum";

     

       326
       +
               description = "one of ${concatMapStringsSep ", " show values}";

     

       327
        
               check = flip elem values;

     

       328
        
               merge = mergeOneOption;

     

       329
       +
               functor = (defaultFunctor name) // { payload = values; binOp = a: b: unique (a ++ b); };

     

       330
        
             };

     

       331
        
       

     

       332
       +
           either = t1: t2: mkOptionType rec {

     

       333
       +
             name = "either";

     

       334
       +
             description = "${t1.description} or ${t2.description}";

     

       335
        
             check = x: t1.check x || t2.check x;

     

       336
        
             merge = mergeOneOption;

     

       337
       +
             typeMerge = f':

     

       338
       +
               let mt1 = t1.typeMerge (elemAt f'.wrapped 0).functor;

     

       339
       +
                   mt2 = t2.typeMerge (elemAt f'.wrapped 1).functor;

     

       340
       +
               in

     

       341
       +
                  if (name == f'.name) && (mt1 != null) && (mt2 != null)

     

       342
       +
                  then functor.type mt1 mt2

     

       343
       +
                  else null;

     

       344
       +
             functor = (defaultFunctor name) // { wrapped = [ t1 t2 ]; };

     

       345
        
           };

     

       346
        
       

     

       347
        
           # Obsolete alternative to configOf.  It takes its option

     

       348
        
           # declarations from the ‘options’ attribute of containing option

     

       349
        
           # declaration.

     

       350
        
           optionSet = mkOptionType {

     

       351
       +
             name = builtins.trace "types.optionSet is deprecated; use types.submodule instead" "optionSet";

     

       352
       +
             description = "option set";

     

       353
        
           };

     

       354
        
       

     

       355
        
           # Augment the given type with an additional type check function.

+88

nixos/doc/manual/development/option-declarations.xml

···

       65
        
       

     

       66
        
       </para>

     

       67
        
       

     

       68
       +
       <section xml:id="sec-option-declarations-eot"><title>Extensible Option 

     

       69
       +
           Types</title>

     

       70
       +
       

     

       71
       +
         <para>Extensible option types is a feature that allow to extend certain types 

     

       72
       +
           declaration through multiple module files.

     

       73
       +
           This feature only work with a restricted set of types, namely 

     

       74
       +
           <literal>enum</literal> and <literal>submodules</literal> and any composed

     

       75
       +
           forms of them.</para>

     

       76
       +
       

     

       77
       +
         <para>Extensible option types can be used for <literal>enum</literal> options 

     

       78
       +
           that affects multiple modules, or as an alternative to related 

     

       79
       +
           <literal>enable</literal> options.</para>

     

       80
       +
       

     

       81
       +
         <para>As an example, we will take the case of display managers. There is a

     

       82
       +
           central display manager module for generic display manager options and a

     

       83
       +
           module file per display manager backend (slim, kdm, gdm ...).

     

       84
       +
         </para>

     

       85
       +
       

     

       86
       +
         <para>There are two approach to this module structure:

     

       87
       +
       

     

       88
       +
         <itemizedlist>

     

       89
       +
           <listitem><para>Managing the display managers independently by adding an

     

       90
       +
               enable option to every display manager module backend. (NixOS)</para>

     

       91
       +
           </listitem>

     

       92
       +
           <listitem><para>Managing the display managers in the central module by

     

       93
       +
               adding an option to select which display manager backend to use.</para>

     

       94
       +
           </listitem>

     

       95
       +
         </itemizedlist>

     

       96
       +
         </para>

     

       97
       +
       

     

       98
       +
         <para>Both approachs have problems.</para>

     

       99
       +
           

     

       100
       +
         <para>Making backends independent can quickly become hard to manage. For

     

       101
       +
           display managers, there can be only one enabled at a time, but the type

     

       102
       +
           system can not enforce this restriction as there is no relation between

     

       103
       +
           each backend <literal>enable</literal> option. As a result, this restriction

     

       104
       +
           has to be done explicitely by adding assertions in each display manager

     

       105
       +
           backend module.</para>

     

       106
       +
       

     

       107
       +
         <para>On the other hand, managing the display managers backends in the

     

       108
       +
           central module will require to change the central module option every time

     

       109
       +
           a new backend is added or removed.</para>

     

       110
       +
       

     

       111
       +
         <para>By using extensible option types, it is possible to create a placeholder 

     

       112
       +
           option in the central module (<xref linkend='ex-option-declaration-eot-service' 

     

       113
       +
             />), and to extend it in each backend module (<xref 

     

       114
       +
             linkend='ex-option-declaration-eot-backend-slim' />, <xref 

     

       115
       +
             linkend='ex-option-declaration-eot-backend-kdm' />).</para>

     

       116
       +
        

     

       117
       +
         <para>As a result, <literal>displayManager.enable</literal> option values can

     

       118
       +
         be added without changing the main service module file and the type system

     

       119
       +
         automatically enforce that there can only be a single display manager

     

       120
       +
         enabled.</para>

     

       121
       +
       

     

       122
       +
       <example xml:id='ex-option-declaration-eot-service'><title>Extensible type 

     

       123
       +
           placeholder in the service module</title>

     

       124
       +
       <screen>

     

       125
       +
       services.xserver.displayManager.enable = mkOption {

     

       126
       +
         description = "Display manager to use";

     

       127
       +
         type = with types; nullOr (enum [ ]);

     

       128
       +
       };</screen></example>

     

       129
       +
       

     

       130
       +
       <example xml:id='ex-option-declaration-eot-backend-slim'><title>Extending 

     

       131
       +
           <literal>services.xserver.displayManager.enable</literal> in the 

     

       132
       +
           <literal>slim</literal> module</title>

     

       133
       +
       <screen>

     

       134
       +
       services.xserver.displayManager.enable = mkOption {

     

       135
       +
         type = with types; nullOr (enum [ "slim" ]);

     

       136
       +
       };</screen></example>

     

       137
       +
       

     

       138
       +
       <example xml:id='ex-option-declaration-eot-backend-kdm'><title>Extending 

     

       139
       +
           <literal>services.foo.backend</literal> in the <literal>kdm</literal> 

     

       140
       +
           module</title>

     

       141
       +
       <screen>

     

       142
       +
       services.xserver.displayManager.enable = mkOption {

     

       143
       +
         type = with types; nullOr (enum [ "kdm" ]);

     

       144
       +
       };</screen></example>

     

       145
       +
       

     

       146
       +
       <para>The placeholder declaration is a standard <literal>mkOption</literal> 

     

       147
       +
         declaration, but it is important that extensible option declarations only use 

     

       148
       +
         the <literal>type</literal> argument.</para>

     

       149
       +
       

     

       150
       +
       <para>Extensible option types work with any of the composed variants of 

     

       151
       +
         <literal>enum</literal> such as 

     

       152
       +
         <literal>with types; nullOr (enum [ "foo" "bar" ])</literal> 

     

       153
       +
         or <literal>with types; listOf (enum [ "foo" "bar" ])</literal>.</para>

     

       154
       +
       

     

       155
       +
       </section>

     

       156
        
       </section>

+84 -26

nixos/doc/manual/development/option-types.xml

···

       62
        
           <listitem><para>A string. Multiple definitions are concatenated with a 

     

       63
        
               collon <literal>":"</literal>.</para></listitem>

     

       64
        
         </varlistentry>

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       65
        
         <varlistentry>

     

       66
       -
           <term><varname>types.separatedString</varname> 

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       67
        
             <replaceable>sep</replaceable></term>

     

       68
       -
           <listitem><para>A string with a custom separator 

     

       69
       -
               <replaceable>sep</replaceable>, e.g. <literal>types.separatedString 

     

       70
        
                 "|"</literal>.</para></listitem>

     

       71
        
         </varlistentry>

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       72
        
       </variablelist>

     

       73
       -
       

     

       74
        
        </section>

     

       75
        
       

     

       76
        
        <section><title>Composed Types</title>

     

       77
        
       

     

       78
       -
          <para>Composed types allow to create complex types by taking another type(s) 

     

       79
       -
            or value(s) as parameter(s).

     

       80
       -
            It is possible to compose types multiple times, e.g. <literal>with types; 

     

       81
       -
              nullOr (enum [ "left" "right" ])</literal>.</para>

     

       82
        
       

     

       83
        
       <variablelist>

     

       84
        
         <varlistentry>

     
···

       112
        
               once.</para></listitem>

     

       113
        
         </varlistentry>

     

       114
        
         <varlistentry>

     

       115
       -
           <term><varname>types.enum</varname> <replaceable>l</replaceable></term>

     

       116
       -
           <listitem><para>One element of the list <replaceable>l</replaceable>, e.g. 

     

       117
       -
               <literal>types.enum [ "left" "right" ]</literal>. Multiple definitions 

     

       118
       -
               cannot be merged</para></listitem>

     

       119
       -
         </varlistentry>

     

       120
       -
         <varlistentry>

     

       121
        
           <term><varname>types.either</varname> <replaceable>t1</replaceable> 

     

       122
        
             <replaceable>t2</replaceable></term>

     

       123
        
           <listitem><para>Type <replaceable>t1</replaceable> or type 

     

       124
        
               <replaceable>t2</replaceable>, e.g. <literal>with types; either int 

     

       125
        
                 str</literal>. Multiple definitions cannot be 

     

       126
        
               merged.</para></listitem>

     

       127
       -
         </varlistentry>

     

       128
       -
         <varlistentry>

     

       129
       -
           <term><varname>types.submodule</varname> <replaceable>o</replaceable></term>

     

       130
       -
           <listitem><para>A set of sub options <replaceable>o</replaceable>. 

     

       131
       -
               <replaceable>o</replaceable> can be an attribute set or a function 

     

       132
       -
               returning an attribute set. Submodules are used in composed types to 

     

       133
       -
               create modular options. Submodule are detailed in <xref 

     

       134
       -
                 linkend='section-option-types-submodule' />.</para></listitem>

     

       135
        
         </varlistentry>

     

       136
        
       </variablelist>

     

       137
        
       

     
···

       190
        
         description = "submodule example";

     

       191
        
         type = with types; listOf (submodule modOptions);

     

       192
        
       };</screen></example>

     

       193
       -
       

     

       194
        
       

     

       195
        
       <section><title>Composed with <literal>listOf</literal></title>

     

       196
        
       

     
···

       317
        
       <variablelist>

     

       318
        
         <varlistentry>

     

       319
        
           <term><varname>name</varname></term>

     

       320
       -
           <listitem><para>A string representation of the type function name, name 

     

       321
       -
               usually changes accordingly parameters passed to 

     

       322
       -
               types.</para></listitem>

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       323
        
         </varlistentry>

     

       324
        
         <varlistentry>

     

       325
        
           <term><varname>check</varname></term>

     
···

       381
        
               <literal>composedType</literal> that take an <literal>elemtype</literal> 

     

       382
        
               type parameter, this function should be defined as <literal>m: 

     

       383
        
                 composedType (elemType.substSubModules m)</literal>.</para></listitem>

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       384
        
         </varlistentry>

     

       385
        
       </variablelist>

     

       386

···

       62
        
           <listitem><para>A string. Multiple definitions are concatenated with a 

     

       63
        
               collon <literal>":"</literal>.</para></listitem>

     

       64
        
         </varlistentry>

     

       65
       +
       </variablelist>

     

       66
       +
       

     

       67
       +
        </section>

     

       68
       +
       

     

       69
       +
        <section><title>Value Types</title>

     

       70
       +
       

     

       71
       +
          <para>Value types are type that take a value parameter. The only value type 

     

       72
       +
            in the library is <literal>enum</literal>.</para>

     

       73
       +
       

     

       74
       +
       <variablelist>

     

       75
        
         <varlistentry>

     

       76
       +
           <term><varname>types.enum</varname> <replaceable>l</replaceable></term>

     

       77
       +
           <listitem><para>One element of the list <replaceable>l</replaceable>, e.g. 

     

       78
       +
               <literal>types.enum [ "left" "right" ]</literal>. Multiple definitions 

     

       79
       +
               cannot be merged.</para></listitem>

     

       80
       +
         </varlistentry>

     

       81
       +
         <varlistentry>

     

       82
       +
           <term><varname>types.separatedString</varname>

     

       83
        
             <replaceable>sep</replaceable></term>

     

       84
       +
           <listitem><para>A string with a custom separator

     

       85
       +
               <replaceable>sep</replaceable>, e.g. <literal>types.separatedString

     

       86
        
                 "|"</literal>.</para></listitem>

     

       87
        
         </varlistentry>

     

       88
       +
         <varlistentry>

     

       89
       +
           <term><varname>types.submodule</varname> <replaceable>o</replaceable></term>

     

       90
       +
           <listitem><para>A set of sub options <replaceable>o</replaceable>.

     

       91
       +
               <replaceable>o</replaceable> can be an attribute set or a function

     

       92
       +
               returning an attribute set. Submodules are used in composed types to

     

       93
       +
               create modular options. Submodule are detailed in <xref

     

       94
       +
                 linkend='section-option-types-submodule' />.</para></listitem>

     

       95
       +
         </varlistentry>

     

       96
        
       </variablelist>

     

       0
        
       
     

       97
        
        </section>

     

       98
        
       

     

       99
        
        <section><title>Composed Types</title>

     

       100
        
       

     

       101
       +
          <para>Composed types are types that take a type as parameter. <literal>listOf 

     

       102
       +
              int</literal> and <literal>either int str</literal> are examples of 

     

       103
       +
            composed types.</para>

     

       0
        
       
     

       104
        
       

     

       105
        
       <variablelist>

     

       106
        
         <varlistentry>

     
···

       134
        
               once.</para></listitem>

     

       135
        
         </varlistentry>

     

       136
        
         <varlistentry>

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       137
        
           <term><varname>types.either</varname> <replaceable>t1</replaceable> 

     

       138
        
             <replaceable>t2</replaceable></term>

     

       139
        
           <listitem><para>Type <replaceable>t1</replaceable> or type 

     

       140
        
               <replaceable>t2</replaceable>, e.g. <literal>with types; either int 

     

       141
        
                 str</literal>. Multiple definitions cannot be 

     

       142
        
               merged.</para></listitem>

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       143
        
         </varlistentry>

     

       144
        
       </variablelist>

     

       145
        
       

     
···

       198
        
         description = "submodule example";

     

       199
        
         type = with types; listOf (submodule modOptions);

     

       200
        
       };</screen></example>

     

       0
        
       
     

       201
        
       

     

       202
        
       <section><title>Composed with <literal>listOf</literal></title>

     

       203
        
       

     
···

       324
        
       <variablelist>

     

       325
        
         <varlistentry>

     

       326
        
           <term><varname>name</varname></term>

     

       327
       +
           <listitem><para>A string representation of the type function 

     

       328
       +
               name.</para></listitem>

     

       329
       +
         </varlistentry>

     

       330
       +
         <varlistentry>

     

       331
       +
           <term><varname>definition</varname></term>

     

       332
       +
           <listitem><para>Description of the type used in documentation. Give 

     

       333
       +
               information of the type and any of its arguments.</para></listitem>

     

       334
        
         </varlistentry>

     

       335
        
         <varlistentry>

     

       336
        
           <term><varname>check</varname></term>

     
···

       392
        
               <literal>composedType</literal> that take an <literal>elemtype</literal> 

     

       393
        
               type parameter, this function should be defined as <literal>m: 

     

       394
        
                 composedType (elemType.substSubModules m)</literal>.</para></listitem>

     

       395
       +
         </varlistentry>

     

       396
       +
         <varlistentry>

     

       397
       +
           <term><varname>typeMerge</varname></term>

     

       398
       +
           <listitem><para>A function to merge multiple type declarations. Takes the 

     

       399
       +
               type to merge <literal>functor</literal> as parameter. A 

     

       400
       +
               <literal>null</literal> return value means that type cannot be 

     

       401
       +
               merged.</para>

     

       402
       +
             <variablelist>

     

       403
       +
               <varlistentry>

     

       404
       +
                 <term><replaceable>f</replaceable></term>

     

       405
       +
                 <listitem><para>The type to merge  

     

       406
       +
                     <literal>functor</literal>.</para></listitem>

     

       407
       +
               </varlistentry>

     

       408
       +
             </variablelist>

     

       409
       +
             <para>Note: There is a generic <literal>defaultTypeMerge</literal> that 

     

       410
       +
               work with most of value and composed types.</para>

     

       411
       +
           </listitem>

     

       412
       +
         </varlistentry>

     

       413
       +
         <varlistentry>

     

       414
       +
           <term><varname>functor</varname></term>

     

       415
       +
           <listitem><para>An attribute set representing the type. It is used for type 

     

       416
       +
               operations and has the following keys:</para>

     

       417
       +
             <variablelist>

     

       418
       +
               <varlistentry>

     

       419
       +
                 <term><varname>type</varname></term>

     

       420
       +
                 <listitem><para>The type function.</para></listitem>

     

       421
       +
               </varlistentry>

     

       422
       +
               <varlistentry>

     

       423
       +
                 <term><varname>wrapped</varname></term>

     

       424
       +
                 <listitem><para>Holds the type parameter for composed types.</para>

     

       425
       +
                 </listitem>

     

       426
       +
               </varlistentry>

     

       427
       +
               <varlistentry>

     

       428
       +
                 <term><varname>payload</varname></term>

     

       429
       +
                 <listitem><para>Holds the value parameter for value types. 

     

       430
       +
                     The types that have a <literal>payload</literal> are the

     

       431
       +
                     <literal>enum</literal>, <literal>separatedString</literal> and

     

       432
       +
                     <literal>submodule</literal> types.</para></listitem>

     

       433
       +
               </varlistentry>

     

       434
       +
               <varlistentry>

     

       435
       +
                 <term><varname>binOp</varname></term>

     

       436
       +
                 <listitem><para>A binary operation that can merge the payloads of two 

     

       437
       +
                     same types. Defined as a function that take two payloads as 

     

       438
       +
                     parameters and return the payloads merged.</para></listitem>

     

       439
       +
               </varlistentry>

     

       440
       +
             </variablelist>

     

       441
       +
           </listitem>

     

       442
        
         </varlistentry>

     

       443
        
       </variablelist>

     

       444

+4 -1

nixos/doc/manual/release-notes/rl-1703.xml

···

       75
        
       

     

       76
        
       <itemizedlist>

     

       77
        
         <listitem>

     

       78
       -
           <para></para>

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       79
        
         </listitem>

     

       80
        
       </itemizedlist>

     

       81

···

       75
        
       

     

       76
        
       <itemizedlist>

     

       77
        
         <listitem>

     

       78
       +
           <para>Module type system have a new extensible option types feature that

     

       79
       +
             allow to extend certain types, such as enum, through multiple option

     

       80
       +
             declarations of the same option across multiple modules.

     

       81
       +
           </para>

     

       82
        
         </listitem>

     

       83
        
       </itemizedlist>

     

       84

+1 -1

nixos/modules/installer/tools/nixos-option.sh

···

       256
        
         // optionalAttrs (opt ? default) { inherit (opt) default; }

     

       257
        
         // optionalAttrs (opt ? example) { inherit (opt) example; }

     

       258
        
         // optionalAttrs (opt ? description) { inherit (opt) description; }

     

       259
       -
         // optionalAttrs (opt ? type) { typename = opt.type.name; }

     

       260
        
         // optionalAttrs (opt ? options) { inherit (opt) options; }

     

       261
        
         // {

     

       262
        
           # to disambiguate the xml output.

···

       256
        
         // optionalAttrs (opt ? default) { inherit (opt) default; }

     

       257
        
         // optionalAttrs (opt ? example) { inherit (opt) example; }

     

       258
        
         // optionalAttrs (opt ? description) { inherit (opt) description; }

     

       259
       +
         // optionalAttrs (opt ? type) { typename = opt.type.description; }

     

       260
        
         // optionalAttrs (opt ? options) { inherit (opt) options; }

     

       261
        
         // {

     

       262
        
           # to disambiguate the xml output.