From ec263e9c9a791a178c8af80cfe99bb7561c1b3e3 Mon Sep 17 00:00:00 2001 From: lehtonen Date: Mon, 11 Jan 2016 12:48:28 +0000 Subject: [PATCH] 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 --- org.simantics.r/scl/R/RConfiguration.scl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -> 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 -- 2.47.1