@@ -55,11 +55,7 @@ serverDefinition testBool ti = defaultProcess {
5555 --unhandledMessagePolicy = Log
5656 }
5757 where
58− testModeHandlers = if not testBool then
59− []
60− else
61− [handleCall (\conn (TestTimeout sessionId) -> handleTestTimeout ti sessionId conn)]
62−
58+ testModeHandlers = [handleCall (\conn (TestTimeout sessionId) -> handleTestTimeout ti sessionId conn) | testBool]
6359
6460initServer :: InitHandler (Connection, DatabaseName, Maybe (MVar EndPointAddress), EndPointAddress) Connection
6561initServer (conn, dbname, mAddressMVar, saddress) = do