26 lines
733 B
Plaintext
26 lines
733 B
Plaintext
|
let ClosureEntry = { cap : Text, path : Text }
|
||
|
|
||
|
let Entry =
|
||
|
{ mapKey : Text, mapValue : { cap : Text, closure : List ClosureEntry } }
|
||
|
|
||
|
in λ(manifest : List Entry) →
|
||
|
List/fold
|
||
|
Entry
|
||
|
manifest
|
||
|
Text
|
||
|
( λ(entry : Entry) →
|
||
|
λ(script : Text) →
|
||
|
''
|
||
|
${List/fold
|
||
|
ClosureEntry
|
||
|
entry.mapValue.closure
|
||
|
Text
|
||
|
( λ(entry : ClosureEntry) →
|
||
|
λ(script : Text) →
|
||
|
"cp -u ${entry.path} ${entry.cap}; ${script}"
|
||
|
)
|
||
|
"true;"} cp ${entry.mapValue.cap} ${entry.mapKey}; ${script}
|
||
|
''
|
||
|
)
|
||
|
"true"
|