Fixed typos.

R/RConfiguration SCL module did not compile due to typos after refactoring.

refs #6246

git-svn-id: https://www.simantics.org/svn/simantics/r/trunk@32252 ac1ea38d-2e2b-0410-8846-a27921b304fc

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