* Remove some more unused functions.
svn path=/nixpkgs/trunk/; revision=18390
This commit is contained in:
parent
802fa4ba0b
commit
a56509c0db
@ -373,10 +373,6 @@ let inherit (builtins) head tail trace; in
|
|||||||
/*debug = x:(trace x x);
|
/*debug = x:(trace x x);
|
||||||
debugX = x:(trace (toXML 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";
|
makeNest = x: if x == defNest.text then x else "startNest\n" + x + "\nstopNest\n";
|
||||||
textClosure = a: steps: textClosureMap makeNest a (["defNest"] ++ steps);
|
textClosure = a: steps: textClosureMap makeNest a (["defNest"] ++ steps);
|
||||||
|
|
||||||
|
@ -88,14 +88,6 @@ rec {
|
|||||||
# }
|
# }
|
||||||
composedArgsAndFun = f: foldArgs defaultMerge f {};
|
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
|
# shortcut for attrByPath ["name"] default attrs
|
||||||
maybeAttr = name: default: attrs:
|
maybeAttr = name: default: attrs:
|
||||||
|
Loading…
x
Reference in New Issue
Block a user