X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.r%2Fscl%2FR%2FRConfiguration.scl;h=f2bde7a4474e0b0aeb1e800d9d1a9677fb384835;hb=ec263e9c9a791a178c8af80cfe99bb7561c1b3e3;hp=eff8d8894761b8af2cda811a9bd848734d34fd17;hpb=a4e5a7f76e0798db8950464a80397db94f310699;p=simantics%2Fr.git

diff --git a/org.simantics.r/scl/R/RConfiguration.scl b/org.simantics.r/scl/R/RConfiguration.scl
index eff8d88..f2bde7a 100644
--- a/org.simantics.r/scl/R/RConfiguration.scl
+++ b/org.simantics.r/scl/R/RConfiguration.scl
@@ -13,7 +13,7 @@ createSessionConfiguration parent (R.SessionConfiguration host port username pas
     claim r L0.PartOf parent
     claimRelatedValue r L0.HasName host
     claimRelatedValue r ROntology.SessionConfiguration.host host
-    claimRelatedValue r ROntology.SessionConfiguration.port") port
+    claimRelatedValue r ROntology.SessionConfiguration.port port
     claimRelatedValue r ROntology.SessionConfiguration.username username
     claimRelatedValue r ROntology.SessionConfiguration.password password
     r
@@ -51,8 +51,8 @@ readSession r = let
 createSession :: Resource -> <WriteGraph,Proc> Resource
 createSession configurationResource = do
     session = R.createSession $ readSessionConfiguration configurationResource
-    for (configurationResource # ROntology.SessionConfiguration.hasScript $ \s -> do
-        scriptText = relatedValue s ROntology.Script.text")
+    for (configurationResource # ROntology.SessionConfiguration.hasScript) $ \s -> do
+        scriptText = relatedValue s ROntology.Script.text
         R.asyncExec session (R.evalR_ scriptText)
     sessionResource = writeSession session
     claim configurationResource L0.ConsistsOf sessionResource