* Simplify the implementation of "derivation" a bit: lift out the
common attribution so that they're evaluated only once, etc. Note that the default output is now the first element of the "outputs" attribute, rather than the first element of the sorted list of outputs. This seems more user-friendly.
This commit is contained in:
		
							parent
							
								
									71f3c46cf6
								
							
						
					
					
						commit
						83647f4ef1
					
				
					 1 changed files with 11 additions and 18 deletions
				
			
		|  | @ -1,31 +1,24 @@ | |||
| attrs: | ||||
| /* This is the implementation of the ‘derivation’ builtin function. | ||||
|    It's actually a wrapper around the ‘derivationStrict’ primop. */ | ||||
| 
 | ||||
| drvAttrs @ { outputs ? [ "out" ], ... }: | ||||
| 
 | ||||
| let | ||||
| 
 | ||||
|   strict = derivationStrict attrs; | ||||
|   strict = derivationStrict drvAttrs; | ||||
|    | ||||
|   attrValues = attrs: | ||||
|     map (name: builtins.getAttr name attrs) (builtins.attrNames attrs); | ||||
|      | ||||
|   commonAttrs = drvAttrs // (builtins.listToAttrs outputsList) // { all = map (x: x.value) outputsList; }; | ||||
| 
 | ||||
|   outputToAttrListElement = outputName: | ||||
|     { name = outputName; | ||||
|       value = attrs // { | ||||
|       value = commonAttrs // { | ||||
|         outPath = builtins.getAttr outputName strict; | ||||
|         drvPath = strict.drvPath; | ||||
|         type = "derivation"; | ||||
|         currentOutput = outputName; | ||||
|       } // outputsAttrs // { all = allList; }; | ||||
|       }; | ||||
|     }; | ||||
|      | ||||
|   outputsList = | ||||
|     if attrs ? outputs | ||||
|     then map outputToAttrListElement attrs.outputs | ||||
|     else [ (outputToAttrListElement "out") ]; | ||||
|   outputsList = map outputToAttrListElement outputs; | ||||
|      | ||||
|   outputsAttrs = builtins.listToAttrs outputsList; | ||||
|    | ||||
|   allList = attrValues outputsAttrs; | ||||
|    | ||||
|   head = if attrs ? outputs then builtins.head attrs.outputs else "out"; | ||||
|    | ||||
| in builtins.getAttr head outputsAttrs | ||||
| in (builtins.head outputsList).value | ||||
|  |  | |||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue