Fixed typos.

[simantics/r.git] / org.simantics.r / scl / R / RConfiguration.scl

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