* Remove some more unused functions.

svn path=/nixpkgs/trunk/; revision=18390
This commit is contained in:
Eelco Dolstra 2009-11-17 15:31:48 +00:00
parent 802fa4ba0b
commit a56509c0db
2 changed files with 0 additions and 12 deletions

View File

@ -373,10 +373,6 @@ let inherit (builtins) head tail trace; in
/*debug = x:(trace x x);
debugX = x:(trace (toXML x) x);*/
replaceScriptVar = file: name: value: "sed -e 's`^${name}=.*`${name}='\\''${value}'\\''`' -i ${file}";
replaceInScript = file: l: concatStringsSep "\n" ((pairMap (replaceScriptVar file) l));
replaceScripts = l: concatStringsSep "\n" (pairMap replaceInScript l);
doReplaceScripts = fullDepEntry (replaceScripts (attrByPath ["shellReplacements"] [] args)) ["minInit"];
makeNest = x: if x == defNest.text then x else "startNest\n" + x + "\nstopNest\n";
textClosure = a: steps: textClosureMap makeNest a (["defNest"] ++ steps);

View File

@ -88,14 +88,6 @@ rec {
# }
composedArgsAndFun = f: foldArgs defaultMerge f {};
# example a = pairMap (x : y : x + y) ["a" "b" "c" "d"];
# result: ["ab" "cd"]
innerPairMap = acc: f: l:
if l == [] then acc else
innerPairMap (acc ++ [(f (head l)(head (tail l)))])
f (tail (tail l));
pairMap = innerPairMap [];
# shortcut for attrByPath ["name"] default attrs
maybeAttr = name: default: attrs: