readFileAsStringR name = runProc (readAllString (openFileR name))\r
\r
test () = do\r
- conf = SessionConfiguration "130.188.198.138" 6311 "simupedia" "simupedia"\r
+ conf = SessionConfiguration "localhost" 6311 "simupedia" "simupedia"\r
session = createSession conf\r
print $ syncExec session (evalR "1+1")\r
closeSession session
\ No newline at end of file