@@ -40,9 +40,11 @@ serverDefinition testBool ti = defaultProcess {
4040 handleCall (\conn (RetrieveAtomTypesAsRelation sessionId) -> handleRetrieveAtomTypesAsRelation ti sessionId conn),
4141 handleCall (\conn (RetrieveRelationVariableSummary sessionId) -> handleRetrieveRelationVariableSummary ti sessionId conn),
4242 handleCall (\conn (RetrieveCurrentSchemaName sessionId) -> handleRetrieveCurrentSchemaName ti sessionId conn),
43− handleCall (\conn (ExecuteSchemaExpr sessionId schemaExpr) -> handleExecuteSchemaExpr ti sessionId conn schemaExpr)
43+ handleCall (\conn (ExecuteSchemaExpr sessionId schemaExpr) -> handleExecuteSchemaExpr ti sessionId conn schemaExpr),
44+ handleCall (\conn Logout -> handleLogout ti conn)
4445 ] ++ testModeHandlers,
45− unhandledMessagePolicy = Log
46+ unhandledMessagePolicy = Terminate
47+ --unhandledMessagePolicy = Log
4648 }
4749 where
4850 testModeHandlers = if not testBool then
@@ -68,7 +70,7 @@ registerDB dbname = do
6870 self <- getSelfPid
6971 let dbname' = remoteDBLookupName dbname
7072 register dbname' self
71− liftIO $ putStrLn $ "registered " ++ (show self) ++ " " ++ dbname'
73+ --liftIO $ putStrLn $ "registered " ++ (show self) ++ " " ++ dbname'
7274
7375-- | A notification callback which logs the notification to stderr and does nothing else.
7476loggingNotificationCallback :: NotificationCallback
@@ -94,6 +96,7 @@ launchServer daemonConfig mAddressMVar = do
9496 Left err -> hPutStrLn stderr ("Failed to create transport: " ++ show err) >> pure False
9597 Right endpoint -> do
9698 localTCPNode <- newLocalNode transport remoteTable
99+ --traceShowM ("newLocalNode in Server " ++ show (localNodeId localTCPNode))
97100 runProcess localTCPNode $ do
98101 let testBool = testMode daemonConfig
99102 reqTimeout = perRequestTimeout daemonConfig