X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.db%2Fscl%2FSimantics%2FGShow.scl;h=693e3e31f4565fcba87d3ab494070fe878e22457;hb=da4cc0ede99247df95557b92dc173d50c341b73f;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..693e3e31f 100644
--- a/bundles/org.simantics.scl.db/scl/Simantics/GShow.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/GShow.scl
@@ -89,21 +89,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