+ possibleActiveRunVariable ::Resource -> <ReadGraph> Maybe Variable
+ activateExperiment :: Resource -> <WriteGraph> Resource
+ createExperimentRun :: Resource -> <WriteGraph> Resource
+ createExperimentRunWithType :: Resource -> Resource -> <WriteGraph> Resource
+ activateRun :: Resource -> <WriteGraph> ()
+
+activateExperimentAction :: Resource -> <Proc> ()
+activateExperimentAction experiment = do
+ syncWrite (\() -> activateExperiment experiment)
+ ()