···

       
274
       
274
       
 
       
      defsFinal =

     

       
275
       
275
       
 
       
        let

     

       
276
       
276
       
 
       
          # Process mkMerge and mkIf properties

     

       
277
       
277
       
-
       
          discharged = concatMap (m:

     

       
277
       
277
       
+
       
          processIfAndMerge = defs: concatMap (m:

     

       
278
       
278
       
 
       
            map (value: { inherit (m) file; inherit value; }) (dischargeProperties m.value)

     

       
279
       
279
       
 
       
          ) defs;

     

       
280
       
280
       
 
       


     

       
281
       
281
       
 
       
          # Process mkOverride properties

     

       
282
       
282
       
-
       
          overridden = filterOverrides discharged;

     

       
282
       
282
       
+
       
          processOverride = defs: filterOverrides defs;

     

       
283
       
283
       
 
       


     

       
284
       
284
       
 
       
          # Sort mkOrder properties

     

       
285
       
285
       
-
       
          sorted =

     

       
285
       
285
       
+
       
          processOrder = defs:

     

       
286
       
286
       
 
       
            # Avoid sorting if we don't have to.

     

       
287
       
287
       
-
       
            if any (def: def.value._type or "" == "order") overridden

     

       
288
       
288
       
-
       
            then sortProperties overridden

     

       
289
       
289
       
-
       
            else overridden;

     

       
290
       
290
       
-
       
        in sorted;

     

       
287
       
287
       
+
       
            if any (def: def.value._type or "" == "order") defs

     

       
288
       
288
       
+
       
            then sortProperties defs

     

       
289
       
289
       
+
       
            else defs;

     

       
290
       
290
       
+
       
        in

     

       
291
       
291
       
+
       
          processOrder (processOverride (processIfAndMerge defs));

     

       
291
       
292
       
 
       


     

       
292
       
293
       
 
       
        # Type-check the remaining definitions, and merge them

     

       
293
       
294
       
 
       
        mergedValue = fold (def: res: