···

       
16
       
 
       
{ lib }:

     

       
17
       
 
       
with (lib).trivial;

     

       
18
       
 
       
let

     

       
19
       
-
       
  libAttr = lib.attrsets;

     

       
20
       
-
       


     

       
21
       
 
       
  inherit (builtins)

     

       
22
       
 
       
    addErrorContext

     

       
23
       
 
       
    attrNames

     
···

       
143
       
 
       
      mkLines = if listsAsDuplicateKeys

     

       
144
       
 
       
        then k: v: map (mkLine k) (if isList v then v else [v])

     

       
145
       
 
       
        else k: v: [ (mkLine k v) ];

     

       
146
       
-
       
  in attrs: concatStrings (concatLists (libAttr.mapAttrsToList mkLines attrs));

     

       
147
       
 
       


     

       
148
       
 
       


     

       
149
       
 
       
  /* Generate an INI-style config file from an

     
···

       
178
       
 
       
        # map function to string for each key val

     

       
179
       
 
       
        mapAttrsToStringsSep = sep: mapFn: attrs:

     

       
180
       
 
       
          concatStringsSep sep

     

       
181
       
-
       
            (libAttr.mapAttrsToList mapFn attrs);

     

       
182
       
 
       
        mkSection = sectName: sectValues: ''

     

       
183
       
 
       
          [${mkSectionName sectName}]

     

       
184
       
 
       
        '' + toKeyValue { inherit mkKeyValue listsAsDuplicateKeys; } sectValues;

     
···

       
399
       
 
       
        + outroSpace + "]"

     

       
400
       
 
       
    else if isFunction v then

     

       
401
       
 
       
      let fna = functionArgs v;

     

       
402
       
-
       
          showFnas = concatStringsSep ", " (libAttr.mapAttrsToList

     

       
403
       
 
       
                       (name: hasDefVal: if hasDefVal then name + "?" else name)

     

       
404
       
 
       
                       fna);

     

       
405
       
 
       
      in if fna == {}    then "<function>"

     
···

       
412
       
 
       
      else if v ? type && v.type == "derivation" then

     

       
413
       
 
       
        "<derivation ${v.name or "???"}>"

     

       
414
       
 
       
      else "{" + introSpace

     

       
415
       
-
       
          + concatStringsSep introSpace (libAttr.mapAttrsToList

     

       
416
       
 
       
              (name: value:

     

       
417
       
 
       
                "${escapeNixIdentifier name} = ${

     

       
418
       
 
       
                  addErrorContext "while evaluating an attribute `${name}`"

     
···

       
574
       
 
       
          "(${v.expr})"

     

       
575
       
 
       
        else if v == { } then

     

       
576
       
 
       
          "{}"

     

       
577
       
-
       
        else if libAttr.isDerivation v then

     

       
578
       
 
       
          ''"${toString v}"''

     

       
579
       
 
       
        else

     

       
580
       
 
       
          "{${introSpace}${concatItems (

     

···

       
16
       
 
       
{ lib }:

     

       
17
       
 
       
with (lib).trivial;

     

       
18
       
 
       
let

     

       
0
       
 
       

     

       
0
       
 
       

     

       
19
       
 
       
  inherit (builtins)

     

       
20
       
 
       
    addErrorContext

     

       
21
       
 
       
    attrNames

     
···

       
141
       
 
       
      mkLines = if listsAsDuplicateKeys

     

       
142
       
 
       
        then k: v: map (mkLine k) (if isList v then v else [v])

     

       
143
       
 
       
        else k: v: [ (mkLine k v) ];

     

       
144
       
+
       
  in attrs: concatStrings (concatLists (mapAttrsToList mkLines attrs));

     

       
145
       
 
       


     

       
146
       
 
       


     

       
147
       
 
       
  /* Generate an INI-style config file from an

     
···

       
176
       
 
       
        # map function to string for each key val

     

       
177
       
 
       
        mapAttrsToStringsSep = sep: mapFn: attrs:

     

       
178
       
 
       
          concatStringsSep sep

     

       
179
       
+
       
            (mapAttrsToList mapFn attrs);

     

       
180
       
 
       
        mkSection = sectName: sectValues: ''

     

       
181
       
 
       
          [${mkSectionName sectName}]

     

       
182
       
 
       
        '' + toKeyValue { inherit mkKeyValue listsAsDuplicateKeys; } sectValues;

     
···

       
397
       
 
       
        + outroSpace + "]"

     

       
398
       
 
       
    else if isFunction v then

     

       
399
       
 
       
      let fna = functionArgs v;

     

       
400
       
+
       
          showFnas = concatStringsSep ", " (mapAttrsToList

     

       
401
       
 
       
                       (name: hasDefVal: if hasDefVal then name + "?" else name)

     

       
402
       
 
       
                       fna);

     

       
403
       
 
       
      in if fna == {}    then "<function>"

     
···

       
410
       
 
       
      else if v ? type && v.type == "derivation" then

     

       
411
       
 
       
        "<derivation ${v.name or "???"}>"

     

       
412
       
 
       
      else "{" + introSpace

     

       
413
       
+
       
          + concatStringsSep introSpace (mapAttrsToList

     

       
414
       
 
       
              (name: value:

     

       
415
       
 
       
                "${escapeNixIdentifier name} = ${

     

       
416
       
 
       
                  addErrorContext "while evaluating an attribute `${name}`"

     
···

       
572
       
 
       
          "(${v.expr})"

     

       
573
       
 
       
        else if v == { } then

     

       
574
       
 
       
          "{}"

     

       
575
       
+
       
        else if isDerivation v then

     

       
576
       
 
       
          ''"${toString v}"''

     

       
577
       
 
       
        else

     

       
578
       
 
       
          "{${introSpace}${concatItems (