35 lines
581 B
Nix
35 lines
581 B
Nix
|
{
|
||
|
|
stdenv
|
||
|
|
, nixPrefix ? ""
|
||
|
|
}:
|
||
|
|
|
||
|
|
units:
|
||
|
|
|
||
|
|
with stdenv.lib;
|
||
|
|
|
||
|
|
let
|
||
|
|
stageProgram = stage:
|
||
|
|
if stage ? programPath
|
||
|
|
then "${stage}${stage.programPath}" else "${stage}";
|
||
|
|
|
||
|
|
unitsString = builtins.concatStringsSep "\n"
|
||
|
|
(map (x: "${stageProgram x}") units);
|
||
|
|
in
|
||
|
|
stdenv.mkDerivation {
|
||
|
|
name = "experiment";
|
||
|
|
phases = [ "installPhase" ];
|
||
|
|
preferLocalBuild = true;
|
||
|
|
dontPatchShebangs = true;
|
||
|
|
inherit units;
|
||
|
|
|
||
|
|
installPhase = ''
|
||
|
|
cat > $out << EOF
|
||
|
|
#!/bin/sh
|
||
|
|
|
||
|
|
# This is an experiment formed by the following units:
|
||
|
|
${unitsString}
|
||
|
|
EOF
|
||
|
|
chmod +x $out
|
||
|
|
'';
|
||
|
|
}
|