···

       
9
       
 
       
    catAttrs

     

       
10
       
 
       
    concatLists

     

       
11
       
 
       
    concatMap

     

       
12
       
-
       
    count

     

       
13
       
 
       
    elem

     

       
14
       
 
       
    filter

     

       
15
       
 
       
    findFirst

     
···

       
492
       
 
       
          loc = prefix ++ [name];

     

       
493
       
 
       
          defns = defnsByName.${name} or [];

     

       
494
       
 
       
          defns' = defnsByName'.${name} or [];

     

       
495
       
-
       
          nrOptions = count (m: isOption m.options) decls;

     

       
496
       
 
       
        in

     

       
497
       
-
       
          if nrOptions == length decls then

     

       
498
       
 
       
            let opt = fixupOptionType loc (mergeOptionDecls loc decls);

     

       
499
       
 
       
            in {

     

       
500
       
 
       
              matchedOptions = evalOptionValue loc opt defns';

     

       
501
       
 
       
              unmatchedDefns = [];

     

       
502
       
 
       
            }

     

       
503
       
-
       
          else if nrOptions != 0 then

     

       
504
       
-
       
            let

     

       
505
       
-
       
              firstOption = findFirst (m: isOption m.options) "" decls;

     

       
506
       
-
       
              firstNonOption = findFirst (m: !isOption m.options) "" decls;

     

       
507
       
-
       
            in

     

       
508
       
-
       
              if firstOption.options.type.name == "submodule"

     

       
509
       
 
       
              then

     

       
510
       
 
       
                let opt = fixupOptionType loc (mergeOptionDecls loc (map optionTreeToOption decls));

     

       
511
       
 
       
                in {

     
···

       
513
       
 
       
                  unmatchedDefns = [];

     

       
514
       
 
       
                }

     

       
515
       
 
       
              else

     

       
516
       
-
       
                throw "The option `${showOption loc}' in `${firstOption._file}' is a prefix of options in `${firstNonOption._file}'."

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
517
       
 
       
          else

     

       
518
       
 
       
            mergeModules' loc decls defns) declsByName;

     

       
519
       
 
       


     

···

       
9
       
 
       
    catAttrs

     

       
10
       
 
       
    concatLists

     

       
11
       
 
       
    concatMap

     

       
0
       
 
       

     

       
12
       
 
       
    elem

     

       
13
       
 
       
    filter

     

       
14
       
 
       
    findFirst

     
···

       
491
       
 
       
          loc = prefix ++ [name];

     

       
492
       
 
       
          defns = defnsByName.${name} or [];

     

       
493
       
 
       
          defns' = defnsByName'.${name} or [];

     

       
494
       
+
       
          optionDecls = filter (m: isOption m.options) decls;

     

       
495
       
 
       
        in

     

       
496
       
+
       
          if length optionDecls == length decls then

     

       
497
       
 
       
            let opt = fixupOptionType loc (mergeOptionDecls loc decls);

     

       
498
       
 
       
            in {

     

       
499
       
 
       
              matchedOptions = evalOptionValue loc opt defns';

     

       
500
       
 
       
              unmatchedDefns = [];

     

       
501
       
 
       
            }

     

       
502
       
+
       
          else if optionDecls != [] then

     

       
503
       
+
       
              if (lib.head optionDecls).options.type.name == "submodule"

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
504
       
 
       
              then

     

       
505
       
 
       
                let opt = fixupOptionType loc (mergeOptionDecls loc (map optionTreeToOption decls));

     

       
506
       
 
       
                in {

     
···

       
508
       
 
       
                  unmatchedDefns = [];

     

       
509
       
 
       
                }

     

       
510
       
 
       
              else

     

       
511
       
+
       
                let

     

       
512
       
+
       
                  firstNonOption = findFirst (m: !isOption m.options) "" decls;

     

       
513
       
+
       
                in

     

       
514
       
+
       
                throw "The option `${showOption loc}' in `${(lib.head optionDecls)._file}' is a prefix of options in `${firstNonOption._file}'."

     

       
515
       
 
       
          else

     

       
516
       
 
       
            mergeModules' loc decls defns) declsByName;

     

       
517