2 import "Simantics/Ontologies"
4 importJava "org.simantics.event.view.EventView" where
5 getEventLogs :: () -> <ReadGraph> [Resource]
7 findEvents :: <ReadGraph, Proc> [Resource]
10 slices = map findEventSlices logs
12 events = map findEventsFromSlice slices
16 findEventSlices :: Resource -> <ReadGraph, Proc> [Resource]
17 findEventSlices log = do
18 collectionToList $ objects_ log L0.ConsistsOf
21 findEventsFromSlice :: Resource -> <ReadGraph, Proc> [Resource]
22 findEventsFromSlice slice = do
23 collectionToList (objects_ slice L0.ConsistsOf)