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"
|