X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.db%2Fscl%2FSimantics%2FGShow.scl;h=c3e899a8c06ff2b83956144f359f17e7a2cb3ae1;hb=03af11f722634e02f8741d14771833fc51de95f9;hp=5ef2bad1b9a296befdbd2345ef141905dc22c504;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.db/scl/Simantics/GShow.scl b/bundles/org.simantics.scl.db/scl/Simantics/GShow.scl
index 5ef2bad1b..c3e899a8c 100644
--- a/bundles/org.simantics.scl.db/scl/Simantics/GShow.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/GShow.scl
@@ -1,3 +1,7 @@
+module {
+    features = [edo]
+}
+
 include "Simantics/DB" hiding (resourceId)
 import "http://www.simantics.org/Layer0-1.1" as L0
 import "http://www.simantics.org/Modeling-1.2" as MOD
@@ -89,21 +93,21 @@ resourceId ctx r = loop r
         `morelse`
         (guard (r == getRootLibrary ()) >> return (AbsoluteUri "http:/"))
         `morelse`
-        (mdo
+        (edo
             (p,rel) <- getPrimaryFunctionalReference r
             path <- loop p
             relName <- possibleNameOf rel
             return $ simplifyResourceIdHead $ PropertyOf path relName
         )
         `morelse`
-        (mdo
+        (edo
             p <- possibleObject r L0.PartOf
             path <- loop p
             name <- possibleNameOf r
             return $ simplifyResourceIdHead $ NamedChildOf path name
         )
         `morelse`
-        (mdo
+        (edo
             (p,rel) <- getSecondaryFunctionalReference r
             path <- loop p
             relName <- possibleNameOf rel