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