25 lines
611 B
Plaintext
25 lines
611 B
Plaintext
let Genode = env:DHALL_GENODE
|
|
|
|
let Init = Genode.Init
|
|
|
|
let Child = Init.Child
|
|
|
|
in λ(resources : Init.Resources.Type) →
|
|
λ(vfsConfig : Genode.Prelude.XML.Type) →
|
|
λ(binary : Text) →
|
|
Child.flat
|
|
Child.Attributes::{
|
|
, binary
|
|
, resources
|
|
, config = Init.Config::{
|
|
, content = [ vfsConfig ]
|
|
, policies =
|
|
[ Init.Config.Policy::{
|
|
, service = "File_system"
|
|
, label = Init.LabelSelector.prefix "eris_rom"
|
|
, attributes = toMap { root = "/" }
|
|
}
|
|
]
|
|
}
|
|
}
|