1 import "Simantics/Variables"
3 instantiateUnderAction :: Variable -> Resource -> <Proc> ()
4 instantiateUnderAction ruleVariable context = do
6 typeToInstantiate = singleObject (represents $ parent ruleVariable) MOD.InstantiateUnder.HasType
7 typeVariable = resourceVariable typeToInstantiate
8 fn = typeVariable#methods#instantiateUnder :: Resource -> Resource -> <WriteGraph> Resource
9 fn context typeToInstantiate)