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 = "/" }
|
||
|
}
|
||
|
]
|
||
|
}
|
||
|
}
|