import "Simantics/DB"
import "Simantics/Ontologies"

importJava "org.simantics.event.view.EventView" where
    getEventLogs :: () -> <ReadGraph> [Resource]

findEvents :: <ReadGraph, Proc> [Resource]
findEvents = do
    logs = getEventLogs ()
    slices = map findEventSlices logs
    slices = join slices
    events = map findEventsFromSlice slices
    join events

@private
findEventSlices :: Resource -> <ReadGraph, Proc> [Resource]
findEventSlices log = do
    collectionToList $ objects_ log L0.ConsistsOf

@private
findEventsFromSlice :: Resource -> <ReadGraph, Proc> [Resource]
findEventsFromSlice slice = do
    collectionToList (objects_ slice L0.ConsistsOf)