Unsafely pretty-print Nix values

prettyUnsafe.nix

with builtins;
let
  printChild = prefix: x:
    let
      names = attrNames x;
    in 
    if isAttrs x && length names == 1
    then "." + head names + printChild prefix x.${head names}
    else " = " + print prefix x
    ;

  mapAttrsToList = f: attrs: attrValues (mapAttrs f attrs);
  mapAttrsToLines = f: attrs: concatStringsSep "\n" (mapAttrsToList f attrs);
  print = prefix: x:
    if isString x
    then "\"${x}\""
    else if ! isAttrs x
    then toString x
    else let prefix' = prefix + "  "; in ''
      {
      ${mapAttrsToLines (n: v: prefix' + n + printChild prefix' v + ";") x}
      ${prefix}}'';
in print