X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;ds=sidebyside;f=bundles%2Forg.simantics.event%2Fscl%2FSimantics%2FEvent.scl;fp=bundles%2Forg.simantics.event%2Fscl%2FSimantics%2FEvent.scl;h=01a520d52e71c2e8a57967db4aa69c0ad4c95fb5;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=0ec2123adb4c7b967823a2e8858f29731ca4030e;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.event/scl/Simantics/Event.scl b/bundles/org.simantics.event/scl/Simantics/Event.scl
index 0ec2123ad..01a520d52 100644
--- a/bundles/org.simantics.event/scl/Simantics/Event.scl
+++ b/bundles/org.simantics.event/scl/Simantics/Event.scl
@@ -1,23 +1,23 @@
-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
+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)
\ No newline at end of file