X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.db%2Fscl%2FSimantics%2FVariables.scl;h=721d52b15696fe5748947daeec249671006c586c;hb=a42562ce5347643cf8303eb4c6acef4d65c9e210;hp=d96dacdfdb4de0b8793060c034c83000eadc0cf6;hpb=d615f9ce52ccde4f0de408d6345d033faa4590e6;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl b/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl
index d96dacdfd..721d52b15 100644
--- a/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl
@@ -332,13 +332,13 @@ Example:
 """
 
 modelVariableOfVariable :: Variable -> <ReadGraph> Variable     
-modelVariableOfVariable var = variable $ uriOf $ toResource $ modelOfVariable var
+modelVariableOfVariable var = variable $ uriOf $ modelOfVariable var
 
 uniqueChild :: Model -> Resource -> String -> <ReadGraph> Variable
 uniqueChild model typet childName = do
     typeName = DB.nameOf typet
     query = "Types: " + typeName + " AND Name: " + childName
-    moduleResources = searchByQuery (toResource model) query
+    moduleResources = searchByQuery model query
     variable $ uriOf $ moduleResources ! 0
 
 """